R/mkDummy.R

Defines functions mkDummy

Documented in mkDummy

mkDummy <- function(x) {

  xN <- deparse(substitute(x))
  if (!inherits(x,"factor")) stop("x should be a factor")
  lev <- levels(x)

  result <- lapply(lev,function(l) as.integer(x==l))
  names(result) <- paste(xN,".",lev,sep="")
  result

}

Try the STAR package in your browser

Any scripts or data that you put into this service are public.

STAR documentation built on May 2, 2019, 4:53 p.m.