# NOT RUN {
cbs <- cdnow.sample()$cbs # load CDNow summary data
params <- mbgcnbd.EstimateParameters(cbs)
xstar.est <- mbgcnbd.ConditionalExpectedTransactions(params,
cbs$T.star, cbs$x, cbs$t.x, cbs$T.cal)
head(xstar.est) # expected number of transactions for first 6 customers
sum(xstar.est) # expected total number of transactions during holdout
# }
Run the code above in your browser using DataLab