powered by
data(cats)
Sex
Bwt
Hwt
data(cats) attach(cats) mod<-lm(Hwt~Sex+Bwt+Sex:Bwt,data=cats) res <- resid(mod) hctest(Bwt, res)
Run the code above in your browser using DataLab