# NOT RUN {
library(report)
model <- t.test(Sepal.Length ~ Species, data = iris[1:100, ])
r <- report(model)
# Text
r
summary(r)
# Tables
as.data.frame(r)
summary(as.data.frame(r)) # equivalent to as.table(r)
# List
as.list(r)
# }
Run the code above in your browser using DataLab