R/dummy.r

Defines functions dummy

Documented in dummy

dummy <- function(f, name = "f"){

n <- length(f)
t <- table(f)
nlevels <- length(t)
levels <- as.numeric(names(t))
dum <- matrix(NA, ncol = nlevels - 1, nrow = n)
for (l in 2:nlevels){dum[, l - 1] <- as.numeric(f == levels[l])}

dimnames(dum) <- list(NULL, paste(name, ".", levels[-1], sep = ""))
return(dum)
}

Try the OrdFacReg package in your browser

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

OrdFacReg documentation built on May 1, 2019, 10:06 p.m.