Nothing
discreteCounts <- function(x, round.percents=2, name=deparse(substitute(x)),
max.values=min(round(2*sqrt(length(x))), round(10*log10(length(x))), 100)){
if (is.data.frame(x)) x <- as.matrix(x)
if (is.matrix(x)) {
names <- colnames(x)
for (j in 1:ncol(x)){
discreteCounts(x[, j], round.percents=round.percents, name=names[j], max.values=max.values)
cat("\n")
}
return(invisible(NULL))
}
Count <- table(x)
if ((nv <- length(Count)) > max.values) stop("number of unique values of ", name, ", ", nv, ", exceeds maximum, ", max.values)
tot <- sum(Count)
Percent <- round(100*Count/tot, round.percents)
tot.percent <- round(sum(Percent), round.percents)
table <- cbind(Count, Percent)
table <- rbind(table, c(tot, tot.percent))
rownames(table) <- c(names(Count), "Total")
cat("Distribution of", name, "\n")
print(table)
return(invisible(Count))
}
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.