Hi,
Isn't that answered already?
vec2<-c(2,2,2,2,2,2,2)
if(length(unique(vec2))==1) "xxxxxxxxx" else "yyyyyyyyyyy"
#[1] "xxxxxxxxx"
vec2<-c(22,22,22,22,23,22,22)
if(length(unique(vec2))==1) "xxxxxxxxx" else "yyyyyyyyyyy"
#[1] "yyyyyyyyyyy"
vec2<-c(22,22,22,22,22,22,22)
if(length(unique(vec2))==1) "xxxxxxxxx" else "yyyyyyyyyyy"
[1] "xxxxxxxxx"
A.K.
>But if the vector is c(2,2,2,2,2,2,2) or (22,22,22,22,22)? And if I don't
>know the number that is equal?
>I want...if the vector has all values equal (but probably I don't know which
>number is...
>
>Thank you very much
----- Original Message -----
From: arun <smartpink...@yahoo.com>
To: R help <r-help@r-project.org>
Cc:
Sent: Thursday, April 18, 2013 10:08 AM
Subject: Re: vectors with equal values
Hi,
Try:
vec1<-c(1,1,1,1,1,1,1,1,1)
if(all(vec1==1)) "xxxxxxxxx" else "yyyyyyyyyyy"
#[1] "xxxxxxxxx"
vec2<-c(rep(1,4),2)
if(all(vec2==1)) "xxxxxxxxx" else "yyyyyyyyyyy"
#[1] "yyyyyyyyyyy"
#or
if(length(unique(vec1))==1) "xxxxxxxxx" else "yyyyyyyyyyy"
#[1] "xxxxxxxxx"
if(length(unique(vec2))==1) "xxxxxxxxx" else "yyyyyyyyyyy"
#[1] "yyyyyyyyyyy"
A.K.
>Hi.
>
>I need some help. I have a vector like c(1,1,1,1,1,1,1,1,1), for example. I
>wanto to do in R some like this:
>
>if (all values equals) {
>"xxxxxxxxxxxxxxxxxx"
>} else {
>"yyyyyyyyyy"
>}
>
>How can I write the condition "all values equal" in R?
>
>Thank you
______________________________________________
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.
