```
import arviz as az
import bambi as bmb
import matplotlib.pyplot as plt
import numpy as np
import pandas as pd
from scipy.stats import nbinom
```

# Negative Binomial Regression (Students absence example)

## Negative binomial distribution review

I always experience some kind of confusion when looking at the negative binomial distribution after a while of not working with it. There are so many different definitions that I usually need to read everything more than once. The definition I’ve first learned, and the one I like the most, says as follows: The negative binomial distribution is the distribution of a random variable that is defined as the number of independent Bernoulli trials until the k-th “success”. In short, we repeat a Bernoulli experiment until we observe k successes and record the number of trials it required.

\[ Y \sim \text{NB}(k, p) \]

where \(0 \le p \le 1\) is the probability of success in each Bernoulli trial, \(k > 0\), usually integer, and \(y \in \{k, k + 1, \cdots\}\)

The probability mass function (pmf) is

\[ p(y | k, p)= \binom{y - 1}{y-k}(1 -p)^{y - k}p^k \]

If you, like me, find it hard to remember whether \(y\) starts at \(0\), \(1\), or \(k\), try to think twice about the definition of the variable. But how? First, recall we aim to have \(k\) successes. And success is one of the two possible outcomes of a trial, so the number of trials can never be smaller than the number of successes. Thus, we can be confident to say that \(y \ge k\).

But this is not the only way of defining the negative binomial distribution, there are plenty of options! One of the most interesting, and the one you see in PyMC3, the library we use in Bambi for the backend, is as a continuous mixture. The negative binomial distribution describes a Poisson random variable whose rate is also a random variable (not a fixed constant!) following a gamma distribution. Or in other words, conditional on a gamma-distributed variable \(\mu\), the variable \(Y\) has a Poisson distribution with mean \(\mu\).

Under this alternative definition, the pmf is

\[ \displaystyle p(y | k, \alpha) = \binom{y + \alpha - 1}{y} \left(\frac{\alpha}{\mu + \alpha}\right)^\alpha\left(\frac{\mu}{\mu + \alpha}\right)^y \]

where \(\mu\) is the parameter of the Poisson distribution (the mean, and variance too!) and \(\alpha\) is the rate parameter of the gamma.

`"arviz-darkgrid") az.style.use(`

```
import warnings
='ignore', category=FutureWarning) warnings.simplefilter(action
```

In SciPy, the definition of the negative binomial distribution differs a little from the one in our introduction. They define \(Y\) = Number of failures until k successes and then \(y\) starts at 0. In the following plot, we have the probability of observing \(y\) failures before we see \(k=3\) successes.

```
= np.arange(0, 30)
y = 3
k = 0.5
p1 = 0.3 p2
```

```
= plt.subplots(1, 2, figsize=(12, 4), sharey=True)
fig, ax
0].bar(y, nbinom.pmf(y, k, p1))
ax[0].set_xticks(np.linspace(0, 30, num=11))
ax[0].set_title(f"k = {k}, p = {p1}")
ax[
1].bar(y, nbinom.pmf(y, k, p2))
ax[1].set_xticks(np.linspace(0, 30, num=11))
ax[1].set_title(f"k = {k}, p = {p2}")
ax[
"Y = Number of failures until k successes", fontsize=16); fig.suptitle(
```

For example, when \(p=0.5\), the probability of seeing \(y=0\) failures before 3 successes (or in other words, the probability of having 3 successes out of 3 trials) is 0.125, and the probability of seeing \(y=3\) failures before 3 successes is 0.156.

```
print(nbinom.pmf(y, k, p1)[0])
print(nbinom.pmf(y, k, p1)[3])
```

```
0.12499999999999997
0.15624999999999992
```

Finally, if one wants to show this probability mass function as if we are following the first definition of negative binomial distribution we introduced, we just need to shift the whole thing to the right by adding \(k\) to the \(y\) values.

