[R] identifying odd or even number

arun smartpink111 at yahoo.com
Mon May 26 04:12:31 CEST 2014


Hi "Deirdh",

You may use ?split() to return a list:

x <- 51:80
lst1 <- lapply(split(seq_along(x), x%%2),function(x1) x[x1]) 
lst1
#$`0`
# [1] 52 54 56 58 60 62 64 66 68 70 72 74 76 78 80

#$`1`
# [1] 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79
sapply(lst1,mean,na.rm=TRUE)
# 0  1 
#66 65 


#odd
mean(x[!!x%%2],na.rm=TRUE)
#[1] 65
#even 
mean(x[!x%%2],na.rm=TRUE)
#[1] 66

A.K.


Thank, this is some of the clearest instruction I see (as a newcomer to R).
Can you also tell me how to return a list, detailing the value of the Odd or Even number?

(my task is to read data from a file, take the odd numbers only,  return the average value of the odd numbers and I'm struggling)
D 
On Jul 1, 2010, at 10:40 AM, Yemi Oyeyemi wrote:

> Hi, I run into problem when writing a syntax, I don't know syntax that will return true or false if an integer is odd or even.
> Thanks

x <- 1:10

> x
 [1]  1  2  3  4  5  6  7  8  9 10

# modulo division
> x %% 2 == 0
 [1] FALSE  TRUE FALSE  TRUE FALSE  TRUE FALSE  TRUE FALSE  TRUE


is.even <- function(x) x %% 2 == 0

> is.even(x)
 [1] FALSE  TRUE FALSE  TRUE FALSE  TRUE FALSE  TRUE FALSE  TRUE


> is.odd <- function(x) x %% 2 != 0

> is.odd(x)
 [1]  TRUE FALSE  TRUE FALSE  TRUE FALSE  TRUE FALSE  TRUE FALSE


Be aware that this will work for integer values. If you have floating point values that are 'close to' integer values, the exact comparison to 0 will be problematic. This may occur as the result of calculations where the result is 'close to' an integer value. In which case, you may want to review:

  http://cran.r-project.org/doc/FAQ/R-FAQ.html#Why-doesn_0027t-R-think-these-numbers-are-equal_003f

HTH,

Marc Schwartz



More information about the R-help mailing list