# NOT RUN {
cbs <- cdnow.sample()$cbs
params <- mbgcnbd.EstimateParameters(cbs)
# Returns a vector containing cumulative repeat transactions for 546 days.
# All parameters are in weeks; the calibration period lasted 39 weeks
# and the holdout period another 39.
mbgcnbd.ExpectedCumulativeTransactions(params, T.cal = cbs$T.cal, T.tot = 78, n.periods.final = 78)
# }
Run the code above in your browser using DataLab