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

R/AndradeTb2.34.R

+#' @name AndradeTb2.34
+#' @title Crescimento do Pseudobulbo de Orquídeas (\emph{Laelia
+#'     Purpurata})
+#' @description Dados de crescimento, em centímetros, do pseudobulbo de
+#'     orquídeas da espécie \emph{Laelia purpurata}, sob duas condições
+#'     de luminosidade.
+#' @format Um \code{data.frame} com 50 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{luz}}{Fator de 2 níveis que representa as condições de
+#'     luminosidade.}
+#'
+#' \item{\code{cresc}}{Crescimento do pseudobulbo em centímetros.}
+#'
+#' }
+#' @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.34, pág. 133)
+#' @examples
+#'
+#' data(AndradeTb2.34)
+#' str(AndradeTb2.34)
+#'
+#' library(lattice)
+#' bwplot(cresc ~ luz,
+#'        data = AndradeTb2.34,
+#'        xlab = "Condição de Luminosidade",
+#'        ylab = "Crescimento (em cm)")
+#'
+#' densityplot(~cresc, groups = luz,
+#'             data = AndradeTb2.34,
+#'             auto.key = list(
+#'                 corner = c(0.95, 1),
+#'                 title = "Condições de\nluminosidade",
+#'                 cex.title = 1
+#'             ))
+#'
+NULL

R/AndradeTb2.36.R

+#' @name AndradeTb2.36
+#' @title Produção de Matéria Seca sob Efeito de Radiação
+#' @description Dados de produção de matéria seca (\code{prod}) de uma
+#'     cultura não informada e quantidade de radiação fotossintética
+#'     ativa (\code{rad}).
+#' @format Um \code{data.frame} com 10 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{prod}}{Produção de matéria seca em \eqn{g\,m^{-2}}.}
+#'
+#' \item{\code{rad}}{Radiação fotossintética em \eqn{W\,m^{-2}}.}
+#'
+#' }
+#' @keywords RS
+#' @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.36, pág. 140)
+#' @examples
+#'
+#' data(AndradeTb2.36)
+#' str(AndradeTb2.36)
+#'
+#' library(lattice)
+#' xyplot(prod ~ rad,
+#'        data = AndradeTb2.36,
+#'        type = c("p", "r"),
+#'        xlab = expression(Radiação ~ fotossintética ~ (W/m^2)),
+#'        ylab = expression(Produção ~ (g/m^2)))
+#'
+NULL

R/AndradeTb2.37.R

+#' @name AndradeTb2.37
+#' @title Radiação e Espaçamento na Cultura da Soja
+#' @description Estudo que objetiva avaliar se há relação entre o
+#'     espaçamento das linhas na cultura da soja e a fração da radiação
+#'     solar extinta pela planta. Para atender tal objetivo foram
+#'     coletados pares de valores das duas variáveis.
+#' @format Um \code{data.frame} com 10 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{rad}}{Fração da radiação solar extinta pela planta, em
+#'     porcentagem.}
+#'
+#' \item{\code{esp}}{Espaçamento das linhas na cultura da soja, em
+#'     metros.}
+#'
+#' }
+#' @keywords RS
+#' @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.37, pág. 141)
+#' @examples
+#'
+#' data(AndradeTb2.37)
+#' str(AndradeTb2.37)
+#'
+#' library(lattice)
+#' xyplot(rad ~ esp,
+#'        data = AndradeTb2.37,
+#'        type = c("p", "r"),
+#'        xlab = "Espaçamento (m)",
+#'        ylab = "Radiação (%)")
+#'
+NULL

R/AndradeTb2.38.R

