#' Print crosstab results from crosstab()
#'
#' This function controls printing for class crosstab. It is the
#' same as print.data.frame except that row.names defaults to FALSE and
#' right defaults to FALSE. It also adds a title if this
#' was created when the frequencytable was created.
#' @param x The object to be printed.
#' @param row.names indicates if the row.names or numbers should be printed.
#' @param right Is a logical indicating if the values should be right aligned.
#' @param quote indicates if the string values should be returned enclosed in quotation marks.
#' @keywords data frequency count percent
#' @export
print.crosstab <- function (ctab, ..., digits = NULL, quote = FALSE, right = FALSE,
row.names = FALSE, dnames)
{
title <- ctab[["title"]]
ncases <- ctab[["n"]]
x <- ctab[["tab"]]
n<-nrow(ctab[["tab"]])
# This is from the table print function.
if (length(x) == 0L) {
cat(sprintf(ngettext(n, "data frame with 0 columns and %d row",
"data frame with 0 columns and %d rows"), n),
"\n",
sep = "")
}
else if (is.null(n) | n == 0L) {
print.default(names(x), quote = FALSE)
cat(gettext("No rows present in table"))
}
else {
m <- as.matrix(format.data.frame(x, digits = digits,
na.encode = FALSE))
if (title != ""){
title<-cat(title, sep ="\n")
title
} else {
print(ctab$formula)
}
print(m, ..., quote = quote, right = right)
}
invisible(x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.