```
= plt.subplots(1, 2, figsize=(12, 4), sharey=True)
fig, ax
0].bar(y + k, nbinom.pmf(y, k, p1))
ax[0].set_xticks(np.linspace(3, 30, num=10))
ax[0].set_title(f"k = {k}, p = {p1}")
ax[
1].bar(y + k, nbinom.pmf(y, k, p2))
ax[1].set_xticks(np.linspace(3, 30, num=10))
ax[1].set_title(f"k = {k}, p = {p2}")
ax[
"Y = Number of trials until k successes", fontsize=16); fig.suptitle(
```

## Negative binomial in GLM

The negative binomial distribution belongs to the exponential family, and the canonical link function is

\[ g(\mu_i) = \log\left(\frac{\mu_i}{k + \mu_i}\right) = \log\left(\frac{k}{\mu_i} + 1\right) \]

but it is difficult to interpret. The log link is usually preferred because of the analogy with Poisson model, and it also tends to give better results.

## Load and explore Students data

This example is based on this UCLA example.

School administrators study the attendance behavior of high school juniors at two schools. Predictors of the **number of days of absence** include the **type of program** in which the student is enrolled and a **standardized test in math**. We have attendance data on 314 high school juniors.

The variables of insterest in the dataset are

- daysabs: The number of days of absence. It is our response variable.
- progr: The type of program. Can be one of ‘General’, ‘Academic’, or ‘Vocational’.
- math: Score in a standardized math test.

`= pd.read_stata("https://stats.idre.ucla.edu/stat/stata/dae/nb_data.dta") data `

` data.head()`

id | gender | math | daysabs | prog | |
---|---|---|---|---|---|

0 | 1001.0 | male | 63.0 | 4.0 | 2.0 |

1 | 1002.0 | male | 27.0 | 4.0 | 2.0 |

2 | 1003.0 | female | 20.0 | 2.0 | 2.0 |

3 | 1004.0 | female | 16.0 | 3.0 | 2.0 |

4 | 1005.0 | female | 2.0 | 3.0 | 2.0 |

We assign categories to the values 1, 2, and 3 of our `"prog"`

variable.

```
"prog"] = data["prog"].map({1: "General", 2: "Academic", 3: "Vocational"})
data[ data.head()
```

id | gender | math | daysabs | prog | |
---|---|---|---|---|---|

0 | 1001.0 | male | 63.0 | 4.0 | Academic |

1 | 1002.0 | male | 27.0 | 4.0 | Academic |

2 | 1003.0 | female | 20.0 | 2.0 | Academic |

3 | 1004.0 | female | 16.0 | 3.0 | Academic |

4 | 1005.0 | female | 2.0 | 3.0 | Academic |

The Academic program is the most popular program (167/314) and General is the least popular one (40/314)

`"prog"].value_counts() data[`

```
Academic 167
Vocational 107
General 40
Name: prog, dtype: int64
```

Let’s explore the distributions of math score and days of absence for each of the three programs listed above. The vertical lines indicate the mean values.

```
= plt.subplots(3, 2, figsize=(8, 6), sharex="col")
fig, ax = list(data["prog"].unique())
programs
programs.sort()
for idx, program in enumerate(programs):
# Histogram
0].hist(data[data["prog"] == program]["math"], edgecolor='black', alpha=0.9)
ax[idx, 0].axvline(data[data["prog"] == program]["math"].mean(), color="C1")
ax[idx,
# Barplot
= data[data["prog"] == program]["daysabs"]
days = days.mean()
days_mean = days.value_counts()
days_counts = list(days_counts.index)
values = days_counts.values
count 1].bar(values, count, edgecolor='black', alpha=0.9)
ax[idx, 1].axvline(days_mean, color="C1")
ax[idx,
# Titles
0].set_title(program)
ax[idx, 1].set_title(program)
ax[idx,
-1, 0], xlabel="Math score")
plt.setp(ax[-1, 1], xlabel="Days of absence"); plt.setp(ax[
```

The first impression we have is that the distribution of math scores is not equal for any of the programs. It looks right-skewed for students under the Academic program, left-skewed for students under the Vocational program, and roughly uniform for students in the General program (although there’s a drop in the highest values). Clearly those in the Vocational program has the highest mean for the math score.

On the other hand, the distribution of the days of absence is right-skewed in all cases. Students in the General program present the highest absence mean while the Vocational group is the one who misses fewer classes on average.

