Nothing
make.fdt_cat.multiple <- function(x,
sort,
decreasing)
{
stopifnot(is.data.frame(x))
res <- list()
f <- sapply(x,
is.factor)
for(i in 1:ncol(x)){
if(f[i]){
m <- x[,i]
fdt <- make.fdt_cat.simple(m,
sort,
decreasing)
res <- c(res,
list(fdt))
}
}
valCol <- f[f]
names(res) <- names(valCol)
return(res)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.