palist <- letters[1:10]
df <- twoLevelGraph(palist, 300)
theta <- rnorm(length(palist))
names(theta) <- palist
df <- generateItem(df, theta, th=rep(0.5, 4))
df <- filterGraph(df)
df <- normalizeData(df)
dl <- prepCleanData(df)
dl$scale <- 1.5
# \donttest{
m1 <- pcStan("unidim_ll", dl)
loo1 <- toLoo(m1, cores=1)
print(loo1)
# }
Run the code above in your browser using DataLab