Message-ID: <1350936134582-4647063.post@n4.nabble.com>
Date: 2012-10-22T20:02:14Z
From: djbanana
Subject: Help plz to fix it
In-Reply-To: <1350931289797-4647051.post@n4.nabble.com>
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.