pnbd.PlotTrackingInc {BTYD}R Documentation

Pareto/NBD Tracking Incremental Transactions Comparison


Plots the actual and expected incremental total repeat transactions by all customers for the calibration and holdout periods, and returns this comparison in a matrix.


  T.tot,, = NA,
  xlab = "Week",
  ylab = "Transactions",
  xticklab = NULL,
  title = "Tracking Weekly Transactions"



Pareto/NBD parameters - a vector with r, alpha, s, and beta, in that order. r and alpha are unobserved parameters for the NBD transaction process. s and beta are unobserved parameters for the Pareto (exponential gamma) dropout process.

length of calibration period, or a vector of calibration period lengths.


End of holdout period. Must be a single value, not a vector.

A vector containing the incremental number of repeat transactions made by customers for each period in the total time period (both calibration and holdout periods). See details.

Number of time periods in the calibration and holdout periods. See details.


Descriptive label for the x axis.


Descriptive label for the y axis.


Vector containing a label for each tick mark on the x axis.


Title placed on the top-center of the plot.

Details does not have to be in the same unit of time as the data. T.tot will automatically be divided into periods to match the length of See pnbd.ExpectedCumulativeTransactions.

The holdout period should immediately follow the calibration period. This function assume that all customers' calibration periods end on the same date, rather than starting on the same date (thus customers' birth periods are determined using max( - rather than assuming that it is 0).


Matrix containing actual and expected incremental repeat transactions.


data(cdnowSummary) <- cdnowSummary$cbs
# already has column names required by method

# Cumulative repeat transactions made by all customers across calibration
# and holdout periods
cu.tracking <- cdnowSummary$cu.tracking
# make the tracking data incremental
inc.tracking <- dc.CumulativeToIncremental(cu.tracking)

# parameters estimated using pnbd.EstimateParameters
est.params <- cdnowSummary$est.params

# All parameters are in weeks; the calibration period lasted 39
# weeks and the holdout period another 39.
pnbd.PlotTrackingInc(params = est.params, 
                     T.tot = 78, 
            = inc.tracking)

[Package BTYD version 2.4.3 Index]