[R] Help plz to fix it

[arun]

Hi,

May be this helps:
psidp<-function(x){
 p <- c(1/10, 2/5, 2/5, 2/5, 2/5, 1/10, 1/10, 1/10, 1/10, 1/10)
 ifelse(x>0 & x<=length(p),sum(p[seq(1,x,1)]),NA)}
psidp(0)
#[1] NA
 psidp(5)
#[1] 1.7
 psidp(10)
#[1] 2.2
A.K.



----- Original Message -----
From: Rlotus <yerlan_ at hotmail.com>
To: r-help at r-project.org
Cc: 
Sent: Monday, October 22, 2012 2:41 PM
Subject: [R] Help plz to fix it

I have an array of probabilities....it is p. So if user types x=1 then
probability is p1=1/10. 
If user types x=2 it means that p2= p1+p2
if user types x=3 it means that p3=p1+p2+p3....and so on.
So i created a code..... but it doesnt work properly. Help me plz to fix it)
Thank u in advance.

psidp=function(x){
  p<-(1/10 2/5 2/5 2/5 2/5 1/10 1/10 1/10 1/10 1/10)
   i==0;
   if (x!=0){ 
       for (i in 1 to x)
       {p[i]=p[i]+p[i-1]
       p[i]
           }

}
       
                     
           




--
View this message in context: http://r.789695.n4.nabble.com/Help-plz-to-fix-it-tp4647051.html
Sent from the R help mailing list archive at Nabble.com.

______________________________________________
R-help at r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.