R/AndradeTb1.1.R

+#' @name AndradeTb1.1
+#' @title Estudo da Duração do Quinto Estádio Ninfal de \emph{Triatoma
+#'     Klugi}
+#' @description Foi feito um experimento, na Universidade Federal de
+#'     Santa Catarina, para estudar a duração, em dias, do quinto
+#'     estádio ninfal de \emph{Triatoma klugi} com alimentação em galo.
+#' @format Um \code{vetor} numérico com 35 observações.
+#' @keywords AAS
+#' @source 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)
+#' @examples
+#'
+#' data(AndradeTb1.1)
+#' str(AndradeTb1.1)
+#'
+#' hist(AndradeTb1.1,
+#'      prob = TRUE,
+#'      labels = TRUE,
+#'      col = "darkturquoise",
+#'      xlab = "Duração do Quinto Estádio Ninfal (em dias)",
+#'      ylab = "Densidade",
+#'      main = NULL,
+#'      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)
+#'
+NULL

R/AndradeTb1.2.R

+#' @name AndradeTb1.2
+#' @title Experimento de Produção de Milho em Função do Nitrogênio
+#' @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, são
+#'     cinco observações para cada dose de 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 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}}.}
+#'
+#' }
+#' @keywords DIC
+#' @source 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)
+#' @examples
+#'
+#' data(AndradeTb1.2)
+#' str(AndradeTb1.2)
+#'
+#' library(lattice)
+#' xyplot(prod ~ trat,
+#'        data = AndradeTb1.2,
+#'        type = c("p", "a"),
+#'        xlab = expression(Dosagem~de~Nitrogênio~(em~kg~ha^{-1})),
+#'        ylab = expression(Produção~de~Milho~(em~kg~ha^{-1})))
+#'
+NULL

R/AndradeTb2.1.R

+#' @name AndradeTb2.1
+#' @title Competição de Híbridos de Milho
+#' @description 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.
+#' @format Um \code{data.frame} com 32 observações e 7 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{hibr}}{Fator de 32 níveis qualitativos que são os
+#'     híbridos de milho.}
+#'
+#' \item{\code{rm}}{Rendimento médio do híbrido de milho, em
+#'     \eqn{kg\ ha^{-1}}.}
+#'
+#' \item{\code{ciclo}}{Ciclo de vida do híbrido de milho, em dias.}
+#'
+#' \item{\code{ap}}{Altura da planta do híbrido de milho, em cm.}
+#'
+#' \item{\code{ae}}{Altura da espiga do híbrido de milho, em cm.}
+#'
+#' \item{\code{grao}}{Fator de 3 níveis qualitativos que indica o tipo
+#'     de grão.}
+#'
+#' \item{\code{resist}}{Fator de 4 níveis qualitativos que indica a
+#'     resistência à ferrugem, sendo \code{r}: resistente; \code{mr}:
+#'     moderadamente resistente; \code{ms}: moderadamente susceptível; e
+#'     \code{s}: susceptível.}
+#'
+#' }
+#' @keywords AASM
+#' @source 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)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(AndradeTb2.1)
+#' str(AndradeTb2.1)
+#'
+#' levels_resist <- c("Resistente", "Moderadamente Resistente",
+#'                    "Moderadamente Susceptível", "Susceptível")
+#'
+#' # 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",
+#'                        cex.title = 1.1,
+#'                        columns = 2,
+#'                        text = levels_resist),
+#'        ylab = "Rendimendo Médio (em kg/ha)",
+#'        xlab = "Híbrido de Milho")
+#'
+#' # 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",
+#'                        cex.title = 1.1,
+#'                        columns = 2,
+#'                        text = levels_resist),
+#'        ylab = "Ciclo (em dias)",
+#'        xlab = "Híbrido de Milho")
+#'
+#' # Comportamento das alturas
+#' library(latticeExtra)
+#' useOuterStrips(
+#'     xyplot(ap + ae ~ hibr | grao,
+#'            groups = resist,
+#'            type = "b",
+#'            data = AndradeTb2.1,
+#'            auto.key = list(title = "Resistência à ferrugem",
+#'                            cex.title = 1.1,
+#'                            columns = 2,
+#'                            text = levels_resist),
+#'            ylab = "Altura (em cm)",
+#'            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,
+#'            data = AndradeTb2.1,
+#'            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 = 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)
+#'
+NULL

