# NOT RUN {
simulated = simulateData(d=2, k=3, n=100, m=60, cov="0", within="E", n.labels=2)
models1=mModelList(X=simulated$X, knowns=simulated$knowns, B=simulated$B,
kList=3:4, mean=c("D","E"), between="D", within="D",
cov="0", funct=belief)
plot(models1)
## Do not run
## It could take more than one minute
# simulated = simulateData(d=2, k=3, n=300, m=60, cov="0", within="E", n.labels=2)
#
# models1=mModelList(X=simulated$X, knowns=simulated$knowns, B=simulated$B,
# kList=3, mean=c("D","E"), between=c("D","E"), within=c("D","E"),
# cov=c("D","0"), funct=belief)
# plot(models1)
#
# models2 = beliefList(X=simulated$X, knowns=simulated$knowns, B=simulated$B,
# kList=2:7, mean="D", between="D", within="E", cov="0")
# plot(models2)
#
# models3 = beliefList(X=simulated$X, knowns=simulated$knowns, B=simulated$B,
# kList=2:7, mean="D")
# plot(models3)
# }
Run the code above in your browser using DataLab