data(usair)
usair$lnSO2 <- log(usair$SO2)
usair$lnmfg <- log(usair$mfgfirms)
usair$lnpopn <- log(usair$popn)
#ifndef S-Plus
usair.lm <- lm(lnSO2 ~ temp + lnmfg + wind + precip, data=usair)
#endif
#ifdef S-Plus
usair.lm <- lm(lnSO2 ~ temp + lnmfg + wind + precip, data=usair, x=TRUE)
#endif
X.residuals(usair.lm)
X.residuals(lnSO2 ~ temp + lnmfg + wind + precip, data=usair)
X.residuals(usair)
X.residuals(usair, y.name="lnSO2")
Run the code above in your browser using DataCamp Workspace