## Models

We are interested in measuring the association between the type of the program and the math score with the days of absence. It’s also of interest to see if the association between math score and days of absence is different in each type of program.

In order to answer our questions, we are going to fit and compare two models. The first model uses the type of the program and the math score as predictors. The second model also includes the interaction between these two variables. The score in the math test is going to be standardized in both cases to make things easier for the sampler and save some seconds. A good idea to follow along is to run these models without scaling `math`

and comparing how long it took to fit.

We are going to use a negative binomial likelihood to model the days of absence. But let’s stop here and think why we use this likelihood. Earlier, we said that the negative binomial distributon arises when our variable represents the number of trials until we got \(k\) successes. However, the number of trials is fixed, i.e. the number of school days in a given year is not a random variable. So if we stick to the definition, we could think of the two alternative views for this problem

- Each of the \(n\) days is a trial, and we record whether the student is absent (\(y=1\)) or not (\(y=0\)). This corresponds to a binary regression setting, where we could think of logistic regression or something alike. A problem here is that we have the sum of \(y\) for a student, but not the \(n\).
- The whole school year represents the space where events occur and we count how many absences we see in that space for each student. This gives us a Poisson regression setting (count of an event in a given space or time).

We also know that when \(n\) is large and \(p\) is small, the Binomial distribution can be approximated with a Poisson distribution with \(\lambda = n * p\). We don’t know exactly \(n\) in this scenario, but we know it is around 180, and we do know that \(p\) is small because you can’t skip classes all the time. So both modeling approaches should give similar results.

But then, why negative binomial? Can’t we just use a Poisson likelihood?

Yes, we can. However, using a Poisson likelihood implies that the mean is equal to the variance, and that is usually an unrealistic assumption. If it turns out the variance is either substantially smaller or greater than the mean, the Poisson regression model results in a poor fit. Alternatively, if we use a negative binomial likelihood, the variance is not forced to be equal to the mean, and there’s more flexibility to handle a given dataset, and consequently, the fit tends to better.

### Model 1

\[ \log{Y_i} = \beta_1 \text{Academic}_i + \beta_2 \text{General}_i + \beta_3 \text{Vocational}_i + \beta_4 \text{Math\_std}_i \]

### Model 2

\[ \log{Y_i} = \beta_1 \text{Academic}_i + \beta_2 \text{General}_i + \beta_3 \text{Vocational}_i + \beta_4 \text{Math\_std}_i + \beta_5 \text{General}_i \cdot \text{Math\_std}_i + \beta_6 \text{Vocational}_i \cdot \text{Math\_std}_i \]

In both cases we have the following dummy variables

