if (FALSE) {
# Create bayesian setup with
bayesianSetup <- createBayesianSetup(likelihood = testDensityNormal,
prior = createUniformPrior(lower = -10,
upper = 10))
# running MCMC
out = runMCMC(bayesianSetup = bayesianSetup)
# diagnostic plots
plotDiagnostic(out)
}
Run the code above in your browser using DataLab