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 | -------+-------+-------+