| Home | Libraries | People | FAQ | More

###### Negative Binomial Sales Quota Example.

This example program negative_binomial_example1.cpp (full source code) demonstrates a simple use to find the probability of meeting a sales quota.

Based on a problem by Dr. Diane Evans, Professor of Mathematics at Rose-Hulman Institute of Technology.

Pat is required to sell candy bars to raise money for the 6th grade field trip. There are thirty houses in the neighborhood, and Pat is not supposed to return home until five candy bars have been sold. So the child goes door to door, selling candy bars. At each house, there is a 0.4 probability (40%) of selling one candy bar and a 0.6 probability (60%) of selling nothing.

What is the probability mass (density) function (pdf) for selling the last (fifth) candy bar at the nth house?

The Negative Binomial(r, p) distribution describes the probability of k failures and r successes in k+r Bernoulli(p) trials with success on the last trial. (A Bernoulli trial is one with only two possible outcomes, success of failure, and p is the probability of success). See also http://en.wikipedia.org/wiki/Bernoulli_distribution Bernoulli distribution and Bernoulli applications.

In this example, we will deliberately produce a variety of calculations and outputs to demonstrate the ways that the negative binomial distribution can be implemented with this library: it is also deliberately over-commented.

First we need to #define macros to control the error and discrete handling policies. For this simple example, we want to avoid throwing an exception (the default policy) and just return infinity. We want to treat the distribution as if it was continuous, so we choose a discrete_quantile policy of real, rather than the default policy integer_round_outwards.

    #define BOOST_MATH_OVERFLOW_ERROR_POLICY ignore_error
    #define BOOST_MATH_DISCRETE_QUANTILE_POLICY real

After that we need some includes to provide easy access to the negative binomial distribution,

| Caution
It is vital to #include distributions etc after the above #defines

and we need some std library iostream, of course.

    #include <boost/math/distributions/negative_binomial.hpp>
      // for negative_binomial_distribution
      using boost::math::negative_binomial; // typedef provides default type is double.
      using  ::boost::math::pdf; // Probability mass function.
      using  ::boost::math::cdf; // Cumulative density function.
      using  ::boost::math::quantile;

    #include <iostream>
      using std::cout; using std::endl;
      using std::noshowpoint; using std::fixed; using std::right; using std::left;
    #include <iomanip>
      using std::setprecision; using std::setw;

    #include <limits>
      using std::numeric_limits;

It is always sensible to use try and catch blocks because defaults policies are to throw an exception if anything goes wrong.

