Corrige sintaxe em Tb2.6 e adiciona Rd's

R/AndradeTb2.6.R

@@ -8,7 +8,7 @@
 #' \describe{
 #'
 #' \item{\code{H}}{Fator de 2 níveis qualitativos que são os hábitos de
-#'     crescimento, sendo \code}{3}: "indeterminado trepador"; e
+#'     crescimento, sendo \code{3}: "indeterminado trepador"; e
 #'     \code{4}: "indeterminado prostrado".}
 #'
 #' \item{\code{P}}{Fator de 3 níveis qualitativos que são os portes,

man/AndradeEg2.1.Rd

@@ -2,7 +2,7 @@
 % Please edit documentation in R/AndradeEg2.1.R
 \name{AndradeEg2.1}
 \alias{AndradeEg2.1}
-\title{Estudo do Crescimento de Pastagem Relacionado a Temperatura}
+\title{Relação entre Crescimento de Pastagem e Temperatura}
 \format{Um \code{data.frame} com 9 observações e 2 variáveis, em que
 
 \describe{
@@ -10,34 +10,33 @@
 \item{\code{temp}}{Temperatura do solo a 10 cm de profundidade, em
     ºC.}
 
-\item{\code{tc}}{Taxa de crescimento da pastagem, em kg/hadia.}
+\item{\code{tc}}{Taxa de crescimento da pastagem, em kg ha\eqn{^-1}
+    por dia.}
 
 }}
 \source{
-Estatística para as ciências agrárias e biológicas: com
-    noções de experimentação / Dalton F. Andrade, Paulo J. Ogliari.
-    2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Exemplo
-    2.1, pág. 60)
+Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+    ciências agrárias e biológicas com noções de experimentação (2nd
+    ed.). Florianópolis, SC. Editora da UFSC. (Exemplo 2.1, pág. 60)
 }
 \description{
-Estudo do tipo de relacionamento entre a taxa de
+Estudo sobre o relacionamento entre a taxa de
     crescimento de uma pastagem cultivada no Planalto catarinense e a
     temperatura do solo a 10 cm de profundidade, no período de junho
     a novembro.
 }
 \examples{
 
-library(lattice)
-
 data(AndradeEg2.1)
 str(AndradeEg2.1)
 
+library(lattice)
 xyplot(tc ~ temp,
        data = AndradeEg2.1,
        type = c("p", "r"),
        xlab = "Temperatura do solo (ºC)",
-       ylab = "Taxa de crescimento (kg/hadia)")
+       ylab = expression(Taxa~de~crescimento~(kg~ha^{-1}~dia)))
 
 }
-\keyword{AAS}
+\keyword{RS}
 

man/AndradeTb1.1.Rd

@@ -2,22 +2,23 @@
 % Please edit documentation in R/AndradeTb1.1.R
 \name{AndradeTb1.1}
 \alias{AndradeTb1.1}
