Corrige problema do tamanho da fonte no axis da lattice.

parent 457189fb
Pipeline #6378 passed with stage
in 33 minutes and 7 seconds
......@@ -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()
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment