## Load the data
data(sim2)
## Fit model
mod_FG <- DI(y = "response", FG = c("G", "G", "L", "L"),
prop = 3:6, data = sim2, DImodel = "FG")
## Describe model
describe_model(mod_FG)
mod_FULL <- DI(y = "response", estimate_theta = TRUE,
prop = 3:6, data = sim2, DImodel = "FULL")
describe_model(mod_FULL)
mod_AV <- DI(y = "response", ID = c("ID1", "ID1", "ID2", "ID2"),
estimate_theta = TRUE,
prop = 3:6, data = sim2, DImodel = "AV")
describe_model(mod_AV)
Run the code above in your browser using DataLab