+#' @name AndradeTb2.38
+#' @title Salinidade e Temperatura na Região III da Lagoa da Conceição
+#' @description Estudo com o objetivo de verificar se existe correlação
+#'     entre a salinidade e a temperatura na região III da Lagoa da
+#'     Conceição, Florianópolis, SC.
+#' @format Um \code{data.frame} com 8 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{temp}}{Temperatura da lagoa, em graus Celsius (ºC).}
+#'
+#' \item{\code{salin}}{Salinidade da lagoa, em gramas por litro (g/l).}
+#'
+#' }
+#' @seealso \code{\link{AndradeTb2.46}}
+#' @keywords RS
+#' @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.38, pág. 142)
+#' @examples
+#'
+#' data(AndradeTb2.38)
+#' str(AndradeTb2.38)
+#'
+#' cor.test(~temp + salin, data = AndradeTb2.38)
+#'
+#' library(lattice)
+#' xyplot(temp ~ salin,
+#'        data = AndradeTb2.38,
+#'        type = c("p", "r"),
+#'        xlab = "Salinidade (g/l)",
+#'        ylab = "Temperatura (ºC)")
+#'
+#' # Agrupando os dados de condutividade, provinientes no dataset
+#' # AndradeTb2.46
+#' # help(AndradeTb2.46)
+#' (da <- merge(AndradeTb2.38, AndradeTb2.46))
+#' splom(da, type = c("g", "p", "r"))
+#'
+NULL

R/AndradeTb2.42.R

+#' @name AndradeTb2.42
+#' @title Peso de Carne de Mexilhões em Áreas de Sambaqui e Manguezal
+#' @description Resultados do peso de carne, em gramas, de mexilhões
+#'     provenientes de área de sambaqui e manguezal.
+#' @format Um \code{data.frame} com 30 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{local}}{Fator de 2 níveis que representa os locais
+#'     habituais dos mexilhões.}
+#'
+#' \item{\code{peso}}{Peso de carne de mexilhões, 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. (Tabela 2.42, pág. 146)
+#' @examples
+#'
+#' data(AndradeTb2.42)
+#' str(AndradeTb2.42)
+#'
+#' # Box-plots
+#' boxplot(peso ~ local,
+#'         data = AndradeTb2.42,
+#'         xlab = "Local",
+#'         ylab = "Peso de Carne (em gramas)")
+#'
+#' # Gráficos de densidades
+#' dens <- with(AndradeTb2.42, tapply(peso, local, density))
+#' plot(x = 0, y = 0, type = "n",
+#'      xlim = range(sapply(dens, function(d) range(d$x))),
+#'      ylim = range(sapply(dens, function(d) range(d$y))),
+#'      xlab = "Peso em carne (em gramas)",
+#'      ylab = "Densidade estimada")
+#' lapply(1:length(dens), function(i) lines(dens[[i]], col = i))
+#' legend("topright", title = "Habitat dos mexilhões",
+#'        legend = unique(AndradeTb2.42$local),
+#'        lwd = 1, col = 1:2, bty = "n")
+#'
+NULL

R/AndradeTb2.44.R

+#' @name AndradeTb2.44
+#' @title Produção de Duas Variedades de Cana-de-açúcar
+#' @description Estudo no qual avaliou-se a produção de cana-de-açúcar
+#'     considerando duas variedades distintas a fim de comparação.
+#' @format Um \code{data.frame} com 21 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{varied}}{Fator de 2 níveis que representa as variedades
+#'     de cana-de-açúcar consideradas.}
+#'
+#' \item{\code{prod}}{Produção de cana-de-açúcar, em toneladas por
+#'     hectare.}
+#'
+#' }
+#' @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.44, pág. 147)
+#' @examples
+#'
+#' data(AndradeTb2.44)
+#' str(AndradeTb2.44)
+#'
+#' # Box-plots
+#' boxplot(prod ~ varied,
+#'         data = AndradeTb2.44,
+#'         xlab = "Variedade",
+#'         ylab = expression(Produção~(em~t~ha^-1)))
+#'
+#' # Gráficos de densidades
+#' dens <- with(AndradeTb2.44, tapply(prod, varied, density))
+#' plot(x = 0, y = 0, type = "n",
+#'      xlim = range(sapply(dens, function(d) range(d$x))),
+#'      ylim = range(sapply(dens, function(d) range(d$y))),
+#'      xlab = expression(Produção~(em~t~ha^-1)),
+#'      ylab = "Densidade estimada")
+#' lapply(1:length(dens), function(i) lines(dens[[i]], col = i))
+#' legend("topleft", title = "Variedade",
+#'        legend = unique(AndradeTb2.44$varied),
+#'        lwd = 1, col = 1:2, bty = "n")
+#'
+NULL

