knitr::opts_chunk$set( collapse = TRUE, comment = "#>", dev = "png", fig.width = 7, fig.height = 3.5, message = FALSE, warning = FALSE ) options(width = 800) arrow_color <- "#FF00cc" pkgs <- c("ggplot2", "see", "marginaleffects", "glmmTMB") if (!all(vapply(pkgs, requireNamespace, quietly = TRUE, FUN.VALUE = logical(1L)))) { knitr::opts_chunk$set(eval = FALSE) }
This vignette is the last in a 4-part series:
Comparisons of Slopes, Floodlight and Spotlight Analysis (Johnson-Neyman Intervals)
Contrasts and Comparisons for Zero-Inflation Models
Lastly, we show an example for models with zero-inflation component.
A zero-inflated model is a statistical approach used when dealing with count data that has an excessive number of zero values. Imagine counting something that can be zero, like the number of customers a store gets in a day, and it happens that there are a lot more zeros in the data than a typical count model (e.g., Poisson regression) would expect. That's where we need zero-inflated regression models. These models consider two ways zeros can happen:
True Zeros: These are days the store is naturally closed, or maybe there's just no demand for the product.
Counting Zeros: These are days the store is open but just happens to get no customers. Maybe it's bad luck, or a random fluctuation.
The model treats these differently. It uses one part (the zero-inflation component, a logistic regression) to predict the probability of a true zero, based on things that make the store less likely to be open at all. Then it uses another part (the conditional, or count component, a count regression) to predict the number of customers on days the store is actually open, considering other factors like weather or discounts.
Consequently, such regression models usually have two parts in their formula, or (depending on the package) separate formulas for the count and the zero-inflation components. Adjusted predictions can be calculated for both parts, and contrasts or comparisons can be calculated for both parts, too.
The two model parts do not necessarily need to use the same predictors. Therefore, it is not always straightforward to find predictors that can be used in the zero-inflation model. Think about why you have excess zeros in your data. Are they true zeros (inherently no counts) or due to limitations (measurement limitations, biological process, ...)? Choose variables that explain why some data points have zero counts even when conditions might allow for some count. For instance, if modeling customer complaints, store location in a remote area might predict zero complaints due to fewer customers.
In the following example, we use the Salamanders
dataset from the glmmTMB
package.We fit a zero-inflated Poisson regression model to the data, with mined
as the predictor variable.
Adjusted predictions using estimate_means()
can be made for the different model components:
The conditional, or count component, which predicts the average count of salamanders. Depending on the model-class (i.e. which package was used to fit the model), use predict = "conditional"
(e.g., package glmmTMB) or predict = "count"
(e.g., package pscl). This would return the predicted mean from the count component only, which is the conditional mean (average counts) of the response only for "counting zeros". It does not take into account the probability of "true zeros".
The full model, which predicts the average count of the response, including the zero-inflation component. This would return the expected value of the response for an average observation, which can be a "true zero" or a "count zero". This is the default, which uses predict = "response"
. For the above example, use this option if you want to predict the average number of customers per week, including days the store is closed.
The zero-inflation probabilities, which predicts the probabilities whether an observation is a "true zero" or not. Again, this option depends on the model-class. Use option like predict = "zprob"
or predict = "zero"
. These predictions only related to the zero-inflation component of the model.
library(modelbased) library(glmmTMB) data(Salamanders) m <- glmmTMB(count ~ mined + (1 | site), ziformula = ~mined, family = poisson(), data = Salamanders )
We will start with the conditional mean. For zero-inflated models, the conditional mean is predicted using predict = "conditional"
. This is the average count of the response, excluding the zero-inflation component.
# predicting the conditional mean estimate_means(m, "mined", predict = "conditional") estimate_contrasts(m, "mined", predict = "conditional")
By default, adjusted predictions are returned for the full model, i.e. the average expected count of the response, including the zero-inflation component.
# predicting the expected value of the response estimate_means(m, "mined") estimate_contrasts(m, "mined")
If you're interested in the probabilities of being a "true zero" or not, use predict = "zprob"
.
# predicting the zero-inflation probabilities estimate_means(m, "mined", predict = "zprob") estimate_contrasts(m, "mined", predict = "zprob")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.