# NOT RUN {
cbs <- cdnow.sample()$cbs
params <- c(1, 0.243, 4.414, 0.793, 2.426)
# 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.
bgcnbd.ExpectedCumulativeTransactions(params, T.cal = cbs$T.cal, T.tot = 78, n.periods.final = 78)
# }
Run the code above in your browser using DataLab