powered by
data(forbes)
data(forbes) plot(forbes) fit <- lm(bp~pres,data=forbes) fit plot(forbes$pres,resid(fit)) # model OK? # try refitting with transformation fit <- lm(log(bp)~log(pres),data=forbes)
Run the code above in your browser using DataLab