powered by
data("lifetime")
data(lifetime) summary(lifetime) head(lifetime) attach(lifetime) igfit <- glm(time~env,family=inverse.gaussian) rsq(igfit) rsq(igfit,adj=TRUE) rsq.partial(igfit)
Run the code above in your browser using DataLab