R/categorical.R

Defines functions categorical

#' @export
categorical <-
function(x)
{
   f <- outer(x, levels(x), function(w,f) ifelse(w==f,1,0))
   colnames(f) <- paste("", levels(x), sep=":")
   f
}
YunyiShen/multiMaxEnt documentation built on Dec. 18, 2021, 8:22 p.m.