Hi, Did you mean this? group1<-c(40,50,"60",70) #or group2<-c(50,"var1","var2",60)
In either of the above cases, when you check str(group1) # all are converted to character. # chr [1:4] "40" "50" "60" "70" str(group2) # chr [1:4] "50" "var1" "var2" "60" Suppose, I am comparing the test1 dataset (x4: x6 columns) with group2 apply(test1,1,function(x) ifelse(x[5:7]%in%group2,0,1)) # 2nd row is 50 for x4 column # 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 #[1,] 1 0 1 1 1 1 1 1 1 1 1 1 1 1 1 #[2,] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 #[3,] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 # final result as.vector(apply(test1,1,function(x) ifelse(any(x[5:7]%in%group2),0,1))) # [1] 1 0 1 1 1 1 1 1 1 1 1 1 1 1 1 I guess it works. BTW, in my previous reply, I made a mistake as.vector(apply(test1,1,function(x) ifelse(any(x[4:6]%in%group),0,1))) ^^^^^^^ It should be 5:7. group<-c(40,50,60,70) as.vector(apply(test1,1,function(x) ifelse(any(x[5:7]%in%group),0,1))) #[1] 1 0 1 1 1 1 0 1 1 1 1 1 0 1 1 ifelse(test1$x4==40|test1$x4==50|test1$x4==60|test1$x4==70|test1$x5==40|test1$x5==50|test1$x5==60|test1$x5==70|test1$x6==40|test1$x6==50|test1$x6==60|test1$x7==70,0,1) # [1] 1 0 1 1 1 1 0 1 1 1 1 1 0 1 1 as.vector(apply(test1,1,function(x) ifelse(any(x[5:7]==40|x[5:7]==50|x[5:7]==60|x[5:7]==70),0,1))) #[1] 1 0 1 1 1 1 0 1 1 1 1 1 0 1 1 A.K. ----- Original Message ----- From: brunosm <brunos...@gmail.com> To: r-help@r-project.org Cc: Sent: Thursday, October 25, 2012 12:55 PM Subject: Re: [R] ifelse reformulation Arun, thank you very much... but a new problem arose... What if... in the variable group that i want to compare, there is numeric and non numeric types? Or, if you think its better, can i have two variables, one numeric and one non numeric, and made the comparision? Best regards, Bruno 2012/10/12 arun kirshna [via R] <ml-node+s789695n4645988...@n4.nabble.com> > HI, > Try this: > test1<-read.table(text=" > id x1 x2 x3 x4 x5 x6 x7 > 1 1 36 26 21 32 31 27 31 > 2 2 45 21 46 50 22 36 29 > 3 3 49 47 35 44 33 31 46 > 4 4 42 32 38 28 39 45 32 > 5 5 29 42 39 48 25 35 34 > 6 6 39 31 30 37 46 43 44 > 7 7 41 40 25 23 42 40 24 > 8 8 27 29 47 34 26 38 28 > 9 9 25 35 29 36 43 34 23 > 10 10 24 44 37 26 27 46 22 > 11 11 38 50 32 49 37 24 40 > 12 12 20 34 48 25 30 41 36 > 13 13 26 46 20 40 29 20 43 > 14 14 33 37 49 31 47 30 30 > 15 15 43 39 27 35 48 47 27 > ",sep="",header=TRUE) > count40<- > ifelse(test1$x1==40|test1$x2==40|test1$x3==40|test1$x4==40|test1$x5==40|test1$x6==40|test1$x7==40,0,1) > > count40 > #[1] 1 1 1 1 1 1 0 1 1 1 0 1 0 1 1 > #if you want to get the same result, > apply(test1,1,function(x) ifelse(any(x==40),0,1)) > # 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 > #1 1 1 1 1 1 0 1 1 1 0 1 0 1 1 > A.K. > > > > > > ------------------------------ > If you reply to this email, your message will be added to the discussion > below: > http://r.789695.n4.nabble.com/ifelse-reformulation-tp4645981p4645988.html > To unsubscribe from ifelse reformulation, click >here<http://r.789695.n4.nabble.com/template/NamlServlet.jtp?macro=unsubscribe_by_code&node=4645981&code=YnJ1bm9zbTg3QGdtYWlsLmNvbXw0NjQ1OTgxfDIwMjc4MjE3MDg=> > . > NAML<http://r.789695.n4.nabble.com/template/NamlServlet.jtp?macro=macro_viewer&id=instant_html%21nabble%3Aemail.naml&base=nabble.naml.namespaces.BasicNamespace-nabble.view.web.template.NabbleNamespace-nabble.view.web.template.NodeNamespace&breadcrumbs=notify_subscribers%21nabble%3Aemail.naml-instant_emails%21nabble%3Aemail.naml-send_instant_email%21nabble%3Aemail.naml> > -- View this message in context: http://r.789695.n4.nabble.com/ifelse-reformulation-tp4645981p4647431.html Sent from the R help mailing list archive at Nabble.com. [[alternative HTML version deleted]] ______________________________________________ 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.