importFrom("utils", "packageDescription")
export("caption<-", "caption", "label", "label<-",
"align<-", "align", "digits<-", "digits", "display<-",
- "display", "xtable", "xtable.xtableList", "xtable.lsmeans",
+ "display", "xtable",
+ "xtableMatharray","xtableList", "xtablelsmeans",
"print.xtable", "print.xtableMatharray", "print.xtableList",
"toLatex.xtable",
"autoformat", "xalign", "xdigits", "xdisplay")
S3method("xtable", "data.frame")
S3method("xtable", "matrix")
-S3method("xtable", "xtableMatharray")
-S3method("xtable", "xtableList")
S3method("xtable", "table")
S3method("xtable", "anova")
S3method("xtable", "aov")
S3method("xtable", "coxph")
S3method("xtable", "ts")
S3method("xtable", "zoo")
-S3method("xtable", "lsmeans")
+++ /dev/null
-print.xtableList <- function(x,\r
- type = getOption("xtable.type", "latex"),\r
- file = getOption("xtable.file", ""),\r
- append = getOption("xtable.append", FALSE),\r
- floating = getOption("xtable.floating", TRUE),\r
- floating.environment = getOption("xtable.floating.environment", "table"),\r
- table.placement = getOption("xtable.table.placement", "ht"),\r
- caption.placement = getOption("xtable.caption.placement", "bottom"),\r
- caption.width = getOption("xtable.caption.width", NULL),\r
- latex.environments = getOption("xtable.latex.environments", c("center")),\r
- tabular.environment = getOption("xtable.tabular.environment", "tabular"),\r
- size = getOption("xtable.size", NULL),\r
- hline.after = NULL,\r
- NA.string = getOption("xtable.NA.string", ""),\r
- include.rownames = getOption("xtable.include.rownames", TRUE),\r
- include.colnames = getOption("xtable.include.colnames", TRUE),\r
- only.contents = getOption("xtable.only.contents", FALSE),\r
- add.to.row = NULL,\r
- sanitize.text.function = getOption("xtable.sanitize.text.function", NULL),\r
- sanitize.rownames.function = getOption("xtable.sanitize.rownames.function",\r
- sanitize.text.function),\r
- sanitize.colnames.function = getOption("xtable.sanitize.colnames.function",\r
- sanitize.text.function),\r
- math.style.negative = getOption("xtable.math.style.negative", FALSE),\r
- html.table.attributes = getOption("xtable.html.table.attributes", "border=1"),\r
- print.results = getOption("xtable.print.results", TRUE),\r
- format.args = getOption("xtable.format.args", NULL),\r
- rotate.rownames = getOption("xtable.rotate.rownames", FALSE),\r
- rotate.colnames = getOption("xtable.rotate.colnames", FALSE),\r
- booktabs = getOption("xtable.booktabs", FALSE),\r
- scalebox = getOption("xtable.scalebox", NULL),\r
- width = getOption("xtable.width", NULL),\r
- comment = getOption("xtable.comment", TRUE),\r
- timestamp = getOption("xtable.timestamp", date()),\r
- colnames.format = "single",\r
- ...)\r
-{\r
- ## Get number of rows for each table in list of tables\r
- if (booktabs){\r
- tRule <- "\\toprule"\r
- mRule <- "\\midrule"\r
- bRule <- "\\bottomrule"\r
- } else {\r
- tRule <- "\\hline"\r
- mRule <- "\\hline"\r
- bRule <- "\\hline"\r
- }\r
- nCols <- dim(x[[1]])[2]\r
- rowNums <- sapply(x, dim)[1,]\r
- combinedRowNums <- cumsum(rowNums)\r
- combined <- do.call(rbind, x)\r
- if (colnames.format == "single"){\r
- add.to.row <- list(pos = NULL, command = NULL)\r
- add.to.row$pos <- as.list(c(0, combinedRowNums[-length(x)],\r
- dim(combined)[1]))\r
- command <- sapply(x, attr, "subheading")\r
-\r
- add.to.row$command[1:length(x)] <-\r
- paste0(mRule,"\n\\multicolumn{", nCols, "}{l}{", command, "}\\\\\n")\r
- if ( (booktabs) & length(attr(x, "message") > 0) ){\r
- attr(x, "message")[1] <-\r
- paste0("\\rule{0em}{2.5ex}", attr(x, "message")[1])\r
- }\r
- add.to.row$command[length(x) + 1] <-\r
- paste0("\n\\multicolumn{", nCols, "}{l}{", attr(x, "message"), "}\\\\\n",\r
- collapse = "")\r
- add.to.row$command[length(x) + 1] <-\r
- paste0(bRule, add.to.row$command[length(x) + 1])\r
-\r
- class(combined) <- c("xtableList", "data.frame")\r
- hline.after <- c(-1)\r
- include.colnames <- TRUE\r
- }\r
-\r
- if (colnames.format == "multiple"){\r
- if (is.null(sanitize.colnames.function)) {\r
- colHead <- names(x[[1]])\r
- } else {\r
- colHead <- sanitize.colnames.function(names(x[[1]]))\r
- }\r
- if (rotate.colnames) {\r
- colHead <- paste("\\begin{sideways}", colHead, "\\end{sideways}")\r
- }\r
- colHead <- paste0(colHead, collapse = " & ")\r
- colHead <- paste0(tRule, "\n", colHead, " \\\\", mRule, "\n")\r
- add.to.row <- list(pos = NULL, command = NULL)\r
- add.to.row$pos <- as.list(c(0, c(combinedRowNums[1:length(x)])))\r
- command <- sapply(x, attr, "subheading")\r
- add.to.row$command[1] <-\r
- paste0("\n\\multicolumn{", nCols, "}{l}{", command[1], "}", " \\\\ \n",\r
- colHead)\r
- add.to.row$command[2:length(x)] <-\r
- paste0(bRule,\r
- "\\\\ \n\\multicolumn{", nCols, "}{l}{",\r
- command[2:length(x)], "}",\r
- "\\\\ \n",\r
- colHead)\r
- if ( (booktabs) & length(attr(x, "message") > 0) ){\r
- attr(x, "message")[1] <-\r
- paste0("\\rule{0em}{2.5ex}", attr(x, "message")[1])\r
- }\r
- add.to.row$command[length(x) + 1] <-\r
- paste0("\n\\multicolumn{", nCols, "}{l}{", attr(x, "message"), "}\\\\\n",\r
- collapse = "")\r
- add.to.row$command[length(x) + 1] <-\r
- paste0(bRule, add.to.row$command[length(x) + 1])\r
-\r
- class(combined) <- c("xtableList", "data.frame")\r
- hline.after <- NULL\r
-\r
- include.colnames <- FALSE\r
- }\r
-\r
- print.xtable(combined,\r
- type = type,\r
- floating = floating,\r
- floating.environment = floating.environment,\r
- table.placement = table.placement,\r
- caption.placement = caption.placement,\r
- caption.width = caption.width,\r
- latex.environments = latex.environments,\r
- tabular.environment = tabular.environment,\r
- size = size,\r
- hline.after = hline.after,\r
- NA.string = NA.string,\r
- include.rownames = include.rownames,\r
- include.colnames = include.colnames,\r
- only.contents = only.contents,\r
- add.to.row = add.to.row,\r
- sanitize.text.function = sanitize.text.function,\r
- sanitize.rownames.function = sanitize.rownames.function,\r
- sanitize.colnames.function = sanitize.colnames.function,\r
- math.style.negative = math.style.negative,\r
- html.table.attributes = html.table.attributes,\r
- print.results = print.results,\r
- format.args = format.args,\r
- rotate.rownames = rotate.rownames,\r
- rotate.colnames = rotate.colnames,\r
- booktabs = booktabs,\r
- scalebox = scalebox,\r
- width = width,\r
- comment = comment,\r
- timestamp = timestamp,\r
- ...)\r
-\r
-}\r
+++ /dev/null
-print.xtableMatharray <- function(x,
- print.results = TRUE,
- format.args = getOption("xtable.format.args", NULL),
- scalebox = getOption("xtable.scalebox", NULL),
- comment = FALSE,
- timestamp = NULL,
- ...)
-{
- class(x) <- c("xtableMatharray","data.frame")
- print.xtable(x, floating = FALSE,
- tabular.environment = 'array',
- include.rownames = FALSE, include.colnames = FALSE,
- hline.after = NULL,
- print.results = print.results,
- format.args = format.args,
- scalebox = scalebox,
- comment = comment,
- timestamp = timestamp,
- ...)
-}
...))
}
-### xtableMatharray object
-### To deal with numeric arrays such as a variance-covariance matrix
-### From a request by James Curran, 16 October 2015
-xtable.xtableMatharray <- function(x, caption = NULL, label = NULL,
- align = NULL, digits = NULL,
- display = NULL, auto = FALSE,
- ...) {
- class(x) <- c("xtableMatharray","matrix")
- xtbl <- xtable.matrix(x,
- caption = caption, label = label, align = align,
- digits = digits, display = display, auto = auto,
- ...)
- class(xtbl) <- c("xtableMatharray","xtable","data.frame")
- return(xtbl)
-}
+
### table objects (of 1 or 2 dimensions) by Guido Gay, 9 Feb 2007
### Fixed to pass R checks by DBD, 9 May 2007
return(xtable(as.ts(x), ...))
}
-### Function to create lists of tables
-xtable.xtableList <- function(x, caption = NULL, label = NULL, align = NULL,
- digits = NULL, display = NULL, ...) {
- if (is.null(digits)){
- digitsList <- vector("list", length(x))
- } else {
- if (!is.list(digits)){
- digitsList <- vector("list", length(x))
- for (i in 1:length(x)) digitsList[[i]] <- digits
- }
- }
- if (is.null(display)){
- displayList <- vector("list", length(x))
- } else {
- if (!is.list(display)){
- displayList <- vector("list", length(x))
- for (i in 1:length(x)) displayList[[i]] <- display
- }
- }
- xList <- vector("list", length(x))
- for (i in 1:length(x)){
- xList[[i]] <- xtable(x[[i]], caption = caption, label = label,
- align = align, digits = digitsList[[i]],
- display = displayList[[i]], ...)
- attr(xList[[i]], 'subheading') <- attr(x, 'subheadings')[[i]]
- }
- attr(xList, "message") <- attr(x, "message")
- attr(xList, "caption") <- caption
- attr(xList, "label") <- label
- return(xList)
-}
-### Uses xtable.xtableList
-xtable.lsmeans <- function(x, caption = NULL, label = NULL,
- align = NULL, digits = NULL,
- display = NULL, auto = FALSE,
- ...){
- if (attr(x, "estName") == "lsmean"){
- xList <- split(x, f = x[, 2])
- for (i in 1:length(xList)){
- xList[[i]] <- as.data.frame(xList[[i]][, -2])
- }
- attr(xList, "subheadings") <-
- paste0(dimnames(x)[[2]][2], " = ", levels(x[[2]]))
- attr(xList, "message") <- c("", attr(x, "mesg"))
- xList <- xtable.xtableList(xList, caption =caption, label = label,
- align = align, digits = digits,
- display = display, auto = auto, ...)
- } else {
- xList <- x
- xList <- xtable.data.frame(xList, caption =caption, label = label,
- align = align, digits = digits,
- display = display, auto = auto, ...)
- }
- return(xList)
-}
--- /dev/null
+### Function to create lists of tables\r
+xtableList <- function(x, caption = NULL, label = NULL, align = NULL,\r
+ digits = NULL, display = NULL, ...) {\r
+ if (is.null(digits)){\r
+ digitsList <- vector("list", length(x))\r
+ } else {\r
+ if (!is.list(digits)){\r
+ digitsList <- vector("list", length(x))\r
+ for (i in 1:length(x)) digitsList[[i]] <- digits\r
+ }\r
+ }\r
+ if (is.null(display)){\r
+ displayList <- vector("list", length(x))\r
+ } else {\r
+ if (!is.list(display)){\r
+ displayList <- vector("list", length(x))\r
+ for (i in 1:length(x)) displayList[[i]] <- display\r
+ }\r
+ }\r
+ xList <- vector("list", length(x))\r
+ for (i in 1:length(x)){\r
+ xList[[i]] <- xtable(x[[i]], caption = caption, label = label,\r
+ align = align, digits = digitsList[[i]],\r
+ display = displayList[[i]], ...)\r
+ attr(xList[[i]], 'subheading') <- attr(x, 'subheadings')[[i]]\r
+ }\r
+ attr(xList, "message") <- attr(x, "message")\r
+ attr(xList, "caption") <- caption\r
+ attr(xList, "label") <- label\r
+ class(xList) <- c("xtableList", "data.frame")\r
+ return(xList)\r
+}\r
+\r
+print.xtableList <- function(x,\r
+ type = getOption("xtable.type", "latex"),\r
+ file = getOption("xtable.file", ""),\r
+ append = getOption("xtable.append", FALSE),\r
+ floating = getOption("xtable.floating", TRUE),\r
+ floating.environment = getOption("xtable.floating.environment", "table"),\r
+ table.placement = getOption("xtable.table.placement", "ht"),\r
+ caption.placement = getOption("xtable.caption.placement", "bottom"),\r
+ caption.width = getOption("xtable.caption.width", NULL),\r
+ latex.environments = getOption("xtable.latex.environments", c("center")),\r
+ tabular.environment = getOption("xtable.tabular.environment", "tabular"),\r
+ size = getOption("xtable.size", NULL),\r
+ hline.after = NULL,\r
+ NA.string = getOption("xtable.NA.string", ""),\r
+ include.rownames = getOption("xtable.include.rownames", TRUE),\r
+ include.colnames = getOption("xtable.include.colnames", TRUE),\r
+ only.contents = getOption("xtable.only.contents", FALSE),\r
+ add.to.row = NULL,\r
+ sanitize.text.function = getOption("xtable.sanitize.text.function", NULL),\r
+ sanitize.rownames.function = getOption("xtable.sanitize.rownames.function",\r
+ sanitize.text.function),\r
+ sanitize.colnames.function = getOption("xtable.sanitize.colnames.function",\r
+ sanitize.text.function),\r
+ math.style.negative = getOption("xtable.math.style.negative", FALSE),\r
+ html.table.attributes = getOption("xtable.html.table.attributes", "border=1"),\r
+ print.results = getOption("xtable.print.results", TRUE),\r
+ format.args = getOption("xtable.format.args", NULL),\r
+ rotate.rownames = getOption("xtable.rotate.rownames", FALSE),\r
+ rotate.colnames = getOption("xtable.rotate.colnames", FALSE),\r
+ booktabs = getOption("xtable.booktabs", FALSE),\r
+ scalebox = getOption("xtable.scalebox", NULL),\r
+ width = getOption("xtable.width", NULL),\r
+ comment = getOption("xtable.comment", TRUE),\r
+ timestamp = getOption("xtable.timestamp", date()),\r
+ colnames.format = "single",\r
+ ...)\r
+{\r
+ ## Get number of rows for each table in list of tables\r
+ if (booktabs){\r
+ tRule <- "\\toprule"\r
+ mRule <- "\\midrule"\r
+ bRule <- "\\bottomrule"\r
+ } else {\r
+ tRule <- "\\hline"\r
+ mRule <- "\\hline"\r
+ bRule <- "\\hline"\r
+ }\r
+ nCols <- dim(x[[1]])[2]\r
+ rowNums <- sapply(x, dim)[1,]\r
+ combinedRowNums <- cumsum(rowNums)\r
+ combined <- do.call(rbind, x)\r
+ if (colnames.format == "single"){\r
+ add.to.row <- list(pos = NULL, command = NULL)\r
+ add.to.row$pos <- as.list(c(0, combinedRowNums[-length(x)],\r
+ dim(combined)[1]))\r
+ command <- sapply(x, attr, "subheading")\r
+\r
+ add.to.row$command[1:length(x)] <-\r
+ paste0(mRule,"\n\\multicolumn{", nCols, "}{l}{", command, "}\\\\\n")\r
+ if ( (booktabs) & length(attr(x, "message") > 0) ){\r
+ attr(x, "message")[1] <-\r
+ paste0("\\rule{0em}{2.5ex}", attr(x, "message")[1])\r
+ }\r
+ add.to.row$command[length(x) + 1] <-\r
+ paste0("\n\\multicolumn{", nCols, "}{l}{", attr(x, "message"), "}\\\\\n",\r
+ collapse = "")\r
+ add.to.row$command[length(x) + 1] <-\r
+ paste0(bRule, add.to.row$command[length(x) + 1])\r
+\r
+ class(combined) <- c("xtableList", "data.frame")\r
+ hline.after <- c(-1)\r
+ include.colnames <- TRUE\r
+ }\r
+\r
+ if (colnames.format == "multiple"){\r
+ if (is.null(sanitize.colnames.function)) {\r
+ colHead <- names(x[[1]])\r
+ } else {\r
+ colHead <- sanitize.colnames.function(names(x[[1]]))\r
+ }\r
+ if (rotate.colnames) {\r
+ colHead <- paste("\\begin{sideways}", colHead, "\\end{sideways}")\r
+ }\r
+ colHead <- paste0(colHead, collapse = " & ")\r
+ colHead <- paste0(tRule, "\n", colHead, " \\\\", mRule, "\n")\r
+ add.to.row <- list(pos = NULL, command = NULL)\r
+ add.to.row$pos <- as.list(c(0, c(combinedRowNums[1:length(x)])))\r
+ command <- sapply(x, attr, "subheading")\r
+ add.to.row$command[1] <-\r
+ paste0("\n\\multicolumn{", nCols, "}{l}{", command[1], "}", " \\\\ \n",\r
+ colHead)\r
+ add.to.row$command[2:length(x)] <-\r
+ paste0(bRule,\r
+ "\\\\ \n\\multicolumn{", nCols, "}{l}{",\r
+ command[2:length(x)], "}",\r
+ "\\\\ \n",\r
+ colHead)\r
+ if ( (booktabs) & length(attr(x, "message") > 0) ){\r
+ attr(x, "message")[1] <-\r
+ paste0("\\rule{0em}{2.5ex}", attr(x, "message")[1])\r
+ }\r
+ add.to.row$command[length(x) + 1] <-\r
+ paste0("\n\\multicolumn{", nCols, "}{l}{", attr(x, "message"), "}\\\\\n",\r
+ collapse = "")\r
+ add.to.row$command[length(x) + 1] <-\r
+ paste0(bRule, add.to.row$command[length(x) + 1])\r
+\r
+ class(combined) <- c("xtableList", "data.frame")\r
+ hline.after <- NULL\r
+\r
+ include.colnames <- FALSE\r
+ }\r
+\r
+ print.xtable(combined,\r
+ type = type,\r
+ floating = floating,\r
+ floating.environment = floating.environment,\r
+ table.placement = table.placement,\r
+ caption.placement = caption.placement,\r
+ caption.width = caption.width,\r
+ latex.environments = latex.environments,\r
+ tabular.environment = tabular.environment,\r
+ size = size,\r
+ hline.after = hline.after,\r
+ NA.string = NA.string,\r
+ include.rownames = include.rownames,\r
+ include.colnames = include.colnames,\r
+ only.contents = only.contents,\r
+ add.to.row = add.to.row,\r
+ sanitize.text.function = sanitize.text.function,\r
+ sanitize.rownames.function = sanitize.rownames.function,\r
+ sanitize.colnames.function = sanitize.colnames.function,\r
+ math.style.negative = math.style.negative,\r
+ html.table.attributes = html.table.attributes,\r
+ print.results = print.results,\r
+ format.args = format.args,\r
+ rotate.rownames = rotate.rownames,\r
+ rotate.colnames = rotate.colnames,\r
+ booktabs = booktabs,\r
+ scalebox = scalebox,\r
+ width = width,\r
+ comment = comment,\r
+ timestamp = timestamp,\r
+ ...)\r
+\r
+}\r
+\r
+\r
+### Uses xtableList\r
+xtablelsmeans <- function(x, caption = NULL, label = NULL,\r
+ align = NULL, digits = NULL,\r
+ display = NULL, auto = FALSE,\r
+ ...){\r
+ if (attr(x, "estName") == "lsmean"){\r
+ xList <- split(x, f = x[, 2])\r
+ for (i in 1:length(xList)){\r
+ xList[[i]] <- as.data.frame(xList[[i]][, -2])\r
+ }\r
+ attr(xList, "subheadings") <-\r
+ paste0(dimnames(x)[[2]][2], " = ", levels(x[[2]]))\r
+ attr(xList, "message") <- c("", attr(x, "mesg"))\r
+ xList <- xtableList(xList, caption = caption, label = label,\r
+ align = align, digits = digits,\r
+ display = display, auto = auto, ...)\r
+ } else {\r
+ xList <- x\r
+ xList <- xtable.data.frame(xList, caption = caption, label = label,\r
+ align = align, digits = digits,\r
+ display = display, auto = auto, ...)\r
+ }\r
+ return(xList)\r
+}\r
--- /dev/null
+### xtableMatharray object\r
+### To deal with numeric arrays such as a variance-covariance matrix\r
+### From a request by James Curran, 16 October 2015\r
+xtableMatharray <- function(x, caption = NULL, label = NULL,\r
+ align = NULL, digits = NULL,\r
+ display = NULL, auto = FALSE,\r
+ ...) {\r
+ class(x) <- c("xtableMatharray","matrix")\r
+ xtbl <- xtable.matrix(x,\r
+ caption = caption, label = label, align = align,\r
+ digits = digits, display = display, auto = auto,\r
+ ...)\r
+ class(xtbl) <- c("xtableMatharray","xtable","data.frame")\r
+ return(xtbl)\r
+}\r
+\r
+print.xtableMatharray <- function(x,\r
+ print.results = TRUE,\r
+ format.args = getOption("xtable.format.args", NULL),\r
+ scalebox = getOption("xtable.scalebox", NULL),\r
+ comment = FALSE,\r
+ timestamp = NULL,\r
+ ...)\r
+{\r
+ class(x) <- c("xtableMatharray","data.frame")\r
+ print.xtable(x, floating = FALSE,\r
+ tabular.environment = 'array',\r
+ include.rownames = FALSE, include.colnames = FALSE,\r
+ hline.after = NULL,\r
+ print.results = print.results,\r
+ format.args = format.args,\r
+ scalebox = scalebox,\r
+ comment = comment,\r
+ timestamp = timestamp,\r
+ ...)\r
+}\r
class(V)\r
\r
### Test without any additional arguments\r
-mth <- xtable(V)\r
+mth <- xtableMatharray(V)\r
str(mth)\r
print(mth)\r
\r
### Test with arguments to xtable\r
-mth <- xtable(V, display = rep("E", 4))\r
+mth <- xtableMatharray(V, display = rep("E", 4))\r
str(mth)\r
print(mth)\r
\r
-mth <- xtable(V, digits = 6)\r
+mth <- xtableMatharray(V, digits = 6)\r
str(mth)\r
print(mth)\r
\r
### Test with additional print.xtableMatharray arguments\r
-mth <- xtable(V, digits = 6)\r
+mth <- xtableMatharray(V, digits = 6)\r
str(mth)\r
print(mth, format.args = list(decimal.mark = ","))\r
print(mth, scalebox = 0.5)\r
\name{xtable-internal}\r
-\alias{xtable.xtableList}\r
+\alias{xtableMatharray}\r
+\alias{xtableList}\r
\alias{print.xtableList}\r
-\alias{xtable.lsmeans}\r
+\alias{xtablelsmeans}\r
\r
\title{Internal xtable Functions}\r
\description{\r
\alias{xtable.ts}
\alias{xtable.table}
\alias{xtable.zoo}
+\alias{xtable.xtableList}
\title{Create Export Tables}
\description{
Convert an R object to an \code{xtable} object, which can
have attributes \code{caption} and \code{label}, but must have
attributes \code{align}, \code{digits}, and \code{display}.
}
-\value{An object of class \code{"xtable"} which inherits the
- \code{data.frame} class and contains several additional attributes
- specifying the table formatting options.
+\value{
+ For most \code{xtable} methods, an object of class \code{"xtable"}
+ which inherits the \code{data.frame} class and contains several
+ additional attributes specifying the table formatting options.
+
+ In the case of the \code{xtableMatharray} method, an object of class
+ \code{xtableMatharray}, which the \code{xtable} and \code{data.frame}
+ classes and contains several additional attributes specifying the
+ table formatting options.
+
}
\author{David Dahl \email{dahl@stat.byu.edu} with contributions and
suggestions from many others (see source code).
class(V)
### Test without any additional arguments
-mth <- xtable(V)
+mth <- xtableMatharray(V)
str(mth)
print(mth)
### Test with arguments to xtable
-mth <- xtable(V, display = rep("E", 4))
+mth <- xtableMatharray(V, display = rep("E", 4))
str(mth)
print(mth)
-mth <- xtable(V, digits = 6)
+mth <- xtableMatharray(V, digits = 6)
str(mth)
print(mth)
### Test with additional print.xtableMatharray arguments
-mth <- xtable(V, digits = 6)
+mth <- xtableMatharray(V, digits = 6)
str(mth)
print(mth, format.args = list(decimal.mark = ","))
print(mth, scalebox = 0.5)
\r
\r
<<xtablelist>>=\r
-xList <- xtable.xtableList(mtcarsList)\r
+xList <- xtableList(mtcarsList)\r
str(xList)\r
@ %def\r
\r
\r
\r
<<xtablelist1>>=\r
-xList1 <- xtable.xtableList(mtcarsList, digits = c(0,2,0,0,0,1,2))\r
+xList1 <- xtableList(mtcarsList, digits = c(0,2,0,0,0,1,2))\r
str(xList1)\r
@ %def\r
\r
<<xtablelist2>>=\r
-xList2 <- xtable.xtableList(mtcarsList, digits = c(0,2,0,0,0,1,2),\r
+xList2 <- xtableList(mtcarsList, digits = c(0,2,0,0,0,1,2),\r
caption = "Caption to List",\r
label = "tbl:xtableList")\r
str(xList2)\r
warp.lm <- lm(breaks ~ wool*tension, data = warpbreaks)\r
warp.lsm <- lsmeans(warp.lm, ~ tension | wool)\r
warp.sum <- summary(warp.lsm, adjust = "mvt")\r
-warp.xtblList <- xtable.lsmeans(warp.sum, digits = c(0,0,2,2,0,2,2))\r
+warp.xtblList <- xtablelsmeans(warp.sum, digits = c(0,0,2,2,0,2,2))\r
str(warp.xtblList)\r
@ %def\r
\r