# TODO: Add comment
# 
# Author: E.Korsching
###############################################################################



is.even <- function(x){
	# integer (vector) is even or odd
	ite <- as.integer(x)
	return((ite %% 2)==0)
}

#a1 <- 1:10; is.even(a1)