[R] Error in if-command

[arun]

HI,

Try ifelse

 fun1<-function(y){
 ifelse(y==c(4,5,9,11,17),"yes","no")
 }
> fun1(9)
#[1] "no"  "no"  "yes" "no"  "no" 

A.K.

----- Original Message -----
From: Dominic Roye <dominic.roye at gmail.com>
To: r-help at r-project.org
Cc: 
Sent: Sunday, August 12, 2012 6:12 AM
Subject: [R] Error in if-command

Hello everybody,

I don't understand what I'm doing wrong. But it isn't possible that each
element of the if-condition is tested for each vector element?

y <- c(1:20)
> y
[1]  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20

> if (y == c(4,5,9,11,17)) { print("yes")  } else { print("no")}
[1] "no"
warning:
In if (y == c(4, 5, 9, 11, 17)) { :
  Condition has length > 1 and only the first element is used
>


#It also doesn't work with this condition ==2

if (y == 2) { print("yes")  } else { print("no")}
[1] "no"
warning:
In if (y == 2) { :
Condition has length> 1 and only the first element is used



I guess it's a trivial problem. I hope someone can help me.

Thank you!

    [[alternative HTML version deleted]]

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