-\title{Estudo da Duração do Quinto Estádio Ninfal de Triatoma Klugi}
+\title{Estudo da Duração do Quinto Estádio Ninfal de \emph{Triatoma
+    Klugi}}
 \format{Um \code{vetor} numérico com 35 observações.}
 \source{
-Estatística para as ciências agrárias e biológicas: com
-    noções de experimentação / Dalton F. Andrade, Paulo J. Ogliari.
-    2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Tabela
-    1.1, pág. 37)
+Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+    ciências agrárias e biológicas com noções de experimentação (2nd
+    ed.). Florianópolis, SC. Editora da UFSC. (Tabela 1.1, pág. 37)
 }
 \description{
 Foi feito um experimento, na Universidade Federal de
     Santa Catarina, para estudar a duração, em dias, do quinto
-    estádio ninfal de Triatoma klugi com alimentação em galo.
+    estádio ninfal de \emph{Triatoma klugi} com alimentação em galo.
 }
 \examples{
 
 data(AndradeTb1.1)
+str(AndradeTb1.1)
 
 hist(AndradeTb1.1,
      prob = TRUE,
@@ -29,16 +30,13 @@ hist(AndradeTb1.1,
      ylim = c(0, 0.062))
 
 lines(density(AndradeTb1.1), lwd = 2)
-
 rug(AndradeTb1.1)
 
 boxplot(AndradeTb1.1,
         ylab = "Duração do Quinto Estádio Ninfal (em dias)")
 
 mean(AndradeTb1.1)
-
 sd(AndradeTb1.1)
-
 fivenum(AndradeTb1.1)
 
 }

man/AndradeTb1.2.Rd

@@ -2,50 +2,44 @@
 % Please edit documentation in R/AndradeTb1.2.R
 \name{AndradeTb1.2}
 \alias{AndradeTb1.2}
-\title{Experimento de Produção de Milho em função do Nitrogênio}
+\title{Experimento de Produção de Milho em Função do Nitrogênio}
 \format{Um \code{data.frame} com 25 observações e 3 variáveis, em que
 
 \describe{
 
-\item{\code{trat}}{Fator de 5 níveis qualitativos que são as dosagens
-    de Nitrogênio, em \eqn{kg.ha^{-1}}.}
+\item{\code{trat}}{Fator de 5 níveis que são as dosagens de
+    Nitrogênio, em \eqn{kg\ ha^{-1}}.}
 
 \item{\code{rept}}{Fator de 5 níveis qualitativos que são as
     repetições do experimento.}
 
-\item{\code{prod}}{Produção de milho, em \eqn{kg.ha^{-1}}.}
+\item{\code{prod}}{Produção de milho, em \eqn{kg\ ha^{-1}}.}
 
 }}
 \source{
-Estatística para as ciências agrárias e biológicas: com
-    noções de experimentação / Dalton F. Andrade, Paulo J. Ogliari.
-    2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Tabela
-    1.2, pág. 40)
+Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+    ciências agrárias e biológicas com noções de experimentação (2nd
+    ed.). Florianópolis, SC. Editora da UFSC. (Tabela 1.2, pág. 40)
 }
 \description{
 Experimento que tem como objetivo verificar o
     comportamento da produção de milho sob o efeito de diferentes
     doses de nitrogênio. Para cada dose de nitrogênio foram plantados
-    cinco canteiros de terra de \eqn{10m^{2}} cada. Portanto o
-    tamanho da amostra para cada dose de nitrogênio é cinco.
+    cinco canteiros de terra de \eqn{10m^{2}} cada. Portanto, são
+    cinco observações para cada dose de nitrogênio.
 }
 \examples{
 
-library(lattice)
-
 data(AndradeTb1.2)
 str(AndradeTb1.2)
 
+library(lattice)
 xyplot(prod ~ trat,
-       groups = rept,
        data = AndradeTb1.2,
        type = c("p", "a"),
-       auto.key = list(title = "Repetições",
-                       cex.title = 1.1,
-                       columns = 5),
-       xlab = "Dosagem de Nitrogênio (em kg/ha)",
-       ylab = "Produção de Milho (em kg/ha)")
+       xlab = expression(Dosagem~de~Nitrogênio~(em~kg~ha^{-1})),
+       ylab = expression(Produção~de~Milho~(em~kg~ha^{-1})))
 
 }
-\keyword{DBC}
+\keyword{DIC}
 

man/AndradeTb2.1.Rd

@@ -2,7 +2,7 @@
 % Please edit documentation in R/AndradeTb2.1.R
 \name{AndradeTb2.1}
 \alias{AndradeTb2.1}
-\title{Experimento de Competição de Híbridos de Milho}
+\title{Competição de Híbridos de Milho}
 \format{Um \code{data.frame} com 32 observações e 7 variáveis, em que
 
 \describe{
@@ -11,7 +11,7 @@
     híbridos de milho.}
 
 \item{\code{rm}}{Rendimento médio do híbrido de milho, em
-    \eqn{kg.ha^{-1}}.}
+    \eqn{kg\ ha^{-1}}.}
 
 \item{\code{ciclo}}{Ciclo de vida do híbrido de milho, em dias.}
 
