## pulmonary data used in Hsu and Peruggia paper defining the mean-mean plot
## See ?plot.mmc.multicomp for details on the dataset.
pulmonary <- read.table(hh("datasets/pulmonary.dat"), header=TRUE,
row.names="group")
pulmonary
anova.mean(row.names(pulmonary),
pulmonary$n,
pulmonary$ybar,
pulmonary$s,
ylabel="pulmonary")
Run the code above in your browser using DataCamp Workspace