don't run length example

Author: mplatzer

R/mcmc.R

@@ -498,11 +498,13 @@ mcmc.PlotTrackingInc <- function(draws, T.cal, T.tot, actual.inc.tracking.data,
 #' @export
 #' @seealso \code{\link{mcmc.pmf}}
 #' @examples
+#' \dontrun{
 #' data("groceryElog")
 #' cbs <- elog2cbs(groceryElog, T.cal = "2006-12-31")
 #' param.draws <- pnbd.mcmc.DrawParameters(cbs,
 #'   mcmc = 200, burnin = 100, thin = 20, chains = 1) # short MCMC to run demo fast
 #' mcmc.PlotFrequencyInCalibration(param.draws, cbs, sample_size = 100)
+#' }
 mcmc.PlotFrequencyInCalibration <- function(draws, cal.cbs, censor = 7,
                                             xlab = "Calibration period transactions",
                                             ylab = "Customers",