latexTable: Generate a Latex Table Form Based on a Numerical Matrix

In feiyoung/simutool: Common Tool Functions In Simulation

Description

Generate a latex table form based on a numerical matrix

Usage

  latexTable(res, paraname = 'beta',align=NULL, digits=NULL, nhline=3,
  lsub=as.character(1:(nrow(res)/nhline)), side=1)

Arguments

res	a numeric matrix with rownames and colnames, which will be regarded as rownames and colnames of latex table.
parname	a character string, specify the name of parameter in the estimate performance evaluation table, such as 'beta', 'gamma', 'alpha', etc. However, if it is NULL, then don't have the first column for parname.
align	a character vector, specify the way of alignment.
digits	an integer or a numeric vector, specify the decimal number rounded.
nhline	an integer, how many rows each parameter's imformation occupies.
lsub	a character vector, the subscript of parameters
side	an integer, how many parameters' imformation arrange in one line

Details

This function is used to establish latex table. The colnames of res are usually competitive methods, such 'model1', 'model2', 'lm', 'glm', etc. And the rownames of res are usually 'Bias', 'SD', 'RMSE', 'CP' and 'SE'.

Value

No value returned. Only print a format of latex table for a matrix with rownames and colnames.

Note

nothing

Author(s)

Liu Wei

References

Lamport, L. (1994). LATEX: a document preparation system: user's guide and reference manual. Addison-wesley.

See Also

xtable

Examples

# example one
  library(MASS)
  res <- mvrnorm(12, rep(0,5), cov.mat(rep(3,5), 0.5))
  row.names(res) <- rep(c('Bias','SD', 'RMSE'), nrow(res)/3)
  colnames(res) <- paste0('method', 1:ncol(res))
  latexTable(res)
  latexTable(res, paraname = NULL)
  latexTable(res, digits=2, side=2)
# exmple two
  library(MASS)
  res <- mvrnorm(16, rep(0,5), cov.mat(rep(3,5), 0.5))
  row.names(res) <- rep(c('Bias','SD', 'RMSE', 'CP'), nrow(res)/4)
  colnames(res) <- paste0('method', 1:ncol(res))
  latexTable(res=res, paraname = 'alpha', align = rep('r', ncol(res)+2),nhline = 4,
           digits = rep(3,ncol(res)), lsub = c(paste0('2', 1:(nrow(res)/4))))
# example one
  library(MASS)
  res <- mvrnorm(27, rep(0,2), cov.mat(rep(3,2), 0.5))
  row.names(res) <- rep(c('Bias','SD', 'RMSE'), nrow(res)/3)
  colnames(res) <- paste0('method', 1:ncol(res))
  latexTable(res, digits=3, side=3, nhline=3)

feiyoung/simutool documentation built on Sept. 15, 2021, 10:14 p.m.