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