Score is approximately:
scoreHalfNormal(object, ...)
ModelAudit object or fitted model.
Extra arguments passed to hnp.
# NOT RUN {
library(car)
lm_model <- lm(prestige~education + women + income, data = Prestige)
lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
plotHalfNormal(lm_au)
# }
Run the code above in your browser using DataLab