data(BrookTrout)
data(BrookTrout2)
str(BrookTrout)
str(BrookTrout2)
bwplot(proportion.surviving ~ trout, BrookTrout)
aggregate( proportion.surviving ~ trout, BrookTrout, FUN = favstats)
if (require(Hmisc)) {
summary( proportion.surviving ~ trout, BrookTrout, fun = favstats)
}
Run the code above in your browser using DataLab