data(Rohwer, package="heplots")
Rohwer2 <- subset(Rohwer, subset=group==2)
rownames(Rohwer2)<- 1:nrow(Rohwer2)
Rohwer.mod <- lm(cbind(SAT, PPVT, Raven) ~ n+s+ns+na+ss, data=Rohwer2)
options(digits=3)
hatvalues(Rohwer.mod)
cooks.distance(Rohwer.mod)
Run the code above in your browser using DataLab