## parametric bootstrapping to calculate standard error:
## use best output from StagedChoiceSplineMix exampl
#out.se<-bs.se(output=out$best, B=100)
#out.se$betab.se
#out.se$betaw.se
#out.se$lambda.se
Run the code above in your browser using DataLab