toHTML: Formats models to HTML according to American Journal of...

In ASAtable: Model-output formatter for sociological research.

Usage

toHTML(x, ...)

## Default S3 method:
toHTML(x, y = NULL, z = NULL, file = paste(tempfile(), ".html", 
    sep = ""), caption = "Add Table Title Here!", note = NULL, 
    tablewidth = 600, autobrowse = TRUE, msword = FALSE, append = TRUE, 
    cgroup = NULL, n.cgroup = NULL, rgroup = NULL, i.rgroup = NULL, 
    stub.title = "&nbsp", colwidth = "prop", colname = NULL, 
    firstline = "double", lwidth = "1pt", lang = "zh", fontsize = 10, 
    indent = 1, asterisk = FALSE, sepwidth = 12, codepage = "UTF-8", 
    digits = 2, ...)

## S3 method for class 'modelList'
toHTML(x, prefix = "Model", begin.numering = 1, group.name = names(x), 
    stub.col = rep(c("Coefficient", "S.E."), times = length(x)), 
    digits = 2, emptycell = "...", rgroup = NULL, relabel = NULL, 
    goffun = gof, Nfun = N, file = NULL, coeffun = function(x) summary(x)$coef, 
    asterisk = TRUE, coefL2Mfun = cbindCoef, append = FALSE, ...)

Arguments

x	For modelList method, x is usually a object of modelList. This is useful for reporting multiple models. For the default method, x is a matrix.
...

Value

A HTML file.

Note

This table is in HTML format, which can be pasted to MS word directly from web browser. To get the best effect, MS IE is recommended to use to open the HTML file.

The table cannot display correctly if pasted to open office directly. To work around this problem, the author suggests paste the table into word, save it as word 2003 document (word 2007 format does not work), then open the word 2003 document with open office (but not by paste).

Author(s)

Ronggui HUANG

References

Guidelines for Tables,http://www.journals.uchicago.edu/page/ajs/msprep-tables.html,retrieved on 18,June,2009.

Examples

## report mutiple models in one table
data(Chirot,package="car")
fm1 <- lm(formula = intensity ~ commerce + tradition, data = Chirot)
fm2 <- lm(formula = intensity ~ commerce + tradition + midpeasant + inequality, data = Chirot)
toHTML(modelList(fm1,fm2),
       caption="This is the title of table",## title of table
       rgroup=list("Block A"=c("commerce","tradition"),"Block B"=c("midpeasant","inequality")), ## group of independent variables
       relabel=list(midpeasant="Strength of middle peasantry",inequality="Inequality of land tenure"), ## relabel variable names
       note="Note:\n1. This is a note.\n2. Models are OLS regression.", ## a note
       group.name=c("Group one","Group two"), ## group name, following prefix.
       )
## data frame to HTLM
toHTML(CO2[1:10,],cgroup=c("Col group one","Col group tow"),n.cgroup=c(2,3),stub.title="Stub title")
## add additional info: ncol(y)==length(cgroup) and ncol(z)==nrow(x)
toHTML(CO2[1:10,],cgroup=c("Col group one","Col group tow"),n.cgroup=c(2,3),stub.title="Stub title",y=matrix(c("a","b"),ncol=2),z=matrix(1:5,ncol=5))
## with row groups.
toHTML(CO2[1:10,],cgroup=c("group one","group tow"),n.cgroup=c(2,3),stub.title="Stub title",rgroup=list("Rgroup A"=NULL,"Rgroup B"=NULL),i.rgroup=c(0,4))
toHTML(CO2[1:10,],cgroup=c("group one","group tow"),n.cgroup=c(2,3),stub.title="Stub title",rgroup=list("Rgroup A"=c("A1",NA,NA,"A2",NA),"Rgroup B"=NULL),i.rgroup=c(1,3))

ASAtable documentation built on May 2, 2019, 5:55 p.m.