## Not run:
# hyperParams(MarginalModelExample)
# ## End(Not run)
hypp <- Hyperparameters(type="marginal",
k=k(MarginalModelExample),
alpha=c(9, 9, 10))
hyperParams(MarginalModelExample) <- hypp
Run the code above in your browser using DataLab