Nothing
summary.fdt_cat.default <- function (object,
columns=1:6,
round=2,
row.names=FALSE,
right=TRUE, ...)
{
res <- cbind(object[, 1],
round(object[, 2:6],
round))[columns]
names(res) <- c('Category',
'f',
'rf',
'rf(%)',
'cf',
'cf(%)')[columns]
res <- print.data.frame(res,
row.names=row.names,
right=right, ...)
}
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.