library(rio)
data=import("dataPeru.xlsx")str(data)## 'data.frame': 25 obs. of 8 variables:
## $ DEPARTAMENTO : chr "AMAZONAS" "ÁNCASH" "APURÍMAC" "AREQUIPA" ...
## $ UBIGEO : chr "010000" "020000" "030000" "040000" ...
## $ buenEstado : num 18.6 13.9 8.7 27.4 17 18 33.8 11.9 10.1 15.6 ...
## $ contribuyentesSunat: num 75035 302906 103981 585628 151191 ...
## $ peaOcupada : num 130019 387976 140341 645001 235857 ...
## $ pobUrbana : num 205976 806065 243354 1383694 444473 ...
## $ PobRural : num 211389 333050 180905 76739 206467 ...
## $ pobTotal : num 417365 1139115 424259 1460433 650940 ...La hipotesis de querer probar es que el porcentaje de locales escolares en buen estado dependen del porcentaje de la poblacion que contribuye a la SUNAT; y del porcentaje de la PEA que está laborando
exploramos nuestra variable dependinte porcentaje de locales escolares en buen ESTADO
library(dplyr)##
## Attaching package: 'dplyr'## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, unionsummary(data$buenEstado)## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 7.70 13.90 17.30 18.61 21.80 40.50str(data$buenEstado)## num [1:25] 18.6 13.9 8.7 27.4 17 18 33.8 11.9 10.1 15.6 ...ya que solo tenemos la cantidad de la PEA ocupada.necesitamos sacar el porcentaje, por lo cual crearemos una nueva variable
data <- data |>
mutate(porcentaje= (data$peaOcupada*100)/data$pobUrbana)a pesar que se trata de una variable numérica continua, el porcentaje es una tasa. Por lo que usaremos una regresión de conteos. Al ser un ratio, no se necesitará indicar offset
h1=formula(buenEstado~contribuyentesSunat+porcentaje)
modelo1=glm(h1, data = data,
family = poisson(link = "log"))## Warning in dpois(y, mu, log = TRUE): non-integer x = 18.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 13.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 8.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 27.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 33.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 10.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 28.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 21.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 19.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 31.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 16.200000## Warning in dpois(y, mu, log = TRUE): non-integer x = 40.500000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 14.900000summary(modelo1)##
## Call:
## glm(formula = h1, family = poisson(link = "log"), data = data)
##
## Coefficients:
## Estimate Std. Error z value Pr(>|z|)
## (Intercept) 3.846e+00 3.006e-01 12.796 < 2e-16 ***
## contribuyentesSunat 1.045e-07 3.957e-08 2.641 0.008269 **
## porcentaje -1.920e-02 5.834e-03 -3.291 0.000998 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for poisson family taken to be 1)
##
## Null deviance: 82.928 on 24 degrees of freedom
## Residual deviance: 61.261 on 22 degrees of freedom
## AIC: Inf
##
## Number of Fisher Scoring iterations: 4cbind(exp(coef(modelo1)),exp(confint(modelo1)))## Waiting for profiling to be done...## Warning in dpois(y, mu, log = TRUE): non-integer x = 18.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 13.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 8.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 27.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 33.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 10.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 28.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 21.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 19.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 31.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 16.200000## Warning in dpois(y, mu, log = TRUE): non-integer x = 40.500000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 14.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 18.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 13.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 8.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 27.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 33.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 10.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 28.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 21.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 19.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 31.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 16.200000## Warning in dpois(y, mu, log = TRUE): non-integer x = 40.500000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 14.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 18.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 13.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 8.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 27.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 33.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 10.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 28.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 21.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 19.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 31.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 16.200000## Warning in dpois(y, mu, log = TRUE): non-integer x = 40.500000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 14.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 18.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 13.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 8.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 27.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 33.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 10.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 28.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 21.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 19.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 31.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 16.200000## Warning in dpois(y, mu, log = TRUE): non-integer x = 40.500000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 14.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 18.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 13.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 8.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 27.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 33.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 10.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 28.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 21.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 19.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 31.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 16.200000## Warning in dpois(y, mu, log = TRUE): non-integer x = 40.500000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 14.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 18.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 13.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 8.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 27.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 33.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 10.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 28.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 21.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 19.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 31.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 16.200000## Warning in dpois(y, mu, log = TRUE): non-integer x = 40.500000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 14.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 18.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 13.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 8.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 27.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 33.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 10.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 28.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 21.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 19.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 31.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 16.200000## Warning in dpois(y, mu, log = TRUE): non-integer x = 40.500000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 14.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 18.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 13.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 8.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 27.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 33.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 10.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 28.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 21.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 19.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 31.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 16.200000## Warning in dpois(y, mu, log = TRUE): non-integer x = 40.500000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 14.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 18.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 13.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 8.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 27.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 33.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 10.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 28.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 21.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 19.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 31.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 16.200000## Warning in dpois(y, mu, log = TRUE): non-integer x = 40.500000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 14.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 18.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 13.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 8.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 27.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 33.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 10.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 28.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 21.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 19.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 31.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 16.200000## Warning in dpois(y, mu, log = TRUE): non-integer x = 40.500000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 14.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 18.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 13.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 8.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 27.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 33.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 10.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 28.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 21.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 19.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 31.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 16.200000## Warning in dpois(y, mu, log = TRUE): non-integer x = 40.500000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 14.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 18.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 13.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 8.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 27.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 33.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 10.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 28.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 21.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 19.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 31.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 16.200000## Warning in dpois(y, mu, log = TRUE): non-integer x = 40.500000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 14.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 18.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 13.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 8.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 27.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 33.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 10.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 28.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 21.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 19.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 31.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 16.200000## Warning in dpois(y, mu, log = TRUE): non-integer x = 40.500000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 14.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 18.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 13.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 8.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 27.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 33.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 10.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 28.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 21.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 19.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 31.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 16.200000## Warning in dpois(y, mu, log = TRUE): non-integer x = 40.500000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 14.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 18.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 13.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 8.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 27.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 33.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 10.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 28.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 21.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 19.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 31.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 16.200000## Warning in dpois(y, mu, log = TRUE): non-integer x = 40.500000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 14.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 18.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 13.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 8.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 27.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 33.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 10.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 28.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 21.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 19.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 31.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 16.200000## Warning in dpois(y, mu, log = TRUE): non-integer x = 40.500000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 14.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 18.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 13.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 8.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 27.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 33.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 10.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 28.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 21.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 19.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 31.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 16.200000## Warning in dpois(y, mu, log = TRUE): non-integer x = 40.500000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 14.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 18.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 13.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 8.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 27.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 33.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 10.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 28.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 21.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 19.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 31.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 16.200000## Warning in dpois(y, mu, log = TRUE): non-integer x = 40.500000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 14.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 18.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 13.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 8.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 27.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 33.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 10.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 28.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 21.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 19.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 31.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 16.200000## Warning in dpois(y, mu, log = TRUE): non-integer x = 40.500000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 14.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 18.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 13.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 8.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 27.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 33.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 10.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 28.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 21.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 19.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 31.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 16.200000## Warning in dpois(y, mu, log = TRUE): non-integer x = 40.500000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 14.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 18.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 13.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 8.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 27.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 33.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 10.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 28.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 21.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 19.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 31.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 16.200000## Warning in dpois(y, mu, log = TRUE): non-integer x = 40.500000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 14.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 18.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 13.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 8.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 27.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 33.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 10.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 28.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 21.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 19.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 31.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 16.200000## Warning in dpois(y, mu, log = TRUE): non-integer x = 40.500000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 14.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 18.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 13.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 8.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 27.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 33.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 10.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 28.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 21.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 19.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 31.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 16.200000## Warning in dpois(y, mu, log = TRUE): non-integer x = 40.500000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 14.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 18.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 13.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 8.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 27.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 33.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 10.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 28.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 21.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 19.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 31.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 16.200000## Warning in dpois(y, mu, log = TRUE): non-integer x = 40.500000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 14.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 18.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 13.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 8.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 27.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 33.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 10.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 28.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 21.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 19.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 31.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 16.200000## Warning in dpois(y, mu, log = TRUE): non-integer x = 40.500000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 14.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 18.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 13.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 8.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 27.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 33.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 10.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 28.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 21.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 19.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 31.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 16.200000## Warning in dpois(y, mu, log = TRUE): non-integer x = 40.500000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 14.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 18.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 13.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 8.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 27.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 33.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 10.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 28.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 21.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 19.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 31.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 16.200000## Warning in dpois(y, mu, log = TRUE): non-integer x = 40.500000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 14.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 18.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 13.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 8.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 27.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 33.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 10.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 28.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 21.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 19.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 31.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 16.200000## Warning in dpois(y, mu, log = TRUE): non-integer x = 40.500000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 14.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 18.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 13.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 8.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 27.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 33.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 10.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 28.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 21.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 19.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 31.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 16.200000## Warning in dpois(y, mu, log = TRUE): non-integer x = 40.500000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 14.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 18.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 13.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 8.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 27.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 33.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 10.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 28.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 21.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 19.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 31.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 16.200000## Warning in dpois(y, mu, log = TRUE): non-integer x = 40.500000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 14.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 18.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 13.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 8.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 27.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 33.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 10.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 28.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 21.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 19.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 31.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 16.200000## Warning in dpois(y, mu, log = TRUE): non-integer x = 40.500000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 14.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 18.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 13.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 8.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 27.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 33.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 10.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 28.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 21.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 19.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 31.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 16.200000## Warning in dpois(y, mu, log = TRUE): non-integer x = 40.500000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 14.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 18.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 13.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 8.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 27.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 33.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.900000## Warning in dpois(y, mu, log = TRUE): non-integer x = 10.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 28.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 11.600000## Warning in dpois(y, mu, log = TRUE): non-integer x = 21.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 19.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 31.400000## Warning in dpois(y, mu, log = TRUE): non-integer x = 15.100000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.800000## Warning in dpois(y, mu, log = TRUE): non-integer x = 7.700000## Warning in dpois(y, mu, log = TRUE): non-integer x = 16.200000## Warning in dpois(y, mu, log = TRUE): non-integer x = 40.500000## Warning in dpois(y, mu, log = TRUE): non-integer x = 17.300000## Warning in dpois(y, mu, log = TRUE): non-integer x = 14.900000## 2.5 % 97.5 %
## (Intercept) 46.8066118 26.2002124 85.1499428
## contribuyentesSunat 1.0000001 1.0000000 1.0000002
## porcentaje 0.9809826 0.9695552 0.9919938Al querer probar la hipotesis que la cantidad de PEA ocupada dependen de la cantidad de contribuyentes a la SUNAT ; y del porcentaje de locales escolares en buen estado; se llega a comprobar que
h2=formula(peaOcupada~contribuyentesSunat+buenEstado)
modelo2=glm(h2, data = data,
family = poisson(link = "log"))summary(modelo2)##
## Call:
## glm(formula = h2, family = poisson(link = "log"), data = data)
##
## Coefficients:
## Estimate Std. Error z value Pr(>|z|)
## (Intercept) 1.238e+01 9.007e-04 13744.7 <2e-16 ***
## contribuyentesSunat 5.575e-07 1.786e-10 3121.7 <2e-16 ***
## buenEstado 7.924e-03 4.530e-05 174.9 <2e-16 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for poisson family taken to be 1)
##
## Null deviance: 16555865 on 24 degrees of freedom
## Residual deviance: 2148535 on 22 degrees of freedom
## AIC: 2148901
##
## Number of Fisher Scoring iterations: 4cbind(exp(coef(modelo2)),exp(confint(modelo2)))## Waiting for profiling to be done...## 2.5 % 97.5 %
## (Intercept) 2.380276e+05 2.376077e+05 2.384482e+05
## contribuyentesSunat 1.000001e+00 1.000001e+00 1.000001e+00
## buenEstado 1.007956e+00 1.007866e+00 1.008045e+00