# NOT RUN {
# Compare mean BMI in control vs. treatment group in sample dataset
(meanstable1 <- tabmeans(BMI ~ Group, data = tabdata))
# Same as previous, but specifying input vectors rather than formula
(meanstable2 <- tabmeans(x = tabdata$Group, y = tabdata$BMI))
# Compare mean baseline systolic BP across tertiles of BMI
(meanstable3 <- tabmeans(bp.1 ~ BMI, data = tabdata,
quantiles = 3, yname = "Systolic BP"))
# Create single table comparing mean BMI and mean age in control vs.
# treatment group. Drop missing observations first.
tabdata2 <- subset(tabdata, ! is.na(BMI) & ! is.na(Age))
(meanstable4 <- rbind(tabmeans(BMI ~ Group, data = tabdata2),
tabmeans(Age ~ Group, data = tabdata2)))
# Same as previous, but using tabmulti for convenience
(meanstable5 <- tabmulti(BMI + Age ~ Group, data = tabdata))
# }
Run the code above in your browser using DataLab