## MarginalModel
k(MarginalModelExample)
theta(MarginalModelExample)
plot.ts(theta(chains(MarginalModelExample)))
## BatchModel
k(BatchModelExample)
length(unique(batch(BatchModelExample)))
theta(BatchModelExample)
## Plot means for batches in one component
plot.ts(theta(chains(BatchModelExample))[, 1:3])
Run the code above in your browser using DataLab