Commit 072aad04 authored by Eduardo E. R. Junior's avatar Eduardo E. R. Junior

Complementa arquivo de configurações do knitr para os slides

parent 704ed441
...@@ -3,9 +3,27 @@ opts_chunk$set( ...@@ -3,9 +3,27 @@ opts_chunk$set(
echo = FALSE, echo = FALSE,
cache = FALSE, cache = FALSE,
tidy = FALSE, tidy = FALSE,
fig.width = 8, message = FALSE,
warning = FALSE,
fig.width = 9,
fig.height = 5, fig.height = 5,
fig.align = "center", fig.align = "center",
out.width = "0.8\\textwidth", out.width = "0.8\\textwidth",
dev.args = list(family = "Palatino")) dev.args = list(family = "Palatino"))
# Trellis graphical style.
library(latticeExtra)
mycol <- c("#E41A1C", "#377EB8", "#4DAF4A",
"#984EA3", "#FF7F00", "#FFFF33")
ps <- list(box.rectangle = list(col = 1, fill = c("gray70")),
box.umbrella = list(col = 1, lty = 1),
dot.symbol = list(col = 1, pch = 19),
dot.line = list(col = "gray50", lty = 3),
plot.symbol = list(col = 1, cex = 0.8),
plot.line = list(col = 1),
plot.polygon = list(col = "gray95"),
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")))
trellis.par.set(ps)
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