Mucociliary Clearance
Table 6.1 of Hollander and Wolfe (1999) lists the data for Half-Time of Mucociliary Clearance. We need to test if the time across various treatments is equal or not.
data(Mucociliary)
A data frame with 14 observations on the following 2 variables.
Treatmenttreatment levels Asbestosis Normal Subjects Obstructive Airways Disease
Timehalf-time of mucociliary clearance
Hollander, M., and Wolfe, D. A. (1973-99). Nonparametric Statistical Methods, 2e. J. Wiley.
data(Mucociliary) Mucociliary$Rank <- rank(Mucociliary$Time) aggregate(Mucociliary$Rank,by=list(Mucociliary$Treatment),sum) kruskal.test(Time~Treatment,data=Mucociliary)
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.