Как я могу получить значение p для каждого фактора, а не для каждого уровня фактора в моделях Пуассона с нулевым надувом?

Question

Я хотел бы получить общее значение p для каждой из переменных моей модели, а не конкретное значение p для каждого уровня каждой переменной моей модели.Я думаю, что можно получить значение p, выполнив тест хи-квадрат, но я не знаю, как это сделать с моими переменными модели.Мне понадобится это p-значение, чтобы показать значимость переменной при публикации результатов.

Две независимые переменные модели - это факторы.Это моя модель:

 model <- zeroinfl(data=abundanceAfter ,
   formula = total ~ sav_open+period|1, dist = 'poisson')