R/mls.table.multi.R

Defines functions `mls.table.multi`

`mls.table.multi` <-
function(var) {
  lev <- levels(var)
  lev <- unique(unlist(strsplit(lev, "/")))
  as.table(sapply(lev, function(l) { length(grep(l,var)) } ))
}
juba/rgrs documentation built on May 20, 2019, 4:20 a.m.