Nothing
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# table.unlist
# Description: replace buggy 'table(unlist( ... ))'
# Version: 0.2.0
# Status: beta
# Release Date: 2011-11-23
# Author: Sebastian Weirich
# Change Log:
#
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
table.unlist <- function(dataFrame) {
funVersion <- "table.unlist_0.2.0"
## if(!exists("rbind.fill.matrix")) {library(reshape)}
## if(class(dataFrame) != "data.frame" ) {stop("Argument of 'table.unlist' has to be of class 'data.frame'.\n")}
if(class(dataFrame) != "data.frame" ) {
cat("Convert argument of 'table.unlist' to data.frame.\n")
dataFrame <- data.frame(dataFrame, stringsAsFactors=FALSE)
}
column.by.column <- do.call("rbind.fill.matrix", lapply(dataFrame, FUN=function(ii) {t(table(ii))}) )
freq.table <- colSums(column.by.column,na.rm=TRUE)
return(freq.table)}
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.