data("Firm")
fitPL <- PLreg(firmcost ~ sizelog + indcost | sizelog + indcost,
data = Firm,
family = "SLASH",
zeta = 2.13)
summary(fitPL)
plot(fitPL, type = "standardized")
Run the code above in your browser using DataLab