R/to_binary.R

Defines functions to_binary

to_binary <- function(y){
  base_char <- unique(y)
  yx <- as.numeric(as.factor(y))
  yx <- ifelse(yx == 1, 0, 1)
  return(list(base_char = base_char, y = yx))
}
zaenalium/rewlr documentation built on Oct. 3, 2019, 11:11 a.m.