print.crosstabs(x, digits = 2, marginal.totals = <<See below>>,
chi2.test = T, ...)
data <- data.frame(Pet = c("Dog","Dog","Cat","Cat","Cat"),
Food = c("Wet","Dry","Dry","Dry","Dry"))
tmp <- crosstabs(~Pet+Food, data = data)
print(tmp, marginal.totals = F, chi2.test = F)
# Produces the following output:
Call:
crosstabs( ~ Pet + Food, data = data)
5 cases in table
+----------+
|N |
|N/RowTotal|
|N/ColTotal|
|N/Total |
+----------+
Pet |Food
|Dry |Wet |
-------+-------+-------+
Cat |3 |0 |
|1.00 |0.00 |
|0.75 |0.00 |
|0.60 |0.00 |
-------+-------+-------+
Dog |1 |1 |
|0.50 |0.50 |
|0.25 |1.00 |
|0.20 |0.20 |
-------+-------+-------+