Não foi possível enviar o arquivo. Será algum problema com as permissões?
Diferenças
Aqui você vê as diferenças entre duas revisões dessa página.
| Ambos lados da revisão anterior Revisão anterior Próxima revisão | Revisão anterior Próxima revisão Ambos lados da revisão seguinte | ||
|
ridiculas [2011/06/01 14:07] walmes |
ridiculas [2011/06/01 17:18] walmes |
||
|---|---|---|---|
| Linha 5: | Linha 5: | ||
| **//Ridículas//** é a página do LEG dedicada à fornecer //dicas curtas// sobre R, e.g. condução de análises, operação com dados e confecção de gráficos. As dicas estão organizadas pelo título, seguido de descrição, palavras-chave e CMR (código mínimo reproduzível). Se você deseja contribuir com a nossa página de Ridículas, envie e-mail para ''walmes@ufpr.br''. | **//Ridículas//** é a página do LEG dedicada à fornecer //dicas curtas// sobre R, e.g. condução de análises, operação com dados e confecção de gráficos. As dicas estão organizadas pelo título, seguido de descrição, palavras-chave e CMR (código mínimo reproduzível). Se você deseja contribuir com a nossa página de Ridículas, envie e-mail para ''walmes@ufpr.br''. | ||
| + | |||
| + | ---- | ||
| + | |||
| + | ==== Gráficos do R exportados pelo dispositivo ti//k//z ==== | ||
| + | |||
| + | Temporariamente sem descrição.\\ | ||
| + | palavras-chave: #tikz, #sweave, #latex. | ||
| + | |||
| + | <code> | ||
| + | \documentclass{article} | ||
| + | |||
| + | \usepackage{Sweave} | ||
| + | \usepackage{tikz} | ||
| + | |||
| + | \SweaveOpts{keep.source=true} | ||
| + | |||
| + | \title{Usando ti\textit{k}z no Sweave} | ||
| + | \author{Walmes Zeviani\\ LEG/UFPR} | ||
| + | |||
| + | \begin{document} | ||
| + | |||
| + | \maketitle | ||
| + | |||
| + | C\'{o}digo m\'{i}nimo reproduz\'{i}vel usando \texttt{tikzDevice} para exportar gr\'{a}ficos feitos no R | ||
| + | para codifica\c{c}\~{a}o ti\textit{k}z. | ||
| + | |||
| + | {\footnotesize | ||
| + | <<results=hide>>= | ||
| + | #------------------------------------------------------------------------------------------ | ||
| + | require(tikzDevice) | ||
| + | set.seed(2011); x <- rnorm(200) | ||
| + | tikz("plot.tex", w=5, h=3) | ||
| + | hist(x, freq=FALSE, ylab="Densidade", | ||
| + | main="Histograma de uma amostra de $X \\sim N(\\mu=0, \\sigma^2=1)$") | ||
| + | curve(dnorm(x), col=2, add=TRUE, lwd=2); rug(x) | ||
| + | legend("topleft", col=2, lty=1, lwd=2, bty="n", | ||
| + | legend="$\\displaystyle \\frac{1}{\\sqrt{2\\pi\\sigma^2}}\\cdot e^{-\\frac{(x-\\mu)^2}{2\\sigma^2}}$") | ||
| + | box(); dev.off() | ||
| + | #------------------------------------------------------------------------------------------ | ||
| + | @ | ||
| + | } | ||
| + | |||
| + | \input{plot.tex} | ||
| + | |||
| + | \end{document} | ||
| + | </code> | ||
| ---- | ---- | ||
| Linha 16: | Linha 62: | ||
| <code R> | <code R> | ||
| #------------------------------------------------------------------------------------------ | #------------------------------------------------------------------------------------------ | ||
| - | # por Ivan e Walmes | + | # por Ivan, Benilton e Walmes |
| #------------------------------------------------------------------------------------------ | #------------------------------------------------------------------------------------------ | ||
| # dados de séries de dados indexadas no tempo (meses) | # dados de séries de dados indexadas no tempo (meses) | ||
