Skip to content
Snippets Groups Projects

Compare revisions

Changes are shown as if the source revision was being merged into the target revision. Learn more about comparing revisions.

Source

Select target project
No results found
Select Git revision
  • Ludmila155
  • altamiro187
  • baby
  • bruna141
  • bruna165
  • bruna216
  • devel
  • eduardo158
  • eduardo200
  • eduardo217
  • guilherme190
  • guilherme191
  • guilherme192
  • guilherme193
  • guilherme194
  • guilherme195
  • jhenifer125
  • jhenifer126
  • jhenifer127
  • jhenifer128
  • jhenifer207
  • lineu180
  • lineu181
  • lineu182
  • lineu183
  • lineu184
  • lineu185
  • lineu186
  • ludmila155
  • maria132
  • maria133
  • maria134
  • maria136
  • maria137
  • master
  • vinicius130
  • vinicius131
  • vinicius173
  • vinicius176
  • vinicius177
  • vinicius178
  • vinicius209
  • vinicius210
  • walmes159
  • walmes213
45 results

Target

Select target project
  • pet-estatistica/labestData
  • aab15/labestData
  • eys16/labestData
3 results
Select Git revision
  • baby
  • bruna179
  • bruno148
  • bruno149
  • devel
  • eduardo158
  • guilherme190
  • jhenifer125
  • jhenifer126
  • lineu180
  • maria136
  • maria137
  • master
  • vinicius173
  • walmes159
  • walmes160
16 results
Show changes
#' @name AndradeEx8.9
#' @title Estudo da Quantidade de Proteínas após Operação
#' @description Estudo sobre a influência de uma determinada operação,
#' realizada em portadores de esquistossomose mansônica, na
#' quantidade de proteínas totais no plasma. No estudo mensurou-se a
#' quantidade de proteínas antes e depois da operação.
#' @format Um \code{data.frame} com 34 observações e 3 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{paciente}}{Indica os pacientes sujeitos a operação.}
#'
#' \item{\code{periodo}}{Período em que foi mensurada a quantidade de
#' proteínas totais no plasma (antes ou depois da operação).}
#'
#' \item{\code{prot}}{Quantidade de proteínas totais no plasma.}
#'
#' }
#' @keywords AASP
#' @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. (Capítulo 8, Exercício
#' 9, pág. 408)
#' @examples
#'
#' data(AndradeEx8.9)
#' str(AndradeEx8.9)
#'
#' # Dados apresentados em formato largo ("wide")
#' library(reshape2)
#' (da <- dcast(AndradeEx8.9, paciente ~ periodo, value.var = "prot"))
#'
#' # Pares de peso para cada animal
#' library(lattice)
#' dotplot(prot ~ paciente,
#' groups = periodo,
#' auto.key = list(title = "Período",
#' cex.title = 1.1,
#' columns = 2),
#' type = "p",
#' data = AndradeEx8.9,
#' xlab = "Paciente",
#' ylab = "Quantidade de Proteínas Totais no Plasma")
#'
#' # Distribuição das diferenças
#' densityplot(~antes - depois, data = da)
#'
#' # Testes de hipóteses
#' t.test(prot ~ periodo, paired = TRUE, data = AndradeEx8.9)
#' t.test(da$antes - da$depois)
#'
NULL
#' @name AndradePg90
#' @title Pesos de Bezerros Recém-Nascidos (Charoleza e Gir)
#' @description Pesos ao nascer de 24 bezerros machos das raças
#' Charoleza e Gir.
#' @format Um \code{data.frame} com 24 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
#' (Charoleza e Gir).}
#'
#' \item{\code{peso}}{Peso do bezerro macho recém nascido, em kg.}
#'
#' }
#' @seealso \code{\link{AndradeTb2.32}}
#' @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. (Página 90)
#' @examples
#'
#' data(AndradePg90)
#' str(AndradePg90)
#'
#' 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 AndradeTb2.32, um estudo similar.
#' # help(AndradeTb2.32)
#'
#' da <- rbind(AndradePg90, AndradeTb2.32)
#' bwplot(peso ~ raca,
#' data = da,
#' xlab = "Raça do Bezerro",
#' ylab = "Peso (em kg)")
#'
NULL
#' @name AndradePg92
#' @title Ganho de Peso em Suínos
#' @description Para comparar o ganho médio de peso em suínos submetidos
#' a duas diferentes dietas, foi conduzido um experimento com 20
#' porcos. Dez porcos foram submetidos a cada uma das dietas e
#' mensurou-se o ganho médio de peso por dia.
#' @format Um \code{data.frame} com 20 observações e 2 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{dieta}}{Fator de 2 níveis qualitativos que são as dietas
#' submetidas aos porcos.}
#'
#' \item{\code{peso}}{Ganho médio de peso por dia, em gramas.}
#'
#' }
#' @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. (Página 92)
#' @examples
#'
#' data(AndradePg92)
#' str(AndradePg92)
#'
#' library(lattice)
#' bwplot(peso ~ dieta,
#' data = AndradePg92,
#' xlab = "Dieta",
#' ylab = "Ganho Médio de Peso por Dia (em gramas)")
#'
#' library(latticeExtra)
#' ecdfplot(~peso, groups = dieta, data = AndradePg92,
#' grid = TRUE,
#' auto.key = list(
#' corner = c(0.9, 0.1),
#' title = "Dieta",
#' cex.title = 1,
#' lwd = 2
#' ))
#'
NULL
#' @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
#' @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
#' @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
#' @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
#' @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
#' @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
#' @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
#' @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
#' @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
#' @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
#' @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
#' @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
#' @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
#' @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
#' @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
#' @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
#' @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