Universidade Federal do Paraná
Curso de Estatística
CE 083 -
Estatística Computacional I - 2014/2
Prof. Dr. Walmes Marques Zeviani
Tabela de conteúdo
##-----------------------------------------------------------------------------
## Carregar o pacote odfWeave.
rm(list=ls())
require(odfWeave)
## Acesso à documentação do pacote.
## help(package="odfWeave", help_type="html")
##-----------------------------------------------------------------------------
## Criar objetos que serão usados dentro do documento do LibreOffice.
## Dia de execussão da análise.
dea <- format(Sys.time(), format="%d de %B de %Y às %H:%M")
## Dados pessoais. Usar `\Sexpr{nome}` para printar.
nome <- "Fulado de Tal"
prof <- "Bacharel em estatística"
email <- "fulano@detal.br"
##-----------------------------------------------------------------------------
## Tabelas e figuras para serem inseridas no documento.
## require(tables)
## tb <- tabular(data=iris, Sepal.Length*mean~Species); tb
args(tabular)
tb <- aggregate(
cbind(Petal.Length, Petal.Width, Sepal.Length,
Petal.Length)~Species,
data=iris, FUN=mean)
tb
## Colocar dentro de um chunk com `echo=FALSE, results=xml`.
odfTableCaption("Média para comprimento e largura da sépala e pétala de flores Iris.")
odfTable(tb, useRowNames=FALSE)
pl <- function(){
plot(Petal.Length~Petal.Width, data=iris,
col=iris$Species, pch=19,
xlab="Largura da pétala",
ylab="Comprimento da pétala")
}
## Colocar em um chunk com `echo=FALSE, fig=TRUE`.
pl()
save.image("ce083-2014-02-aula19.RData")
##-----------------------------------------------------------------------------
## Fazendo a compilação - interpretação do código R dentro dos chunks.
odfWeave(file="ce083-2014-02-aula19in.odt", dest="ce083-2014-02-aula19out.odt")
getwd()