Help plz to fix it

I think this is what you want.

p <- c(1/10, 2/5, 2/5, 2/5, 2/5, 1/10, 1/10, 1/10, 1/10, 1/10)
psidp <- function(x){
if (x>0&&x<=10)
{
return(sum(p[1:x]))
}
else{
return("Input integer between 1 and 10")
}}



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