[R] ifelse reformulation

brunosm
Thu, 25 Oct 2012 16:55:07 -0000

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+s789695n4645988h70@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]]