data(toxo)
summary(toxo)
attach(toxo)
toxofit<-glm(cbind(positive,nsubs-positive)~rainfall+I(rainfall^2)+I(rainfall^3),family=binomial)
rsq(toxofit)
rsq(toxofit,adj=TRUE)
rsq.partial(toxofit)
detach(toxo)
Run the code above in your browser using DataLab