R/AndradeTb2.45.R

+#' @name AndradeTb2.45
+#' @title Tamanho dos Pecíolos de Plantas \emph{Hydrocotille sp}
+#' @description Em um estudo do comportamento de uma planta típica de
+#'     dunas, a \emph{Hydrocotille sp}, quanto ao seu desenvolvimento,
+#'     mediu-se o tamanho do pecíolo, em centímetros, em duas áreas:
+#'     seca e úmida. Selecionou-se de cada uma dessas áreas amostras
+#'     aleatórias de plantas e mediu-se o tamanho dos pecíolos.
+#' @format Um \code{data.frame} com 69 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{area}}{Fator de 2 níveis que representa a característica
+#'     da área onde a planta se desenvolveu.}
+#'
+#' \item{\code{tamanho}}{Tamanho do pecíolo, em centímetros.}
+#'
+#' }
+#' @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.45, pág. 148)
+#' @examples
+#'
+#' data(AndradeTb2.45)
+#' str(AndradeTb2.45)
+#'
+#' # Medidas resumo para cada área
+#' with(AndradeTb2.45, tapply(tamanho, area, summary))
+#'
+#' # Histogramas sobrepostos
+#' hts <- with(AndradeTb2.45, tapply(tamanho, area, hist, plot = FALSE))
+#' plot(0, 0, type = "n",
+#'      xlim = extendrange(AndradeTb2.45$tamanho),
+#'      ylim = range(sapply(hts, function(h) range(h$counts))),
+#'      xlab = "Tamanho do Pecíolo (em cm)",
+#'      ylab = "Frequência")
+#' cols <- c("gray70", "gray30")
+#' lapply(1:length(hts), function(i) {
+#'     plot(hts[[i]], add = TRUE, col = cols[i], labels = TRUE,
+#'          border = "white")
+#' })
+#' legend("top", title = "Área", legend = names(hts),
+#'        fill = cols, bty = "n", border = "white")
+#'
+NULL

R/AndradeTb2.46.R

+#' @name AndradeTb2.46
+#' @title Condutividade e Salinidade na Região III da Lagoa da Conceição
+#' @description Estudo com o objetivo de verificar se existe correlação
+#'     entre a condutividade e a salinidade na região III da Lagoa da
+#'     Conceição, Florianópolis, SC.
+#' @format Um \code{data.frame} com 6 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{cond}}{Condutividade da lagoa, mensurada em \eqn{mho}.}
+#'
+#' \item{\code{salin}}{Salinidade da lagoa, em \eqn{g/l}.}
+#'
+#' }
+#' @seealso \code{\link{AndradeTb2.38}}
+#' @keywords RS
+#' @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.46, pág. 149)
+#' @examples
+#'
+#' data(AndradeTb2.46)
+#' str(AndradeTb2.46)
+#'
+#' library(lattice)
+#' xyplot(cond ~ salin,
+#'        data = AndradeTb2.46,
+#'        type = c("p", "r"),
+#'        xlab = "Salinidade (g/l)",
+#'        ylab = "Condutividade (mho)")
+#'
+#' # Agrupando os dados de temperaturas, provinientes do dataset
+#' # AndradeTb2.38
+#' # help(AndradeTb2.38)
+#' (da <- merge(AndradeTb2.46, AndradeTb2.38))
+#' splom(da, type = c("g", "p", "r"))
+#'
+NULL

R/AndradeTb2.47.R

