Comenta código que usa VGAM, dá problema não sei porque.

vignettes/v07_excesso_zeros.Rmd

@@ -21,7 +21,6 @@ library(MRDCr)
 # Números de peixes capturados em um Parque Estadual #
 
 ```{r}
-
 data(peixe)
 peixe$campista <- as.factor(peixe$campista)
 levels(peixe$campista) <- c("Não", "Sim")
@@ -36,19 +35,15 @@ informações coletadas foram refentes a presenção ou não de um campista,
 ao número de crianças no grupo e ao número de indivíduos no grupo. Assim
 as variáveis definidas são:
 
-`campista`: Fator com dois níveis que representa a presença (_Sim_) ou
-ausência (_Não_) de um campista no grupo.
-
-`ncriancas`: Número de crianças no grupo.
-
-`npessoas`: Número total de pessoas no grupo.
-
-`npeixes`: Número de peixes capturados pelo grupo.
+  * `campista`: Fator com dois níveis que representa a presença (_Sim_)
+    ou ausência (_Não_) de um campista no grupo.
+  * `ncriancas`: Número de crianças no grupo.
+  * `npessoas`: Número total de pessoas no grupo.
+  * `npeixes`: Número de peixes capturados pelo grupo.
 
 ## Análise exploratória ##
 
 ```{r}
-
 ## Estudo observacional
 ftable(with(peixe, table(npessoas, ncriancas, campista)))
 
@@ -321,18 +316,18 @@ mzero <- glm(indica ~ campista + npessoas + ncriancas,
 cbind("glm_binomial" = coef(mzero),
       "zeroinfl" = coef(m3HBN, model = "zero"))
 
-##-------------------------------------------
-## Componente da contagem nula (f_count)
-library(VGAM)
-countp <- subset(peixe, npeixes > 0)
-mcount <- vglm(npeixes ~ npessoas + ncriancas,
-               family = posnegbinomial, data = countp)
-
-## Comparando os coeficientes (betas e theta (da BN))
-cbind("vglm_posnegbin" = coef(mcount)[-2],
-      "zeroinfl" = coef(m3HBN, model = "count"))
-cbind("vglm_posnegbin" = exp(coef(mcount)[2]), 
-      "zeroinfl" = m3HBN$theta)
+# ##-------------------------------------------
+# ## Componente da contagem nula (f_count)
+# library(VGAM)
+# countp <- subset(peixe, npeixes > 0)
+# mcount <- vglm(npeixes ~ npessoas + ncriancas,
+#                family = posnegbinomial, data = countp)
+#
+# ## Comparando os coeficientes (betas e theta (da BN))
+# cbind("vglm_posnegbin" = coef(mcount)[-2],
+#       "zeroinfl" = coef(m3HBN, model = "count"))
+# cbind("vglm_posnegbin" = exp(coef(mcount)[2]),
+#       "zeroinfl" = m3HBN$theta)
 
 ```
 
@@ -341,11 +336,9 @@ cbind("vglm_posnegbin" = exp(coef(mcount)[2]),
 ## Análise exploratória ##
 
 ```{r}
-
 data(seguros)
 str(seguros)
 ## help(seguros)
-
 ```
 
 Dados referentes ao acompanhamento de clientes de uma seguradora de