tableLevelsVsLayer <-
function(nlevels = numeric(), layerVec = numeric(), uniqueLayers = numeric()) {
tab <- .Call("tableLevelsVsLayer",
nlevels, layerVec, uniqueLayers,
PACKAGE = "rFtools")
tab <- as.table(tab)
class(tab) <- c("LevelsVsLayer", "table")
return(tab)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.