# NOT RUN {
# Compare median BMI in control group vs. treatment group in sample dataset
(medtable1 <- tabmedians(BMI ~ Group, data = tabdata))
# Same as previous, but specifying input vectors rather than formula
(medtable2 <- tabmedians(x = tabdata$Group, y = tabdata$BMI))
# Compare median baseline systolic BP across tertiles of BMI
(medtable3 <- tabmedians(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))
(medtable4 <- rbind(tabmeans(BMI ~ Group, data = tabdata2),
tabmeans(Age ~ Group, data = tabdata2)))
# Same as previous, but using tabmulti for convenience
(medtable5 <- tabmulti(data = tabdata, xvarname = "Group",
yvarnames = c("BMI", "Age"), ymeasures = "median"))
# }
Run the code above in your browser using DataLab