+#' @name AndradeTb2.47
+#' @title Avaliação do Período de Estocagem no Aroma de Cafés
+#' @description Estudo sobre vida de prateleira de café torrado e
+#'     moído. Cafés estocados durante nove dias foram submetidos a
+#'     sessões de avaliação, realizadas por uma equipe de provadores
+#'     treinados. Ocorreram seis sessões de avaliação com intervalos de
+#'     mais ou menos sete dias com início no nono dia de estocagem.
+#'
+#'     Para cada sessão três amostras foram obtidas ao acaso e seis
+#'     provadores as avaliaram simultaneamente, quanto ao seu aroma, em
+#'     uma escala descritiva de 6 pontos (6 = excelente; 5 = bom; 4 =
+#'     aceitável; 3 = pouco aceitável; 2 = inaceitável e 1 = não
+#'     bebível). Ao final de cada sessão foram registrados as notas
+#'     médias das seis avaliações.
+#' @format Um \code{data.frame} com 18 observações e 4 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{tempo}}{Tempo de estocagem, em dias.}
+#'
+#' \item{\code{rept}}{Identifica a unidade amostral em cada sessão
+#'     realizada.}
+#'
+#' \item{\code{result}}{Resultado médio das avaliações da equipe de
+#'    provadores.}
+#'
+#' }
+#' @keywords RS sensorial
+#' @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.47, pág. 149)
+#' @examples
+#'
+#' data(AndradeTb2.47)
+#' str(AndradeTb2.47)
+#'
+#' library(lattice)
+#' xyplot(result ~ tempo,
+#'        data = AndradeTb2.47,
+#'        type = c("g", "p", "r"),
+#'        xlab = "Tempo de Estocagem (dias)",
+#'        ylab = "Resultado das Avaliações")
+#'
+NULL

R/AndradeTb2.6.R

+#' @name AndradeTb2.6
+#' @title Estudo sobre Cultura de Feijão-de-Vagem
+#' @description Estudo no qual procurou-se verificar a existência de
+#'     associação entre hábito de crescimento e os portes da planta na
+#'     cultura de feijão-de-vagem.
+#' @format Um \code{data.frame} com 50 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{H}}{Fator de 2 níveis qualitativos que são os hábitos de
+#'     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 \code{Tr}: "trepador"; \code{EB}: "ereto na base"; e
+#'     \code{Pr}: "prostrado".}
+#'
+#' }
+#' @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.6, pág. 74)
+#' @examples
+#'
+#' data(AndradeTb2.6)
+#' str(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 = levels(AndradeTb2.6$P),
+#'        fill = c("darkturquoise", "lawngreen", "blue"))
+#'
+NULL

R/AndradeTb3.1.R

+#' @name AndradeTb3.1
+#' @title Mortalidade dos Residentes na Colônia Polonesa de Dom Pedro
+#' @description Censo realizado nos domicílios da comunidade polonesa de
+#'     Dom Pedro, próximo a Curitiba, para se estudar a mortalidade dos
+#'     residentes na colônia. O estudo foi realizado sobre três gerações
+#'     no final do século XIX, contabilizando 99 mortes.
+#' @format Um \code{data.frame} com 12 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{idade}}{Idades dos residentes, em anos completos
+#'     categorizada em 6 níveis (0-1 ano; 2-4 anos; 5-9 anos; 10-14
+#'     anos; 15-29 anos; e >29 anos).}
+#'
+#' \item{\code{sexo}}{Sexo dos residentes (masculino ou feminino).}
+#'
+#' \item{\code{mort}}{Número de mortes.}
+#'
+#' }
+#' @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 3.1, pág. 172)
+#' @examples
+#'
+#' data(AndradeTb3.1)
+#' str(AndradeTb3.1)
+#'
+#' (xt <- xtabs(mort ~ ., data = AndradeTb3.1))
+#' mosaicplot(xt, cex.axis = 0.9, las = 2, main = "")
+#'
+#' library(lattice)
+#' xyplot(mort ~ idade,
+#'        groups = sexo,
+#'        type = c("g", "o"),
+#'        data = AndradeTb3.1,
+#'        auto.key = list(title = "Gênero",
+#'                        cex.title = 1.1,
+#'                        lines = TRUE,
+#'                        columns = 2),
+#'        xlab = "Idade (anos completos)",
+#'        ylab = "Mortalidade dos Residentes")
+#'
+NULL

R/AndradeTb3.2.R