R/AndradeTb2.11.R

+#' @name AndradeTb2.11
+#' @title Relação entre Ciclo e Virescência em Plantas
+#' @description Experimento que tem por objetivo verificar se os
+#'     caracteres ciclo e virescência, de uma progênie da espécie "X",
+#'     segregam de forma independente.
+#' @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).}
+#'
+#' \item{\code{vir}}{Fator de 3 níveis qualitativos que indica o
+#'     caractere virescência (normal e virescente).}
+#'
+#' \item{\code{cont}}{Contagem de plantas segregando para dois
+#'     caracteres numa progênie da espécie "X".}
+#'
+#' }
+#' @keywords contingência
+#' @source 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)
+#' @examples
+#'
+#' data(AndradeTb2.11)
+#' str(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")
+#'
+NULL

R/AndradeTb2.12.R

+#' @name AndradeTb2.12
+#' @title Relação do Número de Pássaros com Local de Alimentação
+#' @description 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.
+#' @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).}
+#'
+#' \item{\code{local}}{Fator de 3 níveis qualitativos que são os locais
+#'     da Floresta (árvores, arbusto e chão).}
+#'
+#' \item{\code{passaros}}{Número de pássaros de uma particular espécie.}
+#'
+#' }
+#' @keywords contingência
+#' @source 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)
+#' @examples
+#'
+#' data(AndradeTb2.12)
+#' str(AndradeTb2.12)
+#'
+#' (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))
+#'
+NULL

R/AndradeTb2.15.R

+#' @name AndradeTb2.15
+#' @title Distribuição do Número de Plantas Sadias de Mandioca
+#' @description Estudo da distribuição do número de plantas sadias de
+#'     mandioca colhidas na área útil de uma parcela. Foram 30 parcelas
+#'     onde avaliou-se o número de mandiocas sadias em cada.
+#' @format Um \code{data.frame} com 5 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{plantas}}{Número de plantas sadias de mandioca.}
+#'
+#' \item{\code{freq}}{Frequência do número de plantas sadias de
+#'     mandioca.}
+#'
+#' }
+#' @keywords contingência
+#' @source 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)
+#' @examples
+#'
+#' data(AndradeTb2.15)
+#' str(AndradeTb2.15)
+#'
+#' # 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 = 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))
+#' })
+#'
+#' # 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)))
+#' })
+#'
+NULL

R/AndradeTb2.16.R

+#' @name AndradeTb2.16
+#' @title Altura dos Calos em Explantes do Cerrado \emph{Mandevilla
+#'     velutina}
+#' @description Avaliação da altura de calos em explantes do cerrado da
+#'     espécie \emph{Mandevilla velutina} após sua formação, durante um
+#'     período de 30 dias \emph{in vitro}. Têm-se interesse que os calos
+#'     não se desenvolvam, pois quanto menor, maior será o
+#'     desenvolvimento das plantas.
+#' @format Um \code{vetor} numérico com 37 observações.
+#' @keywords AAS
+#' @source 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.16, pág. 96)
+#' @examples
+#'
+#' data(AndradeTb2.16)
+#' str(AndradeTb2.16)
+#'
+#' summary(AndradeTb2.16)
+#' hist(AndradeTb2.16,
+#'      col = "darkturquoise",
+#'      labels = TRUE,
+#'      xlab = "Altura dos Calos (em cm)",
+#'      ylab = "Frequência",
+#'      xlim = c(0, 1))
+#'
+NULL

R/AndradeTb2.17.R

+#' @name AndradeTb2.17
+#' @title Pesos da Carne de Mexilhões de Manguezal
+#' @description Dados de peso da carne de mexilhões de manguezal.
+#' @format Um \code{vetor} numérico com 35 observações.
+#' @keywords AAS
+#' @source 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.17, pág. 96)
+#' @examples
+#'
+#' data(AndradeTb2.17)
+#' str(AndradeTb2.17)
+#'
+#' hist(AndradeTb2.17,
+#'      col = "darkturquoise",
+#'      labels = TRUE,
+#'      main = "",
+#'      prob = TRUE,
+#'      ylim = c(0, 0.06),
+#'      xlab = "Peso da Carne (em gramas)",
+#'      ylab = "Densidade")
+#'
+#' lines(density(AndradeTb2.17), lwd = 2)
+#'
+NULL

