[R] ifelse(is.na), with function inside

[joscani]

Try:

b<- ifelse(is.na(a),1,2)


Grześ wrote:
> 
> 2 - is.na(a)  - it's superb! but I need call a function:  wy[i]<-
> ifelse(((is.na(a))), call_fun1(x), call_fun2(x)
> 
> 
> 
> Gabor Grothendieck wrote:
>> 
>> Try:
>> 
>> 2 - is.na(a)
>> 
>> 
>> On Tue, Jun 16, 2009 at 5:46 PM, Grześ<gregorio99 at 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 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.
>>>
>> 
>> ______________________________________________
>> 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.
>> 
>> 
> 
> 

-- 
View this message in context: http://www.nabble.com/ifelse%28is.na%29%2C-with-function-inside-tp24063455p24067706.html
Sent from the R help mailing list archive at Nabble.com.