##Hollander, Wolfe, Chicken Example 4.5 Plasma Glucose in Geese
plasma.glucose<-list(healthy.geese = c(297, 340, 325, 227, 277, 337,
250, 290), poisoned.geese = c(293, 291, 289, 430, 510, 353, 318
))
pFligPoli(plasma.glucose)
Run the code above in your browser using DataLab