R/AndradeTb2.18.R

+#' @name AndradeTb2.18
+#' @title Rendimento Médio de Híbridos de Milho
+#' @description Rendimentos médios, em \eqn{kg\,ha^{-1}}, de 32 híbridos
+#'     de milho recomendados para a Região Oeste catarinense.
+#' @format Um \code{vetor} numérico com 32 observações.
+#' @keywords AAS
+#' @source 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.18, pág. 97)
+#' @examples
+#'
+#' data(AndradeTb2.18)
+#' str(AndradeTb2.18)
+#'
+#' hist(AndradeTb2.18,
+#'      col = "darkturquoise",
+#'      labels = TRUE,
+#'      main = "",
+#'      ylim = c(0, 1),
+#'      prob = TRUE,
+#'      xlab = "Rendimento Médio (em kg/ha)",
+#'      ylab = "Densidade")
+#'
+#' lines(density(AndradeTb2.18), lwd = 2)
+#'
+NULL

R/AndradeTb2.20.R

+#' @name AndradeTb2.20
+#' @title Altura de Brotos de Explantes de Abacaxi
+#' @description Estudo com brotos obtidos de explantes de abacaxi
+#'     \emph{In Vitro}, (\emph{Ananas comosus}), da cultivar Primavera.
+#'     No estudo valiou-se as alturas dos brotos, em centímetros.
+#' @format Um \code{vetor} numérico com 39 observações.
+#' @keywords AAS
+#' @source 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.20, pág. 102)
+#' @examples
+#'
+#' data(AndradeTb2.20)
+#' str(AndradeTb2.20)
+#'
+#' hist(AndradeTb2.20,
+#'      col = "darkturquoise",
+#'      labels = TRUE,
+#'      main = "",
+#'      prob = TRUE,
+#'      ylim = c(0, 2.5),
+#'      xlab = "Altura dos Brotos (em cm)",
+#'      ylab = "Densidade")
+#'
+#' lines(density(AndradeTb2.20), lwd = 2)
+#'
+NULL

R/AndradeTb2.22.R

+#' @name AndradeTb2.22
+#' @title Crescimento de Plantas \emph{Cecropia Glazioui} sob Diferentes
+#'     Ambientes
+#' @description Estudo que avalia o efeito da variação de luz no
+#'     crescimento de plantas da espécie \emph{Cecropia glazioui}.  O
+#'     crescimento foi mensurado mediante a área foliar específica após
+#'     60 dias de vida da planta e a variação de luz se deu pelo
+#'     ambiente em que a planta se encontrava, borda da mata
+#'     (intensidade de luz média de 10,6%) e mata fechada (intensidade
+#'     de luz média de 0,87%).
+#' @format Um \code{data.frame} com 70 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{ambiente}}{Fator de 2 níveis que representam o ambiente no
+#'     qual a planta se desenvolveu (borda da mata e mata fechada).}
+#'
+#' \item{\code{cresc}}{Crescimento das plantas.}
+#'
+#' }
+#' @keywords AASI
+#' @source 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.22, pág. 104)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(AndradeTb2.22)
+#' str(AndradeTb2.22)
+#'
+#' bwplot(cresc ~ ambiente,
+#'        data = AndradeTb2.22,
+#'        xlab = "Área Foliar",
+#'        ylab = "Crescimento das Plantas")
+#'
+#' densityplot(~cresc, groups = ambiente,
+#'             data = AndradeTb2.22,
+#'             auto.key = list(
+#'                 corner = c(0.95, 0.95),
+#'                 title = "Ambiente",
+#'                 cex.title = 1.1
+#'             ))
+#'
+NULL

R/AndradeTb2.23.R

+#' @name AndradeTb2.23
+#' @title Associação entre Localização e Ocorrências de Aborto
+#' @description Um pesquisador estudou uma possível associação entre a
+#'     localização, dois locais, e o número de abortos de crianças do
+#'     sexo feminino.
+#' @format Um \code{data.frame} com 65 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{local}}{Fator de 2 níveis que são os locais (Rio Vermelho
+#'     e Costa da Lagoa)}
+#'
+#' \item{\code{aborto}}{Número de abortos de crianças do sexo feminino.}
+#'
+#' }
+#' @keywords AASI contingência
+#' @source 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.23, pág. 105)
+#' @examples
+#'
+#' data(AndradeTb2.23)
+#' str(AndradeTb2.23)
+#'
+#' (tb <- xtabs(data = AndradeTb2.23))
+#'
+#' barplot(t(tb),
+#'         beside = TRUE,
+#'         legend.text = c("0 Aborto","1 Aborto", "2 Abortos"),
+#'         ylim = c(0, 25),
+#'         xlab = "Local",
+#'         ylab = "Frequência")
+#'
+#' mosaicplot(tb)
+#'
+NULL

