ggPredictive {CNPBayes} | R Documentation |
Compare the posterior predictive distribution to the empirical data
ggPredictive(model, predict, adjust = 1/3)
model |
a SB, MB, SBP, or MBP model |
predict |
a |
adjust |
a length-one numeric vector passed to |
a 'gg' object
bmodel <- MultiBatchModelExample mp <- McmcParams(iter=500, burnin=150, nStarts=4) mcmcParams(bmodel) <- mp ## Not run: ## this is preferred to posteriorSimulation, but takes longer bmodel <- gibbs(model="MB", dat=y(bmodel), mp=mp, hp.list=hpList()[["MB"]], batches=batch(bmodel)) ## End(Not run) bmodel <- posteriorSimulation(bmodel) tab <- posteriorPredictive(bmodel) ggPredictive(bmodel, tab)