powered by
xtabs
as.xtabs(x, ...) ## S3 method for class 'data.frame': as.xtabs(x, rowvar = NULL, colvar = NULL, labels = 1, ...) ## S3 method for class 'matrix': as.xtabs(x, rowvar = NULL, colvar = NULL, ...)
## S3 method for class 'data.frame': as.xtabs(x, rowvar = NULL, colvar = NULL, labels = 1, ...)
## S3 method for class 'matrix': as.xtabs(x, rowvar = NULL, colvar = NULL, ...)
# example from example(fisher.test) df <- data.frame( X=c('Tea','Milk'), Tea=c(3,1), Milk=c(1,3) ) xt <- as.xtabs(df, rowvar="Guess", colvar="Truth"); xt if (require(vcd)) { mosaic(xt) }
Run the code above in your browser using DataLab