+#' @name AndradeTb3.2
+#' @title Fecundidade de Duas Raças Suínas
+#' @description Estudo sobre fecundidade de duas raças suínas, onde
+#'     foram examinados 14 animais de cada raça. O objetivo do estudo é
+#'     verificar a associação entre raça e fecundidade.
+#' @format Um \code{data.frame} com 4 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{raca}}{Fator de 2 níveis que são as raças dos suínos.}
+#'
+#' \item{\code{fecun}}{Fator de 2 níveis que representa a fecundidade da
+#'     raça.}
+#'
+#' \item{\code{freq}}{Frequência de animais cujo raça e fecundidade são
+#'     dadas por \code{raca} e \code{fecun}, respectivamente.}
+#'
+#' }
+#' @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 3.2, pág. 193)
+#' @examples
+#'
+#' data(AndradeTb3.2)
+#' str(AndradeTb3.2)
+#'
+#' xt <- xtabs(freq ~ ., AndradeTb3.2)
+#' addmargins(xt)
+#' addmargins(prop.table(xt))
+#'
+#' mosaicplot(t(xt), cex.axis = 0.9, main = "",
+#'            col = c("darkturquoise", "blue"),
+#'            xlab = "Fecundidade",
+#'            ylab = "Raça")
+#'
+#' barplot(xt, beside = TRUE,
+#'         col = c("darkturquoise", "blue"),
+#'         legend.text = paste("Raça", levels(AndradeTb3.2$raca)),
+#'         xlab = "Fecundidade",
+#'         ylab = "Frequência Absoluta")
+#'
+NULL

R/AndradeTb4.1.R

+#' @name AndradeTb4.1
+#' @title Número de Filhos Homens em Casais com 12 Filhos
+#' @description Foram observados 10.690 casais com 12 filhos,
+#'     registrando quantos dos filhos são do sexo masculino.
+#' @format Um \code{data.frame} com 13 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{nfilhos}}{Número de filhos homens.}
+#'
+#' \item{\code{ncasais}}{Número de casais com \code{nfilhos} filhos
+#'     homens.}
+#'
+#' }
+#' @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 4.1, pág. 235)
+#' @examples
+#'
+#' data(AndradeTb4.1)
+#' str(AndradeTb4.1)
+#'
+#' # Média de filhos homens por casal
+#' with(AndradeTb4.1, weighted.mean(nfilhos, ncasais/sum(ncasais)))
+#'
+#' # Distribuição de frequências
+#' barplot(AndradeTb4.1$ncasais,
+#'         col = "darkturquoise",
+#'         names.arg = AndradeTb4.1$nfilhos,
+#'         xlab = "Número de Filhos Homens",
+#'         ylab = "Número de Casais")
+#'
+NULL

R/AndradeTb6.1.R

+#' @name AndradeTb6.1
+#' @title Produção de Maçãs das Cultivares Gala e Golden
+#' @description Estudo para avaliar a produção média por planta das
+#'     cultivares de maçã Gala e Golden. O estudo foi conduzido apenas
+#'     com plantas nas seguintes condições: idade de aproximadamente 5
+#'     anos, em bom estado fitossanitário, cultivadas com alta
+#'     tecnologia e para a região I do zoneamento agroclimático de Santa
+#'     Catarina. A produção foi avaliada pelo peso de maças produzidas
+#'     por planta (macieira).
+#' @format Um \code{data.frame} com 20 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{varied}}{Variedade da maça produzida (Gala ou Golden).}
+#'
+#' \item{\code{prod}}{Produção da planta (macieira), em kg.}
+#'
+#' }
+#' @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 6.1, pág. 284)
+#' @examples
+#'
+#' data(AndradeTb6.1)
+#' str(AndradeTb6.1)
+#'
+#' with(AndradeTb6.1, by(prod, varied, summary))
+#'
+#' library(lattice)
+#' bwplot(prod ~ varied,
+#'        data = AndradeTb6.1,
+#'        xlab = "Variedade",
+#'        ylab = "Produção (kg)")
+#'
+#' densityplot(~prod, groups = varied,
+#'             data = AndradeTb6.1,
+#'             auto.key = list(
+#'                 corner = c(0.9, 0.9),
+#'                 title = "Variedade das maças",
+#'                 cex.title = 1
+#'             ))
+#'
+NULL

R/AndradeTb6.2.R