A simple catch block (see below) will ensure that you get a helpful error message instead of an abrupt program abort.

    try
    {

Selling five candy bars means getting five successes, so successes r = 5. The total number of trials (n, in this case, houses visited) this takes is therefore = sucesses + failures or k + r = k + 5.

    double sales_quota = 5; // Pat's sales quota - successes (r).

At each house, there is a 0.4 probability (40%) of selling one candy bar and a 0.6 probability (60%) of selling nothing.

    double success_fraction = 0.4; // success_fraction (p) - so failure_fraction is 0.6.

The Negative Binomial(r, p) distribution describes the probability of k failures and r successes in k+r Bernoulli(p) trials with success on the last trial. (A Bernoulli trial is one with only two possible outcomes, success of failure, and p is the probability of success).

We therefore start by constructing a negative binomial distribution with parameters sales_quota (required successes) and probability of success.

    negative_binomial nb(sales_quota, success_fraction); // type double by default.

To confirm, display the success_fraction & successes parameters of the distribution.

    cout << "Pat has a sales per house success rate of " << success_fraction
      << ".\nTherefore he would, on average, sell " << nb.success_fraction() * 100
      << " bars after trying 100 houses." << endl;

    int all_houses = 30; // The number of houses on the estate.

    cout << "With a success rate of " << nb.success_fraction()
      << ", he might expect, on average,\n"
        "to need to visit about " << success_fraction * all_houses
        << " houses in order to sell all " << nb.successes() << " bars. " << endl;

    Pat has a sales per house success rate of 0.4.
    Therefore he would, on average, sell 40 bars after trying 100 houses.
    With a success rate of 0.4, he might expect, on average,
    to need to visit about 12 houses in order to sell all 5 bars.

The random variable of interest is the number of houses that must be visited to sell five candy bars, so we substitute k = n - 5 into a negative_binomial(5, 0.4) and obtain the probability mass (density) function (pdf or pmf) of the distribution of houses visited. Obviously, the best possible case is that Pat makes sales on all the first five houses.

We calculate this using the pdf function:

    cout << "Probability that Pat finishes on the " << sales_quota << "th house is "
      << pdf(nb, 5 - sales_quota) << endl; // == pdf(nb, 0)

Of course, he could not finish on fewer than 5 houses because he must sell 5 candy bars. So the 5th house is the first that he could possibly finish on.

To finish on or before the 8th house, Pat must finish at the 5th, 6th, 7th or 8th house. The probability that he will finish on exactly ( == ) on any house is the Probability Density Function (pdf).

    cout << "Probability that Pat finishes on the 6th house is "
      << pdf(nb, 6 - sales_quota) << endl;
    cout << "Probability that Pat finishes on the 7th house is "
      << pdf(nb, 7 - sales_quota) << endl;
    cout << "Probability that Pat finishes on the 8th house is "
      << pdf(nb, 8 - sales_quota) << endl;

    Probability that Pat finishes on the 6th house is 0.03072
    Probability that Pat finishes on the 7th house is 0.055296
    Probability that Pat finishes on the 8th house is 0.077414

The sum of the probabilities for these houses is the Cumulative Distribution Function (cdf). We can calculate it by adding the individual probabilities.

    cout << "Probability that Pat finishes on or before the 8th house is sum "
      "\n" << "pdf(sales_quota) + pdf(6) + pdf(7) + pdf(8) = "
      // Sum each of the mass/density probabilities for houses sales_quota = 5, 6, 7, & 8.
      << pdf(nb, 5 - sales_quota) // 0 failures.
        + pdf(nb, 6 - sales_quota) // 1 failure.
        + pdf(nb, 7 - sales_quota) // 2 failures.
        + pdf(nb, 8 - sales_quota) // 3 failures.
      << endl;

    pdf(sales_quota) + pdf(6) + pdf(7) + pdf(8) = 0.17367

Or, usually better, by using the negative binomial cumulative distribution function.

    cout << "\nProbability of selling his quota of " << sales_quota
      << " bars\non or before the " << 8 << "th house is "
      << cdf(nb, 8 - sales_quota) << endl;

    Probability of selling his quota of 5 bars on or before the 8th house is 0.17367

    cout << "\nProbability that Pat finishes exactly on the 10th house is "
      << pdf(nb, 10 - sales_quota) << endl;
    cout << "\nProbability of selling his quota of " << sales_quota
      << " bars\non or before the " << 10 << "th house is "
      << cdf(nb, 10 - sales_quota) << endl;

    Probability that Pat finishes exactly on the 10th house is 0.10033
    Probability of selling his quota of 5 bars on or before the 10th house is 0.3669

    cout << "Probability that Pat finishes exactly on the 11th house is "
      << pdf(nb, 11 - sales_quota) << endl;
    cout << "\nProbability of selling his quota of " << sales_quota
      << " bars\non or before the " << 11 << "th house is "
      << cdf(nb, 11 - sales_quota) << endl;

    Probability that Pat finishes on the 11th house is 0.10033
    Probability of selling his quota of 5 candy bars
    on or before the 11th house is 0.46723

    cout << "Probability that Pat finishes exactly on the 12th house is "
      << pdf(nb, 12 - sales_quota) << endl;

    cout << "\nProbability of selling his quota of " << sales_quota
      << " bars\non or before the " << 12 << "th house is "
      << cdf(nb, 12 - sales_quota) << endl;

    Probability that Pat finishes on the 12th house is 0.094596
    Probability of selling his quota of 5 candy bars
    on or before the 12th house is 0.56182

Finally consider the risk of Pat not selling his quota of 5 bars even after visiting all the houses. Calculate the probability that he will sell on or before the last house: Calculate the probability that he would sell all his quota on the very last house.

    cout << "Probability that Pat finishes on the " << all_houses
      << " house is " << pdf(nb, all_houses - sales_quota) << endl;

Probability of selling his quota of 5 bars on the 30th house is

    Probability that Pat finishes on the 30 house is 0.00069145

when he'd be very unlucky indeed!

What is the probability that Pat exhausts all 30 houses in the neighborhood, and still doesn't sell the required 5 candy bars?

    cout << "\nProbability of selling his quota of " << sales_quota
      << " bars\non or before the " << all_houses << "th house is "
      << cdf(nb, all_houses - sales_quota) << endl;

    Probability of selling his quota of 5 bars
    on or before the 30th house is 0.99849

/*`So the risk of failing even after visiting all the houses is 1 - this probability,` `1 - cdf(nb, all_houses - sales_quota` `But using this expression may cause serious inaccuracy, so it would be much better to use the complement of the cdf: So the risk of failing even at, or after, the 31th (non-existent) houses is 1 - this probability,` `1 - cdf(nb, all_houses - sales_quota)`` But using this expression may cause serious inaccuracy. So it would be much better to use the complement of the cdf. Why complements?

    cout << "\nProbability of failing to sell his quota of " << sales_quota
      << " bars\neven after visiting all " << all_houses << " houses is "
      << cdf(complement(nb, all_houses - sales_quota)) << endl;

    Probability of failing to sell his quota of 5 bars
    even after visiting all 30 houses is 0.0015101

We can also use the quantile (percentile), the inverse of the cdf, to predict which house Pat will finish on. So for the 8th house:

    double p = cdf(nb, (8 - sales_quota));
    cout << "Probability of meeting sales quota on or before 8th house is "<< p << endl;

    Probability of meeting sales quota on or before 8th house is 0.174

    cout << "If the confidence of meeting sales quota is " << p
        << ", then the finishing house is " << quantile(nb, p) + sales_quota << endl;

    cout<< " quantile(nb, p) = " << quantile(nb, p) << endl;

    If the confidence of meeting sales quota is 0.17367, then the finishing house is 8

Demanding absolute certainty that all 5 will be sold, implies an infinite number of trials. (Of course, there are only 30 houses on the estate, so he can't ever be certain of selling his quota).

    cout << "If the confidence of meeting sales quota is " << 1.
        << ", then the finishing house is " << quantile(nb, 1) + sales_quota << endl;
    //  1.#INF == infinity.

    If the confidence of meeting sales quota is 1, then the finishing house is 1.#INF

And similarly for a few other probabilities:

    cout << "If the confidence of meeting sales quota is " << 0.
        << ", then the finishing house is " << quantile(nb, 0.) + sales_quota << endl;

    cout << "If the confidence of meeting sales quota is " << 0.5
        << ", then the finishing house is " << quantile(nb, 0.5) + sales_quota << endl;

    cout << "If the confidence of meeting sales quota is " << 1 - 0.00151 // 30 th
        << ", then the finishing house is " << quantile(nb, 1 - 0.00151) + sales_quota << endl;

    If the confidence of meeting sales quota is 0, then the finishing house is 5
    If the confidence of meeting sales quota is 0.5, then the finishing house is 11.337
    If the confidence of meeting sales quota is 0.99849, then the finishing house is 30

Notice that because we chose a discrete quantile policy of real, the result can be an 'unreal' fractional house.

If the opposite is true, we don't want to assume any confidence, then this is tantamount to assuming that all the first sales_quota trials will be successful sales.

    cout << "If confidence of meeting quota is zero\n(we assume all houses are successful sales)"
      ", then finishing house is " << sales_quota << endl;

    If confidence of meeting quota is zero (we assume all houses are successful sales), then finishing house is 5
    If confidence of meeting quota is 0, then finishing house is 5

We can list quantiles for a few probabilities:

     double ps[] = {0., 0.001, 0.01, 0.05, 0.1, 0.5, 0.9, 0.95, 0.99, 0.999, 1.};
     // Confidence as fraction = 1-alpha, as percent =  100 * (1-alpha[i]) %
     cout.precision(3);
     for (int i = 0; i < sizeof(ps)/sizeof(ps[0]); i++)
     {
       cout << "If confidence of meeting quota is " << ps[i]
         << ", then finishing house is " << quantile(nb, ps[i]) + sales_quota
         << endl;
    }

    If confidence of meeting quota is 0, then finishing house is 5
    If confidence of meeting quota is 0.001, then finishing house is 5
    If confidence of meeting quota is 0.01, then finishing house is 5
    If confidence of meeting quota is 0.05, then finishing house is 6.2
    If confidence of meeting quota is 0.1, then finishing house is 7.06
    If confidence of meeting quota is 0.5, then finishing house is 11.3
    If confidence of meeting quota is 0.9, then finishing house is 17.8
    If confidence of meeting quota is 0.95, then finishing house is 20.1
    If confidence of meeting quota is 0.99, then finishing house is 24.8
    If confidence of meeting quota is 0.999, then finishing house is 31.1
    If confidence of meeting quota is 1, then finishing house is 1.#INF

We could have applied a ceil function to obtain a 'worst case' integer value for house.

    ceil(quantile(nb, ps[i]))

Or, if we had used the default discrete quantile policy, integer_outside, by omitting

    #define BOOST_MATH_DISCRETE_QUANTILE_POLICY real

we would have achieved the same effect.

The real result gives some suggestion which house is most likely. For example, compare the real and integer_outside for 95% confidence.

    If confidence of meeting quota is 0.95, then finishing house is 20.1
    If confidence of meeting quota is 0.95, then finishing house is 21

The real value 20.1 is much closer to 20 than 21, so integer_outside is pessimistic. We could also use integer_round_nearest policy to suggest that 20 is more likely.

Finally, we can tabulate the probability for the last sale being exactly on each house.

    cout << "\nHouse for " << sales_quota << "th (last) sale.  Probability (%)" << endl;
    cout.precision(5);
    for (int i = (int)sales_quota; i < all_houses+1; i++)
    {
      cout << left << setw(3) << i << "                             " << setw(8) << cdf(nb, i - sales_quota)  << endl;
    }
    cout << endl;

    House for 5 th (last) sale.  Probability (%)
    5                               0.01024
    6                               0.04096
    7                               0.096256
    8                               0.17367
    9                               0.26657
    10                              0.3669
    11                              0.46723
    12                              0.56182
    13                              0.64696
    14                              0.72074
    15                              0.78272
    16                              0.83343
    17                              0.874
    18                              0.90583
    19                              0.93039
    20                              0.94905
    21                              0.96304
    22                              0.97342
    23                              0.98103
    24                              0.98655
    25                              0.99053
    26                              0.99337
    27                              0.99539
    28                              0.99681
    29                              0.9978
    30                              0.99849

As noted above, using a catch block is always a good idea, even if you do not expect to use it.

    }
    catch(const std::exception& e)
    { // Since we have set an overflow policy of ignore_error,
      // an overflow exception should never be thrown.
       std::cout << "\nMessage from thrown exception was:\n " << e.what() << std::endl;

For example, without a ignore domain error policy, if we asked for

    pdf(nb, -1)

for example, we would get:

    Message from thrown exception was:
     Error in function boost::math::pdf(const negative_binomial_distribution<double>&, double):
     Number of failures argument is -1, but must be >= 0 !