if (FALSE) {
library(odfWeave)
data(infert, package = "datasets")
x <- crosstab(infert$education, infert$induced, expected = TRUE)
# Use the function directly:
odfTable(forODFTable(x))
# Create a method for odfTable:
odfTable.CrossTable <- function(x) odfTable(forODFTable(x))
odfTable(x)
methods(odfTable)
}
Run the code above in your browser using DataLab