##Hollander-Wolfe-Chicken Example 6.1 Half-Time of Mucociliary Clearance
mucociliary<-list(Normal = c(2.9, 3, 2.5, 2.6, 3.2), Obstructive = c(3.8,
2.7, 4, 2.4), Asbestosis = c(2.8, 3.4, 3.7, 2.2, 2))
pKW(mucociliary)
Run the code above in your browser using DataLab