R/Even.R

In evobiR: Comparative and Population Genetic Analyses

Defines functions Even

Documented in Even

Even <- function(x){
  result <- vector()
  if(!is.numeric(x)){
    cat("Even only works on numbers")
    stop()
  }
  for(i in 1:length(x)){
    if(x[i]/2 == round(x[i]/2)){
      result[i] <- T
    }else{
      result[i] <- F
    }
  }
  return(result)
}

Try the evobiR package in your browser