# NOT RUN {
cbs <- cdnow.sample()$cbs
params <- nbd.EstimateParameters(cbs)
xstar.est <- nbd.ConditionalExpectedTransactions(params, cbs$T.star, cbs$x, cbs$T.cal)
sum(xstar.est) # expected total number of transactions during holdout
# }
Run the code above in your browser using DataLab