# \donttest{
inp_data <- flps::makeInpData(
N = 200,
R2Y = 0.2,
R2eta = 0.5,
omega = 0.2,
tau0 = 0.23,
tau1 = -0.16,
betaL = 0.1,
betaY = 0.2,
lambda = 0.8,
nitem = 10,
nfac = 1,
lvmodel = 'rasch' )
res <- runFLPS(
inp_data = inp_data,
outcome = "Y",
group = "Z",
covariate = c("X1"),
lv_type = "rasch",
lv_model = "F =~ v1 + v2 + v3 + v4 + v5 + v6 + v7 + v8 + v9 + v10",
stan_options = list(iter = 1000, warmup = 500, cores = 1, chains = 2)
)
# }
Run the code above in your browser using DataLab