# NOT RUN {
params <- c(0.243, 4.414, 0.793, 2.426)
# Number of repeat transactions a customer is expected to make in 2 time intervals.
bgnbd.Expectation(params, t=2, hardie = FALSE)
# We can also compare expected transactions over time:
bgnbd.Expectation(params, t=1:10)
# }
Run the code above in your browser using DataLab