@@ -23,93 +23,99 @@
     de grão.}
 
 \item{\code{resist}}{Fator de 4 níveis qualitativos que indica a
-    resistência à ferrugem, sendo: r = resistente; mr = moderadamente
-    resistente; ms = moderadamente susceptível; s = susceptível.}
+    resistência à ferrugem, sendo \code{r}: resistente; \code{mr}:
+    moderadamente resistente; \code{ms}: moderadamente susceptível; e
+    \code{s}: susceptível.}
 
 }}
 \source{
-Estatística para as ciências agrárias e biológicas: com
-    noções de experimentação / Dalton F. Andrade, Paulo J. Ogliari.
-    2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Tabela
-    2.1, pág. 62)
+Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+    ciências agrárias e biológicas com noções de experimentação (2nd
+    ed.). Florianópolis, SC. Editora da UFSC. (Tabela 2.1, pág. 62)
 }
 \description{
-Um pesquisador instalou um experimento, na região de
-    Chapecó, SC, para avaliação do comportamento de híbridos de
-    milho.
+Um pesquisador avaliou, na região de Chapecó, SC, o
+    comportamento de híbridos de milho mensurados pelo rendimento
+    médio de milho, ciclo de vida, altura da planta e altura da
+    espiga.
 }
 \examples{
 
 library(lattice)
-library(plyr)
 
 data(AndradeTb2.1)
 str(AndradeTb2.1)
 
-xyplot(rm ~ hibr,
-       groups = grao,
-       type = "b",
-       data = AndradeTb2.1,
-       auto.key = list(title = "Tipo de Grão",
-                       cex.title = 1.1,
-                       columns = 3),
-       ylab = "Rendimendo Médio (em kg/ha)",
-       xlab = "Híbrido de Milho")
+levels_resist <- c("Resistente", "Moderadamente Resistente",
+                   "Moderadamente Susceptível", "Susceptível")
 
-xyplot(rm ~ hibr,
+# Comportamento do rendimento médio
+xyplot(rm ~ hibr | grao,
        groups = resist,
        type = "b",
+       layout = c(NA, 1),
        data = AndradeTb2.1,
-       auto.key = list(title = "Resistência à Ferrugem",
+       auto.key = list(title = "Resistência à ferrugem",
                        cex.title = 1.1,
-                       columns = 4),
+                       columns = 2,
+                       text = levels_resist),
        ylab = "Rendimendo Médio (em kg/ha)",
        xlab = "Híbrido de Milho")
 
-xyplot(ciclo ~ hibr,
-       groups = grao,
-       type = "b",
-       data = AndradeTb2.1,
-       auto.key = list(title = "Tipo de Grão",
-                       cex.title = 1.1,
-                       columns = 3),
-       ylab = "Ciclo (em dias)",
-       xlab = "Híbrido de Milho")
-
-xyplot(ciclo ~ hibr,
+# Compartamento do ciclo de vida
+xyplot(ciclo ~ hibr | grao,
        groups = resist,
        type = "b",
+       layout = c(NA, 1),
        data = AndradeTb2.1,
-       auto.key = list(title = "Resistência à Ferrugem",
+       auto.key = list(title = "Resistência à ferrugem",
                        cex.title = 1.1,
-                       columns = 4),
+                       columns = 2,
+                       text = levels_resist),
        ylab = "Ciclo (em dias)",
        xlab = "Híbrido de Milho")
 
-xyplot(ap + ae ~ hibr,
-       groups = grao,
+# Comportamento das alturas
+library(latticeExtra)
+useOuterStrips(
+    xyplot(ap + ae ~ hibr | grao,
+           groups = resist,
            type = "b",
-       strip = strip.custom(factor.levels = c("Altura da Planta",
-                                              "Altura da Espiga")),
            data = AndradeTb2.1,
-       auto.key = list(title = "Tipo de Grão",
+           auto.key = list(title = "Resistência à ferrugem",
                            cex.title = 1.1,
-                       columns = 3),
+                           columns = 2,
+                           text = levels_resist),
            ylab = "Altura (em cm)",
-       xlab = "Híbrido de Milho")
-
-xyplot(ap + ae ~ hibr,
+           xlab = "Híbrido de Milho"),
+    strip.left = strip.custom(factor.levels = c("Planta", "Espiga"))
+    )
+
+# Comportamento geral
+vars <- c("Rendimento", "Ciclo de vida", "Altura planta", "Altura espiga")
+useOuterStrips(
+    xyplot(rm + ciclo + ap + ae ~ hibr | grao,
            groups = resist,
-       type = "b",
-       strip = strip.custom(factor.levels = c("Altura da Planta",
-                                              "Altura da Espiga")),
            data = AndradeTb2.1,
-       auto.key = list(title = "Resistência à Ferrugem",
+           type = "b",
+           as.table = TRUE,
+           xlab = "Híbrido de Milho",
+           ylab = "",
+           scales = list(y = "free", x = list(rot = 90)),
+           auto.key = list(
+               title = "Resistência à Ferrugem",
                cex.title = 1.1,
-                       columns = 4),
-       ylab = "Altura (em cm)",
-       xlab = "Híbrido de Milho")
+               columns = 2,
+               text = levels_resist)
+           ),
+    strip.left = strip.custom(factor.levels = vars)
+)
+
+# Relação entre as variáveis de interesse
+splom(~AndradeTb2.1[, c("rm", "ciclo", "ap", "ae")],
+      type = c("p", "smooth"),
+      data = AndradeTb2.1)
 
 }
-\keyword{AAS}
+\keyword{AASM}
 

man/AndradeTb2.11.Rd

@@ -2,26 +2,25 @@
 % Please edit documentation in R/AndradeTb2.11.R
 \name{AndradeTb2.11}
 \alias{AndradeTb2.11}
-\title{Experimento de Contagem de Plantas}
+\title{Relação entre Ciclo e Virescência em Plantas}
 \format{Um \code{data.frame} com 4 observações e 3 variáveis, em que
 
 \describe{
 
 \item{\code{ciclo}}{Fator de 2 níveis qualitativos que indica o
-    caractere ciclo (Tardio e Precoce).}
+    caractere ciclo (tardio e precoce).}
 
 \item{\code{vir}}{Fator de 3 níveis qualitativos que indica o
-    caractere virescência (Normal e Virescente).}
+    caractere virescência (normal e virescente).}
 
 \item{\code{cont}}{Contagem de plantas segregando para dois
     caracteres numa progênie da espécie "X".}
 
 }}
 \source{
-Estatística para as ciências agrárias e biológicas: com
-    noções de experimentação / Dalton F. Andrade, Paulo J. Ogliari.
-    2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Tabela
-    2.11, pág. 80)
+Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+    ciências agrárias e biológicas com noções de experimentação (2nd
+    ed.). Florianópolis, SC. Editora da UFSC. (Tabela 2.11, pág. 80)
 }
 \description{
 Experimento que tem por objetivo verificar se os
@@ -30,21 +29,22 @@ Experimento que tem por objetivo verificar se os
 }
 \examples{
 
-library(lattice)
-
 data(AndradeTb2.11)
 str(AndradeTb2.11)
 
-tb <- xtabs(cont~ciclo + vir, data= AndradeTb2.11)
+(tb <- xtabs(cont~ciclo + vir, data= AndradeTb2.11))
+
+mosaicplot(tb)
 
 barplot(t(tb),
         beside = TRUE,
         legend.text = TRUE,
+        args.legend = list(x = "topleft"),
         col = c("darkturquoise", "lawngreen"),
         ylim = c(0, 3500),
         xlab = "Ciclo",
         ylab = "Contagem de Plantas")
 
 }
