powered by
E9.8
data(E9.8)
data(E9.8) attach(E9.8) E9.8.m1 <- lm(R ~ I + S, data=E9.8) summary(E9.8.m1) plot(I, resid(E9.8.m1, type="partial")[,"I"]) plot(S, resid(E9.8.m1, type="partial")[,"S"]) detach()
Run the code above in your browser using DataLab