# NOT RUN {
cbs <- cdnow.sample()$cbs
# for demo purposes we use short MCMC runs and small sample size
param.draws <- pnbd.mcmc.DrawParameters(cbs,
mcmc = 200, burnin = 100, thin = 20, chains = 1)
mcmc.PlotFrequencyInCalibration(param.draws, cbs, sample_size = 100)
# }
Run the code above in your browser using DataLab