#############################################################################
# EXAMPLE 1: Bond and Malloy (2018) illustration dataset
#############################################################################
data(data.bm2, package="srm")
dat <- data.bm2
#- estimation
mod1 <- srm::srm_arbsrm(dat)
mod1$par_summary
coef(mod1)
summary(mod1)
# \donttest{
#-- estimation with original Bond and Malloy code
mod1a <- srm::srm_arbsrm(dat, use_srm=FALSE)
summary(mod1a)
# }
Run the code above in your browser using DataLab