\[\text{Academic}_i = \left\{ \begin{array}{ll} 1 & \textrm{if student is under Academic program} \\ 0 & \textrm{other case} \end{array} \right. \]

\[\text{General}_i = \left\{ \begin{array}{ll} 1 & \textrm{if student is under General program} \\ 0 & \textrm{other case} \end{array} \right. \]

\[\text{Vocational}_i = \left\{ \begin{array}{ll} 1 & \textrm{if student is under Vocational program} \\ 0 & \textrm{other case} \end{array} \right. \]

and \(Y\) represents the days of absence.

So, for example, the first model for a student under the Vocational program reduces to \[ \log{Y_i} = \beta_3 + \beta_4 \text{Math\_std}_i \]

And one last thing to note is we’ve decided not to inclide an intercept term, that’s why you don’t see any \(\beta_0\) above. This choice allows us to represent the effect of each program directly with \(\beta_1\), \(\beta_2\), and \(\beta_3\).

## Model fit

It’s very easy to fit these models with Bambi. We just pass a formula describing the terms in the model and Bambi will know how to handle each of them correctly. The `0`

on the right hand side of `~`

simply means we don’t want to have the intercept term that is added by default. `scale(math)`

tells Bambi we want to use standardize `math`

before being included in the model. By default, Bambi uses a log link for negative binomial GLMs. We’ll stick to this default here.

### Model 1

```
= bmb.Model("daysabs ~ 0 + prog + scale(math)", data, family="negativebinomial")
model_additive = model_additive.fit() idata_additive
```

```
Auto-assigning NUTS sampler...
Initializing NUTS using jitter+adapt_diag...
Multiprocess sampling (2 chains in 2 jobs)
NUTS: [daysabs_alpha, prog, scale(math)]
```

`Sampling 2 chains for 1_000 tune and 1_000 draw iterations (2_000 + 2_000 draws total) took 4 seconds.`

### Model 2

For this second model we just add `prog:scale(math)`

to indicate the interaction. A shorthand would be to use `y ~ 0 + prog*scale(math)`

, which uses the **full interaction** operator. In other words, it just means we want to include the interaction between `prog`

and `scale(math)`

as well as their main effects.

```
= bmb.Model("daysabs ~ 0 + prog + scale(math) + prog:scale(math)", data, family="negativebinomial")
model_interaction = model_interaction.fit() idata_interaction
```

```
Auto-assigning NUTS sampler...
Initializing NUTS using jitter+adapt_diag...
Multiprocess sampling (2 chains in 2 jobs)
NUTS: [daysabs_alpha, prog, scale(math), prog:scale(math)]
```

`Sampling 2 chains for 1_000 tune and 1_000 draw iterations (2_000 + 2_000 draws total) took 7 seconds.`

## Explore models

The first thing we do is calling `az.summary()`

. Here we pass the `InferenceData`

object the `.fit()`

returned. This prints information about the marginal posteriors for each parameter in the model as well as convergence diagnostics.

` az.summary(idata_additive)`

mean | sd | hdi_3% | hdi_97% | mcse_mean | mcse_sd | ess_bulk | ess_tail | r_hat | |
---|---|---|---|---|---|---|---|---|---|

prog[Academic] | 1.888 | 0.084 | 1.738 | 2.057 | 0.002 | 0.001 | 2430.0 | 1649.0 | 1.00 |

prog[General] | 2.339 | 0.174 | 2.013 | 2.651 | 0.003 | 0.002 | 3364.0 | 1610.0 | 1.00 |

prog[Vocational] | 1.047 | 0.112 | 0.845 | 1.264 | 0.002 | 0.002 | 2062.0 | 1609.0 | 1.00 |

scale(math) | -0.150 | 0.063 | -0.271 | -0.036 | 0.001 | 0.001 | 2115.0 | 1357.0 | 1.00 |

daysabs_alpha | 1.020 | 0.109 | 0.835 | 1.236 | 0.002 | 0.002 | 2112.0 | 1339.0 | 1.01 |

` az.summary(idata_interaction)`

mean | sd | hdi_3% | hdi_97% | mcse_mean | mcse_sd | ess_bulk | ess_tail | r_hat | |
---|---|---|---|---|---|---|---|---|---|

prog[Academic] | 1.876 | 0.083 | 1.721 | 2.032 | 0.002 | 0.001 | 2149.0 | 1451.0 | 1.0 |

prog[General] | 2.341 | 0.175 | 2.007 | 2.647 | 0.004 | 0.003 | 2188.0 | 1572.0 | 1.0 |

prog[Vocational] | 0.984 | 0.128 | 0.743 | 1.223 | 0.003 | 0.002 | 2290.0 | 1703.0 | 1.0 |

scale(math) | -0.194 | 0.081 | -0.334 | -0.030 | 0.002 | 0.001 | 2001.0 | 1625.0 | 1.0 |

prog:scale(math)[General] | 0.014 | 0.164 | -0.304 | 0.305 | 0.004 | 0.003 | 2008.0 | 1738.0 | 1.0 |

prog:scale(math)[Vocational] | 0.198 | 0.168 | -0.129 | 0.512 | 0.004 | 0.003 | 1813.0 | 1556.0 | 1.0 |

daysabs_alpha | 1.017 | 0.104 | 0.821 | 1.208 | 0.002 | 0.002 | 2135.0 | 1397.0 | 1.0 |

The information in the two tables above can be visualized in a more concise manner using a forest plot. ArviZ provides us with `plot_forest()`

. There we simply pass a list containing the `InferenceData`

objects of the models we want to compare.

```
az.plot_forest(
[idata_additive, idata_interaction],=["Additive", "Interaction"],
model_names=["prog", "scale(math)"],
var_names=True,
combined=(8, 4)
figsize; )
```

One of the first things one can note when seeing this plot is the similarity between the marginal posteriors. Maybe one can conclude that the variability of the marginal posterior of `scale(math)`

is slightly lower in the model that considers the interaction, but the difference is not significant.

We can also make conclusions about the association between the program and the math score with the days of absence. First, we see the posterior for the Vocational group is to the left of the posterior for the two other programs, meaning it is associated with fewer absences (as we have seen when first exploring our data). There also seems to be a difference between General and Academic, where we may conclude the students in the General group tend to miss more classes.

In addition, the marginal posterior for `math`

shows negative values in both cases. This means that students with higher math scores tend to miss fewer classes. Below, we see a forest plot with the posteriors for the coefficients of the interaction effects. Both of them overlap with 0, which means the data does not give much evidence to support there is an interaction effect between program and math score (i.e., the association between math and days of absence is similar for all the programs).

```
=["prog:scale(math)"], combined=True, figsize=(8, 4))
az.plot_forest(idata_interaction, var_names0); plt.axvline(
```

## Plot predicted mean response

We finish this example showing how we can get predictions for new data and plot the mean response for each program together with confidence intervals.

```
= np.arange(1, 100)
math_score
# This function takes a model and an InferenceData object.
# It returns of length 3 with predictions for each type of program.
def predict(model, idata):
= []
predictions for program in programs:
= pd.DataFrame({"math": math_score, "prog": [program] * len(math_score)})
new_data = model.predict(
new_idata
idata, =new_data,
data=False
inplace
)= new_idata.posterior["daysabs_mean"]
prediction
predictions.append(prediction)
return predictions
```

```
= predict(model_additive, idata_additive)
prediction_additive = predict(model_interaction, idata_interaction) prediction_interaction
```

```
= [prediction.mean(("chain", "draw")) for prediction in prediction_additive]
mu_additive = [prediction.mean(("chain", "draw")) for prediction in prediction_interaction] mu_interaction
```

```
= plt.subplots(1, 2, sharex=True, sharey=True, figsize = (10, 4))
fig, ax
for idx, program in enumerate(programs):
0].plot(math_score, mu_additive[idx], label=f"{program}", color=f"C{idx}", lw=2)
ax[=f"C{idx}", ax=ax[0])
az.plot_hdi(math_score, prediction_additive[idx], color
1].plot(math_score, mu_interaction[idx], label=f"{program}", color=f"C{idx}", lw=2)
ax[=f"C{idx}", ax=ax[1])
az.plot_hdi(math_score, prediction_interaction[idx], color
0].set_title("Additive");
ax[1].set_title("Interaction");
ax[0].set_xlabel("Math score")
ax[1].set_xlabel("Math score")
ax[0].set_ylim(0, 25)
ax[0].legend(loc="upper right"); ax[
```

As we can see in this plot, the interval for the mean response for the Vocational program does not overlap with the interval for the other two groups, representing the group of students who miss fewer classes. On the right panel we can also see that including interaction terms does not change the slopes significantly because the posterior distributions of these coefficients have a substantial overlap with 0.

If you’ve made it to the end of this notebook and you’re still curious about what else you can do with these two models, you’re invited to use `az.compare()`

to compare the fit of the two models. What do you expect before seeing the plot? Why? Is there anything else you could do to improve the fit of the model?

Also, if you’re still curious about what this model would have looked like with the Poisson likelihood, you just need to replace `family="negativebinomial"`

with `family="poisson"`

and then you’re ready to compare results!

```
%load_ext watermark
%watermark -n -u -v -iv -w
```

```
Last updated: Thu Jan 05 2023
Python implementation: CPython
Python version : 3.10.4
IPython version : 8.5.0
arviz : 0.14.0
bambi : 0.9.3
pandas : 1.5.2
numpy : 1.23.5
matplotlib: 3.6.2
sys : 3.10.4 (main, Mar 31 2022, 08:41:55) [GCC 7.5.0]
Watermark: 2.3.1
```