Try: 2 - is.na(a)
On Tue, Jun 16, 2009 at 5:46 PM, Grześ<gregori...@gmail.com> wrote: > > Hi, > I have a vector a=c(NA, 3, 4, 4, NA, NA, 3) and I would like to use is.na(a) > function to get a vector like this: > wy=(1,2,2,2,1,1,2) - you know, this vector create 1 or 2 depends on value in > vector "a" > > This is my short code but something is wrong and I don't know what... > > for (i in 1:7){ > a=c( NA, 3, 4, 4, NA, NA, 3) > fun1=function(x){ > x=1 > print(x) > } > fun2=function(x){ > x=2 > print(x) > } > wy[i]<- ifelse(((is.na(a))), fun1(x), fun2(x)) > } > [1] 1 > [1] 2 > [1] 1 > [1] 2 > [1] 1 > [1] 2 > [1] 1 > [1] 2 > [1] 1 > [1] 2 > [1] 1 > [1] 2 > [1] 1 > [1] 2 > and I get a lots of warnings: > Warning messages: > 1: In wy[i] <- ifelse(((is.na(a))), fun1(x), fun2(x)) : > number of items to replace is not a multiple of replacement length > 2: In wy[i] <- ifelse(((is.na(a))), fun1(x), fun2(x)) : > number of items to replace is not a multiple of replacement length... > > and as an result I get a vector only with 1 >> wy > [1] 1 1 1 1 1 1 1 > > I'll be very happy if someone help me > > -- > View this message in context: > http://www.nabble.com/ifelse%28is.na%29%2C-with-function-inside-tp24063455p24063455.html > Sent from the R help mailing list archive at Nabble.com. > > ______________________________________________ > R-help@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. > ______________________________________________ R-help@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.