Nothing
print.freq<-function(x,show.pc=TRUE,cum.pc=FALSE,show.total=FALSE,...) {
nfreq<-length(x)
variable.labels <- names(x)
for(i in 1:nfreq) {
categories<-names(x[[i]])
maxchar<-max(c(nzchar(categories),4))
cat("\nFrequencies for", variable.labels[i],"\n")
cat(" ", formatC(ifelse(categories == "","Missing",categories),
width=maxchar))
if(show.total) cat(formatC("Total",width=maxchar))
cat("\n")
cat(" ", formatC(as.character(x[[i]]),width = maxchar))
if(show.total) cat(formatC(sum(x[[i]]),width=maxchar))
cat("\n")
if(show.pc) {
percentages<-round(100*x[[i]]/sum(x[[i]]),1)
cat("% ",formatC(as.character(percentages),width=maxchar),"\n")
if(cum.pc)
cat("cum%",formatC(as.character(cumsum(percentages)),width=maxchar),"\n")
if(any(names(x[[i]]) == "NA")) {
xlen<-length(x[[i]])
nna<-x[[i]][xlen]
percentages<-round(100*x[[i]][-xlen]/sum(x[[i]][-xlen]),1)
cat("%!NA",formatC(as.character(percentages),width = maxchar),"\n")
}
}
cat("\n")
}
}
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.