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)) } ))
}

Try the rgrs package in your browser

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

rgrs documentation built on May 2, 2019, 4:54 p.m.