-\keyword{AAS}
+\keyword{contingência}
 

man/AndradeTb2.12.Rd

@@ -2,48 +2,48 @@
 % Please edit documentation in R/AndradeTb2.12.R
 \name{AndradeTb2.12}
 \alias{AndradeTb2.12}
-\title{Estudo de Alimentação de Pássaros}
+\title{Relação do Número de Pássaros com Local de Alimentação}
 \format{Um \code{data.frame} com 6 observações e 3 variáveis, em que
 
 \describe{
 
 \item{\code{estacao}}{Fator de 2 níveis qualitativos que são as
-    estações do ano (Primavera e Outono).}
+    estações do ano (primavera e outono).}
 
 \item{\code{local}}{Fator de 3 níveis qualitativos que são os locais
-    da Floresta (Árvores, Arbusto e Chão).}
+    da Floresta (árvores, arbusto e chão).}
 
 \item{\code{passaros}}{Número de pássaros de uma particular espécie.}
 
 }}
 \source{
-Estatística para as ciências agrárias e biológicas: com
-    noções de experimentação / Dalton F. Andrade, Paulo J. Ogliari.
-    2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Tabela
-    2.12, pág. 81)
+Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+    ciências agrárias e biológicas com noções de experimentação (2nd
+    ed.). Florianópolis, SC. Editora da UFSC. (Tabela 2.12, pág. 81)
 }
 \description{
-Estudo do número de pássadors de uma particular espécie,
-    classificados de acordo com o local da floresta onde se
-    alimentam, para duas estações do ano.
+Estudo sobre o número de pássaros de uma particular
+    espécie observados em diferentes locais de alimentação na
+    floresta. O estudo foi realizado em duas estações do ano.
 }
 \examples{
 
-library(lattice)
-
 data(AndradeTb2.12)
 str(AndradeTb2.12)
 
-xyplot(passaros ~ estacao,
-       groups = local,
-       data = AndradeTb2.12,
-       type = "b",
-       auto.key = list(title = "Local da Floresta",
+(tb <- xtabs(passaros ~ estacao + local, data= AndradeTb2.12))
+
+mosaicplot(tb)
+
+library(lattice)
+barchart(tb,
+         stack = FALSE,
+         horizontal = FALSE,
+         auto.key = list(
+             title = "Local de alimentação",
              cex.title = 1.1,
-                       columns = 3),
-       xlab = "Estação do Ano",
-       ylab = "Número de Pássaros")
+             columns = 3))
 
 }
