Corrige problema do tamanho da fonte no axis da lattice.

vignettes/_setup.R

@@ -25,6 +25,7 @@ ps <- list(box.rectangle = list(col = 1, fill = c("gray70")),
            superpose.line = list(col = mycol, lty = 1),
            superpose.symbol = list(col = mycol, pch = 1),
            superpose.polygon = list(col = mycol),
-           strip.background = list(col = c("gray80", "gray50")))
+           strip.background = list(col = c("gray80", "gray50")),
+           axis.text = list(cex = 0.8))
 trellis.par.set(ps)
 # show.settings()

vignettes/v03_binomial_negativa.Rmd

@@ -236,7 +236,6 @@ kable(round(estimat, 5), align = "c",
 
 ```{r}
 efeitos <- allEffects(mBNo, given.values = c(lexpo = 0))
-trellis.par.set(list(axis.text = list(cex = 1.2)))
 
 plot(efeitos[[2]],
      type = "response",
@@ -255,6 +254,8 @@ plot(efeitos[[4]],
      main = "Taxa de sinistros vs. valor do automóvel",
      xlab = "Valor (x1000 reais)",
      ylab = "Taxa de sinistros")
+
+dev.off()
 ```
 
 ## Frequências ajustadas pelas duas distribuições