# NOT RUN {
set.seed(12345)
gamma.fun = ellipse(a = 0.35, b = 0.25)
norm.obs = parnormobs(m = 100, mu.in = 4, mu.out = 1,
sd.in = 1.5, sd.out = 1, design = 'J',
center = c(0.5,0.5), gamma.fun)
norm.samp = fitContImage(image = norm.obs, nrun = 1000, nburn = 0,
J = 10,ordering_mu = "I",ordering_sigma = "I", slice = FALSE, outputAll = FALSE)
par(mfrow = c(1,3))
plotBD(norm.samp, 1)
plotBD(norm.samp, 2)
plotBD(norm.samp, 3)
# }
Run the code above in your browser using DataLab