R/AndradeTb2.24.R

+#' @name AndradeTb2.24
+#' @title Estudo sobre a Adoção de uma Variedade de Arroz
+#' @description Estudo realizado por um economista agrícola que tem
+#'     interesse em identificar o comportamento da adoção de uma nova
+#'     variedade de arroz altamente produtiva segundo a situação de
+#'     posse de terra.
+#' @format Um \code{data.frame} com 6 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{posse}}{Identifica o tipo de posse de terra
+#'     (proprietário, único arrendatário e vários arrendatários).}
+#'
+#' \item{\code{adocao}}{Identifica o se houve, ou não, a adoção da nova
+#'     variedade de arroz.}
+#'
+#' \item{\code{freq}}{Frequência de terras com as características de
+#'     \code{posse} e \code{adocao}.}
+#'
+#' }
+#' @keywords contingência
+#' @source 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.24, pág. 106)
+#' @examples
+#'
+#' data(AndradeTb2.24)
+#' str(AndradeTb2.24)
+#'
+#' xt <- xtabs(freq ~ ., data = AndradeTb2.24)
+#'
+#' xt
+#' prop.table(xt)
+#' prop.table(xt, margin = 1)
+#' prop.table(xt, margin = 2)
+#'
+#' mosaicplot(t(xt), col = c("darkturquoise", "lawngreen", "blue"),
+#'            cex.axis = 0.8, las = 2, main = "")
+#'
+#' library(lattice)
+#' barchart(t(xt),
+#'          horizontal = FALSE,
+#'          stack = TRUE,
+#'          auto.key = list(
+#'              corner= c(0.9, 0.9),
+#'              title = "Posse",
+#'              cex.title = 1.1),
+#'          xlab = "Adoção da nova variedade",
+#'          ylab = "Frequência de terras")
+#'
+NULL

R/AndradeTb2.25.R

+#' @name AndradeTb2.25
+#' @title Experimento de Germinação de Cultivares de Cebola
+#' @description Experimento com o objetivo de avaliar o poder
+#'     germinativo de duas cultivares de cebola. Foram utilizadas, para
+#'     o teste de germinação, quatro repetições de cem sementes
+#'     totalizando quatrocentas sementes para cada cultivar. Nesse
+#'     experimento mensurou-se apenas a frequência das sementes que
+#'     germinaram, ou não, dentre as repetições de cada cultivar.
+#' @format Um \code{data.frame} com 4 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{cult}}{Cultivares de cebola avaliadas (Bola
+#'     Precoce-EMPASC 352, \code{Bola 352} e Norte 14, \code{Norte
+#'     14}).}
+#'
+#' \item{\code{germ}}{Identifica se houve, ou não, a germinação da
+#'     semente.}
+#'
+#' \item{\code{freq}}{Número de sementes, no cruzamento de \code{cult} e
+#'     \code{germ}.}
+#'
+#' }
+#' @keywords contingência
+#' @source 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.25, pág. 107)
+#' @examples
+#'
+#' data(AndradeTb2.25)
+#' str(AndradeTb2.25)
+#'
+#' xt <- xtabs(freq ~ ., data = AndradeTb2.25)
+#' xt
+#'
+#' mosaicplot(t(xt), col = c("darkturquoise", "lawngreen"),
+#'            cex.axis = 0.8, las = 2, main = "")
+#'
+#' library(lattice)
+#' barchart(t(xt),
+#'          horizontal = FALSE,
+#'          stack = FALSE,
+#'          auto.key = list(
+#'              corner= c(0.9, 0.9),
+#'              title = "Cultivar",
+#'              cex.title = 1.1),
+#'          xlab = "Adoção da nova variedade",
+#'          ylab = "Número de sementes")
+#'
+NULL

R/AndradeTb2.26.R