+#' @name AndradeTb6.2
+#' @title Alturas das Alunas do Curso de Estatística Básica
+#' @description Dados das alturas de 17 alunas da turma de Estatística
+#'     Básica do Curso de Ciências Biológicas.
+#' @format Um \code{data.frame} com 11 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{altura}}{Altura das alunas, em metros.}
+#'
+#' \item{\code{freq}}{Frequência absoluta das alturas das alunas.}
+#'
+#' }
+#' @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 6.2, pág. 289)
+#' @examples
+#'
+#' data(AndradeTb6.2)
+#' str(AndradeTb6.2)
+#'
+#' # Gráfico de barras
+#' with(AndradeTb6.2, {
+#'   fr <- paste0("(", round(100 * freq / sum(freq)), "%)")
+#'   bp <- barplot(freq,
+#'                 names.arg = altura,
+#'                 col = "darkturquoise",
+#'                 beside = TRUE,
+#'                 ylim = c(0, 5),
+#'                 xlab = "Altura das Alunas",
+#'                 ylab = "Frequência Absoluta")
+#'   text(bp, freq + 0.3, labels = paste(freq, fr), srt = 90)
+#'   })
+#'
+#' # Gráfico de setores
+#' with(AndradeTb6.2, {
+#'   fr <- paste0("(", round(100 * freq / sum(freq)), "%)")
+#'   pie(freq, labels = paste(altura, "metros", fr),
+#'       col = gray.colors(length(freq)))
+#'   })
+#'
+NULL

R/AndradeTb8.6.R

+#' @name AndradeTb8.6
+#' @title Avaliação de Classes Fenotípicas de Plantas Di-híbridas
+#' @description Na descendência obtida de cruzamentos entre plantas
+#'     puras de ervilhas com sementes amarelas lisas e outras com
+#'     sementes verdes rugosas, obtêm-se na primeira geração (F1),
+#'     ervilhas amarelas lisas. Essas, por autofecundação, produzem, na
+#'     segunda geração (F2), ervilhas de quatro tipos: amarelas lisas,
+#'     verdes lisas, amarelas rugosas e verdes rugosas. Segundo a
+#'     segunda lei de Mendel (lei da segregação independente), as
+#'     proporções esperadas para esses tipos de ervilhas são: 9/16,
+#'     3/16, 3/16 e 1/16, respectivamente. Assim o objetivo desse
+#'     experimento é avaliar se o padrão de segregação dos caracteres
+#'     envolvidos segue o proposto pela segunda lei de Mendel.
+#' @format Um \code{data.frame} com 4 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{textura}}{Textura das ervilhas (Lisa e Rugosa).}
+#'
+#' \item{\code{cor}}{Cor das ervilhas (Amarela e Verde).}
+#'
+#' \item{\code{freq}}{Frequência absoluta de cada tipo de ervilha.}
+#'
+#' }
+#' @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 8.6, pág. 372)
+#' @examples
+#'
+#' data(AndradeTb8.6)
+#' str(AndradeTb8.6)
+#'
+#' (xt <- xtabs(freq ~ ., data = AndradeTb8.6))
+#' prop.table(xt)
+#'
+#' plot(xt, cex.axis = 1, main = "")
+#' barplot(xt, legend.text = TRUE)
+#'
+NULL

R/AndradeTb8.7.R

+#' @name AndradeTb8.7
+#' @title Número de Árvores \emph{Guapira opposita} em Restinga
+#' @description Estudo sobre o número de árvores da espécie
+#'     \emph{Guapira opposita} em local de restinga. Estudo realizado
+#'     com o objetivo de verificar a distribuição das árvores em local
+#'     de restinga. A área avaliada foi dividida em 94 quadrantes de
+#'     mesma área e contou-se o número de árvores por quadrante.
+#' @format Um \code{data.frame} com 10 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{arvores}}{Número de árvores por quadrante.}
+#'
+#' \item{\code{quadr}}{Número de quadrantes com \code{arvores} árvores.}
+#'
+#' }
+#' @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 8.7, pág. 374)
+#' @examples
+#'
+#' data(AndradeTb8.7)
+#' str(AndradeTb8.7)
+#'
+#' barplot(AndradeTb8.7$quadr,
+#'         col = "darkturquoise",
+#'         names.arg = AndradeTb8.7$arvores,
+#'         xlab = "Número de Árvores",
+#'         ylab = "Número de Quadrandres")
+#'
+NULL