data("PeruVotes")
fitPL <- PLreg(votes ~ HDI | HDI, data = PeruVotes,
family = "TF", zeta = 5)
res_quantile = residuals(fitPL, type = "quantile")
res_standardized = residuals(fitPL, type = "standardized")
plot(res_standardized, pch = "+", ylim = c(-6, 6))
abline(h = -3, lty = 2)
abline(h = 3, lty = 2)
qqnorm(res_quantile)
qqline(res_quantile)
Run the code above in your browser using DataLab