Last chance! 50% off unlimited learning
Sale ends in
data(gala)
Species
Endemics
Area
Elevation
Nearest
Scruz
Adjacent
data(gala)
gala <- gala[,-2]
modt <- lm(sqrt(Species) ~ . , gala)
res <- resid(modt)
hctest(gala[,3], residuals(modt))
Run the code above in your browser using DataLab