data("PeruVotes")
fitPL <- PLreg(votes ~ HDI | HDI,
data = PeruVotes,
family = "TF",
zeta = 5,
control = PLreg.control(lambda = 1))
summary(fitPL)
plot(fitPL, type = "standardized")
Run the code above in your browser using DataLab