# NOT RUN {
set.seed(323412431)
data("semnova_test_data", package = "semnova")
idata <- expand.grid(A = c("A1", "A2", "A3"), B = c("B1", "B2"))
mmodel <- create_mmodel(
A1B1 = "var1",
A2B1 = "var2",
A3B1 = "var3",
A1B2 = "var4",
A2B2 = "var5",
A3B2 = "var6",
lv_scaling = "referent"
)
fit_semnova <-
semnova(
formula = cbind(A1B1, A2B1, A3B1, A1B2, A2B2, A3B2) ~ 1,
data = semnova_test_data,
idata = idata,
idesign = ~ A * B,
mmodel = mmodel
)
summary(fit_semnova)
# }
Run the code above in your browser using DataLab