+#' @name AndradeTb2.26
+#' @title Estudo de Associação entre Local de Coleta e Peso de Mexilhões
+#' @description Estudo observacional cujo interesse é verificar se
+#'     existe associação entre o local de coleta de mexilhões e o peso
+#'     deles.
+#' @format Um \code{data.frame} com 6 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{local}}{Local de coleta dos mexilhões (Mangue e
+#'     Sambaqui).}
+#'
+#' \item{\code{peso}}{Pesos dos mexilhões, em gramas. A variável foi
+#'     categorizada em três níveis (7-20, 21-33 e 34-46 gramas).}
+#'
+#' \item{\code{freq}}{Número de mexilhões no cruzamento de \code{local}
+#'     com \code{peso}.}
+#'
+#' }
+#' @keywords contingência
+#' @source 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.26, pág. 107)
+#' @examples
+#'
+#' data(AndradeTb2.26)
+#' str(AndradeTb2.26)
+#'
+#' xt <- xtabs(freq ~ ., data = AndradeTb2.26)
+#' xt
+#'
+#' mosaicplot(t(xt), col = c("darkturquoise", "lawngreen"),
+#'            cex.axis = 0.8, las = 2, main = "")
+#'
+#' library(lattice)
+#' barchart(t(xt),
+#'          horizontal = FALSE,
+#'          stack = TRUE,
+#'          auto.key = list(
+#'              columns = 2,
+#'              title = "Local de coleta",
+#'              cex.title = 1.1),
+#'          xlab = "Peso do mexilhão",
+#'          ylab = "Número de mexilhões")
+#'
+NULL

R/AndradeTb2.27.R

+#' @name AndradeTb2.27
+#' @title Estudo da Eficiência de uma Vacina Antigripal
+#' @description Estudo para avaliar a eficiência de uma nova vacina
+#'     antigripal, a qual foi administrada aos membros de uma pequena
+#'     comunidade, em duas doses, ao longo de duas semanas. Algumas
+#'     pessoas tomaram as duas doses, outras tomaram apenas a primeira
+#'     dose e outras não tomaram nenhuma dose. Os tratamentos foram
+#'     aplicados em 1000 habitantes dessa comunidade.
+#' @format Um \code{data.frame} com 6 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{saude}}{Estado de saúde dos habitantes (gripados ou não
+#'     gripados).}
+#'
+#' \item{\code{vacina}}{identifica em quantas doses a vacina antigripal
+#'     foi aplicada (0, não houve aplicação; 1, em dose única; 2, em
+#'     duas doses).}
+#'
+#' \item{\code{freq}}{Número de habitantes no cruzamento de \code{saude}
+#'     e \code{vacina}.}
+#'
+#' }
+#' @keywords contigência
+#' @source 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.27, pág. 108)
+#' @examples
+#'
+#' data(AndradeTb2.27)
+#' str(AndradeTb2.27)
+#'
+#' xt <- xtabs(freq ~ ., data = AndradeTb2.27)
+#' xt
+#'
+#' mosaicplot(xt, col = c("darkturquoise", "lawngreen", "blue"),
+#'            cex.axis = 0.8, main = "")
+#'
+#' library(lattice)
+#' barchart(t(xt),
+#'          horizontal = FALSE,
+#'          stack = TRUE,
+#'          auto.key = list(
+#'              corner= c(0.9, 0.9),
+#'              title = "Estado de saúde",
+#'              cex.title = 1.1),
+#'          xlab = "Número de doses da vacina",
+#'          ylab = "Número de habitantes")
+#'
+NULL

R/AndradeTb2.28.R

+#' @name AndradeTb2.28
+#' @title Número de Brotos por Explante de Abacaxi
+#' @description Número de brotos por explante de abacaxi avaliada em
+#'     dois meios de cultura.
+#' @format Um \code{data.frame} com 26 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{meio}}{Meios de cultura em que os explantes de abacaxi
+#'     foram mantidos.}
+#'
+#' \item{\code{nbroto}}{Número de brotos por explante de abacaxi.}
+#'
+#' }
+#' @keywords AASI
+#' @source 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.28, pág. 109)
+#' @examples
+#'
+#' data(AndradeTb2.28)
+#' str(AndradeTb2.28)
+#'
+#' with(AndradeTb2.28, by(nbroto, meio, summary))
+#'
+#' library(lattice)
+#'
+#' bwplot(nbroto ~ meio,
+#'        data = AndradeTb2.28,
+#'        xlab = "Meio de Cultura",
+#'        ylab = "Número de Brotos")
+#'
+#' densityplot(~nbroto,
+#'             groups = meio,
+#'             grid = TRUE,
+#'             data = AndradeTb2.28)
+#'
+NULL

