Nothing
print.fdt.default <- function (x,
columns=1:6,
round=2,
format.classes=FALSE,
pattern='%09.3e',
row.names=FALSE,
right=TRUE, ...)
{
res <- x[['table']]
res <- cbind(res[, 1],
round(res[, 2:6],
round))[columns]
right.tmp <- as.logical(x[['breaks']]['right'])
if (format.classes) {
tmp <- as.character(res[, 1])
res[, 1] <- make.fdt.format.classes(tmp,
right.tmp,
pattern)
}
names(res) <- c('Class limits',
'f',
'rf',
'rf(%)',
'cf',
'cf(%)')[columns]
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.