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