# NOT RUN {
params <- c(k = 3, r = 0.85, alpha = 1.45, a = 0.79, b = 2.42)
data <- mbgcnbd.GenerateData(n = 200, T.cal = 24, T.star = 32, params)
# customer by sufficient summary statistic - one row per customer
head(data$cbs)
# event log - one row per event/transaction
head(data$elog)
# }
Run the code above in your browser using DataLab