diff --git a/vignettes/_setup.R b/vignettes/_setup.R
index f4dd5f05be37c70b243f933a89ba1994a6bd3284..7542d177a35b8d4667226e5025de47bdd1390062 100644
--- a/vignettes/_setup.R
+++ b/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()
diff --git a/vignettes/v03_binomial_negativa.Rmd b/vignettes/v03_binomial_negativa.Rmd
index 0e93cfb8fae9b23e92ab1ab6417d8400156395d9..0266e1d4eaf15772699c92c9a3025adf0079a252 100644
--- a/vignettes/v03_binomial_negativa.Rmd
+++ b/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