# NOT RUN {
tt <- t.test(rnorm(10))
tidy(tt)
glance(tt) # same output for all htests
tt <- t.test(mpg ~ am, data = mtcars)
tidy(tt)
wt <- wilcox.test(mpg ~ am, data = mtcars, conf.int = TRUE, exact = FALSE)
tidy(wt)
ct <- cor.test(mtcars$wt, mtcars$mpg)
tidy(ct)
chit <- chisq.test(xtabs(Freq ~ Sex + Class, data = as.data.frame(Titanic)))
tidy(chit)
augment(chit)
# }
Run the code above in your browser using DataLab