# [R] Help plz to fix it

arun smartpink111 at yahoo.com
Mon Oct 22 22:28:18 CEST 2012

```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.

```