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.