data("Firm")
fitPL <- PLreg(firmcost ~ sizelog + indcost | sizelog + indcost, data = Firm,
family = "SLASH", zeta = 2.13)
summary(fitPL)
# \donttest{
envelope(fitPL, type = "standardized")
envelope(fitPL, type = "quantile")
envelope(fitPL, type = "deviance")# }
Run the code above in your browser using DataLab