# NOT RUN {
data("groceryElog")
cbs <- elog2cbs(groceryElog)
params <- mbgcnbd.EstimateParameters(cbs, k = 2)
# Returns a vector containing expected cumulative repeat transactions for 104
# weeks, with every eigth week being reported.
mbgcnbd.ExpectedCumulativeTransactions(params,
T.cal = cbs$T.cal,
T.tot = 104,
n.periods.final = 104 / 8)
# }
Run the code above in your browser using DataLab