Shows contingency tables as HTML file in browser or viewer pane, or saves them as file.
sjt.xtab(var.row, var.col, weight.by = NULL, title = NULL, var.labels = NULL, value.labels = NULL, wrap.labels = 20, show.obs = TRUE, show.cell.prc = FALSE, show.row.prc = FALSE, show.col.prc = FALSE, show.exp = FALSE, show.legend = FALSE, show.na = FALSE, show.summary = TRUE, statistics = c("auto", "cramer", "phi", "spearman", "kendall", "pearson"), string.total = "Total", digits = 1, tdcol.n = "black", tdcol.expected = "#339999", tdcol.cell = "#993333", tdcol.row = "#333399", tdcol.col = "#339933", emph.total = FALSE, emph.color = "#f8f8f8", prc.sign = " %", hundret = "100.0", CSS = NULL, encoding = NULL, file = NULL, use.viewer = TRUE, no.output = FALSE, remove.spaces = TRUE, ...)
var.row  Variable that should be displayed in the table rows. 

var.col  Cariable that should be displayed in the table columns. 
weight.by  Vector of weights that will be applied to weight all cases.
Must be a vector of same length as the input vector. Default is

title  Table caption, as character vector. 
var.labels  Character vector with variable names, which will be used to label variables in the output. 
value.labels  Character vector (or 
wrap.labels  numeric, determines how many chars of the value, variable or axis labels are displayed in one line and when a line break is inserted. 
show.obs  Logical, if 
show.cell.prc  Logical, if 
show.row.prc  Logical, if 
show.col.prc  Logical, if 
show.exp  Logical, if 
show.legend  logical, if 
show.na  logical, if 
show.summary  Logical, if 
statistics  Name of measure of association that should be computed. May
be one of 
string.total  Character label for the total column / row header 
digits  Numeric, amount of digits after decimal point when rounding estimates and values. 
tdcol.n  Color for highlighting count (observed) values in table cells. Default is black. 
tdcol.expected  Color for highlighting expected values in table cells. Default is cyan. 
tdcol.cell  Color for highlighting cell percentage values in table cells. Default is red. 
tdcol.row  Color for highlighting row percentage values in table cells. Default is blue. 
tdcol.col  Color for highlighting column percentage values in table cells. Default is green. 
emph.total  Logical, if 
emph.color  Logical, if 
prc.sign  The percentage sign that is printed in the table cells, in HTMLformat.
Default is 
hundret  Default value that indicates the 100percent columnsums (since rounding values
may lead to nonexact results). Default is 
CSS  A 
encoding  String, indicating the charset encoding used for variable and
value labels. Default is 
file  Destination file, if the output should be saved as file.
If 
use.viewer  Logical, if 
no.output  Logical, if 
remove.spaces  Logical, if 
...  Other arguments, currently passed down to the test statistics functions

Invisibly returns
the web page style sheet (page.style
),
the web page content (page.content
),
the complete htmloutput (page.complete
) and
the htmltable with inlinecss for use with knitr (knitr
)
for further use.
The pvalue for Cramer's V and the Phi coefficient are based
on chisq.test()
. If any expected value of a table cell is
smaller than 5, or smaller than 10 and the df is 1, then fisher.test()
is used to compute the pvalue. The test statistic is calculated
with cramer()
resp. phi()
.
Both test statistic and pvalue for Spearman's rho, Kendall's tau
and Pearson's r are calculated with cor.test()
.
When statistics = "auto"
, only Cramer's V or Phi are calculated,
based on the dimension of the table (i.e. if the table has more than
two rows or columns, Cramer's V is calculated, else Phi).
# prepare sample data set data(efc) # print simple cross table with labels# NOT RUN { sjt.xtab(efc$e16sex, efc$e42dep) # print cross table with manually set # labels and expected values sjt.xtab( efc$e16sex, efc$e42dep, var.labels = c("Elder's gender", "Elder's dependency"), show.exp = TRUE ) # print minimal cross table with labels, total col/row highlighted sjt.xtab(efc$e16sex, efc$e42dep, show.cell.prc = FALSE, emph.total = TRUE) # User defined style sheet sjt.xtab(efc$e16sex, efc$e42dep, CSS = list(css.table = "border: 2px solid;", css.tdata = "border: 1px solid;", css.horline = "borderbottom: double blue;")) # }# ordinal data, use Kendall's tau sjt.xtab(efc$e42dep, efc$quol_5, statistics = "kendall") # calculate Spearman's rho, with continuity correction sjt.xtab( efc$e42dep, efc$quol_5, statistics = "spearman", exact = FALSE, continuity = TRUE )