-\keyword{AAS}
+\keyword{contingência}
 

man/AndradeTb2.15.Rd

@@ -14,10 +14,9 @@
 
 }}
 \source{
-Estatística para as ciências agrárias e biológicas: com
-    noções de experimentação / Dalton F. Andrade, Paulo J. Ogliari.
-    2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Tabela
-    2.15, pág. 89)
+Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+    ciências agrárias e biológicas com noções de experimentação (2nd
+    ed.). Florianópolis, SC. Editora da UFSC. (Tabela 2.15, pág. 89)
 }
 \description{
 Estudo da distribuição do número de plantas sadias de
@@ -25,23 +24,29 @@ Estudo da distribuição do número de plantas sadias de
 }
 \examples{
 
-library(lattice)
-
 data(AndradeTb2.15)
 str(AndradeTb2.15)
 
-bp <- barplot(AndradeTb2.15$freq * (100/sum(AndradeTb2.15$freq)),
-              names.arg = AndradeTb2.15$plantas,
+# Gráfico de barras
+with(AndradeTb2.15, {
+    fr <- paste0("(", round(100 * freq / sum(freq)), "\% )")
+    bp <- barplot(freq,
+                  names.arg = plantas,
                   col = "darkturquoise",
                   beside = TRUE,
-              ylim = c(0, 50),
+                  ylim = extendrange(freq),
                   xlab = "Número de Plantas Colhidas Sadias",
                   ylab = "Porcentagem do Número de Parcelas")
+    text(bp, freq + 0.3, labels = paste(freq, fr))
+})
 
-text(bp, 0,
-     round(AndradeTb2.15$freq * (100/sum(AndradeTb2.15$freq)), 1),
-     cex= 1, pos = 3)
+# Gráfico de setores
+with(AndradeTb2.15, {
+    fr <- paste0("(", round(100 * freq / sum(freq)), "\%)")
+    pie(freq, labels = paste(plantas, "plantas\\nsadias", fr),
+        col = gray.colors(length(freq)))
+})
 
 }
-\keyword{AAS}
+\keyword{contingência}
 

man/AndradeTb2.6.Rd

@@ -8,18 +8,18 @@
 \describe{
 
 \item{\code{H}}{Fator de 2 níveis qualitativos que são os hábitos de
-    crescimento, sendo: 3 = "indeterminado trepador"; 4 =
-    "indeterminado prostrado".}
+    crescimento, sendo \code{3}: "indeterminado trepador"; e
+    \code{4}: "indeterminado prostrado".}
 
 \item{\code{P}}{Fator de 3 níveis qualitativos que são os portes,
-    sendo: Tr = "trepador"; EB = "ereto na base"; Pr = "prostrado".}
+    sendo \code{Tr}: "trepador"; \code{EB}: "ereto na base"; e
+    \code{Pr}: "prostrado".}
 
 }}
 \source{
-Estatística para as ciências agrárias e biológicas: com
-    noções de experimentação / Dalton F. Andrade, Paulo J. Ogliari.
-    2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Tabela
-    2.6, pág. 74)
+Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+    ciências agrárias e biológicas com noções de experimentação (2nd
+    ed.). Florianópolis, SC. Editora da UFSC. (Tabela 2.6, pág. 74)
 }
 \description{
 Experimento no qual um pesquisador está procurando
@@ -28,25 +28,22 @@ Experimento no qual um pesquisador está procurando
 }
 \examples{
 
-library(lattice)
-library(plyr)
-
 data(AndradeTb2.6)
 str(AndradeTb2.6)
 
-tb <- xtabs(~H+P, data= AndradeTb2.6)
+(tb <- xtabs(~H+P, data= AndradeTb2.6))
+
+mosaicplot(tb)
 
 barplot(t(tb), names.arg = c("Prostrado", "Trepador"),
         beside = TRUE,
         space = c(0.2, 1),
         col = c("darkturquoise", "lawngreen", "blue"),
         ylim = c(0, 30))
-
 legend("topleft",
-       legend = c("Eb", "Pr", "Tr"),
-       col = c("darkturquoise", "lawngreen","blue"),
-       pch = 8)
+       legend = levels(AndradeTb2.6$P),
+       fill = c("darkturquoise", "lawngreen", "blue"))
 
 }
-\keyword{AAS}
+\keyword{contingência}