R/AndradeTb2.29.R

+#' @name AndradeTb2.29
+#' @title Biometria Total do Camarão \emph{Macrobrachium Potiuna}
+#'     (MÜLLER, 1880)
+#' @description Biometria total, em milímetros, do Camarão de água doce
+#'     \emph{Macrobrachium potiuna} (MÜLLER, 1880), da família
+#'     \emph{Palaemonidae}.
+#' @format Um \code{vetor} numérico com 36 observações.
+#' @keywords AAS
+#' @source 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.29, pág. 110)
+#'
+#' @examples
+#'
+#' data(AndradeTb2.29)
+#' str(AndradeTb2.29)
+#'
+#' hist(AndradeTb2.29,
+#'      labels = TRUE,
+#'      prob = TRUE,
+#'      main = NULL,
+#'      col = "darkturquoise",
+#'      ylim = c(0, 0.071),
+#'      xlab = "Biometria Total (em mm)",
+#'      ylab = "Densidade")
+#'
+#' lines(density(AndradeTb2.29), lwd = 2)
+#'
+NULL

R/AndradeTb2.31.R

+#' @name AndradeTb2.31
+#' @title Efeito do Rizóbio na Altura das Plantas
+#' @description Altura de plantas, medida em centímetros, para dois
+#'     tratamentos, no qual um tratamento é o controle, isto é, não foi
+#'     feita a inoculação do rizóbio nas plantas e o outro corresponde à
+#'     aplicação de rizóbio nas plantas (rizóbios tem a capacidade de
+#'     fixar o nitrogênio atmosférico e fornecê-lo às culturas).
+#' @format Um \code{data.frame} com 40 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{trat}}{Indica o tratamento aplicado às plantas (com
+#'     rizóbio ou controle).}
+#'
+#' \item{\code{altura}}{Altura das plantas, medida em cm.}
+#'
+#' }
+#' @keywords AASI
+#' @source 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.31, pág. 111)
+#' @examples
+#'
+#' data(AndradeTb2.31)
+#' str(AndradeTb2.31)
+#'
+#' with(AndradeTb2.31, by(altura, trat, summary))
+#'
+#' library(lattice)
+#' bwplot(altura ~ trat,
+#'        data = AndradeTb2.31,
+#'        xlab = "Tratamento",
+#'        ylab = "Altura")
+#'
+NULL

R/AndradeTb2.32.R

+#' @name AndradeTb2.32
+#' @title Pesos de Bezerros Recém-Nascidos (Crioula e Nelore)
+#' @description Pesos, em quilogramas, ao nascer de bezerros da raça de
+#'     gado Crioula e Nelore.
+#' @format Um \code{data.frame} com 20 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{raca}}{Fator de 2 níveis que são as raças dos bezerros
+#'     recém-nascidos.}
+#'
+#' \item{\code{peso}}{Peso, em kg, do bezerro recém-nascido.}
+#'
+#' }
+#' @seealso \code{\link{AndradePg90}}
+#' @keywords AASI
+#' @source 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.32, pág. 113)
+#' @examples
+#'
+#' data(AndradeTb2.32)
+#' str(AndradeTb2.32)
+#'
+#' with(AndradeTb2.32, by(peso, raca, summary))
+#'
+#' library(lattice)
+#' densityplot(~peso, groups = raca,
+#'             data = AndradePg90,
+#'             auto.key = list(
+#'                 corner = c(0.1, 0.9),
+#'                 title = "Raça do bezerro",
+#'                 cex.title = 1
+#'             ))
+#'
+#' # Agrupando dados de AndradePg90, um estudo similar.
+#' # help(AndradePg90)
+#'
+#' da <- rbind(AndradeTb2.32, AndradePg90)
+#' bwplot(peso ~ raca,
+#'        data = da,
+#'        xlab = "Raça do Bezerro",
+#'        ylab = "Peso (em kg)")
+#'
+NULL