From 7bc3f49c1bbfc0150e5acb0d69cb8fb54cbde98a Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Thu, 21 Jul 2016 20:38:26 -0300
Subject: [PATCH] Corrige problema do tamanho da fonte no axis da lattice.

---
 vignettes/_setup.R                  | 3 ++-
 vignettes/v03_binomial_negativa.Rmd | 3 ++-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/vignettes/_setup.R b/vignettes/_setup.R
index f4dd5f0..7542d17 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 0e93cfb..0266e1d 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
-- 
GitLab