data(ais)
m1 <- selm(log(Fe) ~ BMI + LBM, family = "sn", data = ais)
intervCP <- confint(m1)
intervDP <- confint(m1, param.type="DP")
confint(m1, parm=2:3)
confint(m1, parm=c("omega", "alpha"), param.type="DP")
Run the code above in your browser using DataLab