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

R/Barbin.R

 #' @name BarbinEx1
-#' @title Altura de \emph{Pinus elliottii} aos 10 anos de idade
+#' @title Altura de \emph{Pinus elliottii} aos 10 Anos de Idade
 #' @description Os dados referem-se à altura (m) de \emph{Pinus
 #'     elliottii}, var. \emph{elliottii}, com 10 anos de idade plantadas
 #'     no espaçamento 2\eqn{\times}2,5 metros.
 #' @format Um vetor com 50 elementos de valor numérico.
 #' @keywords AAS
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#'     Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#'     Mecenas. (Exercício 1, pág. 199)
+#' @source BARBIN (2013), Exercício 1, pág. 199.
 #' @examples
 #'
 #' library(latticeExtra)
@@ -56,12 +54,13 @@
 NULL
 
 #' @name BarbinEx13
-#' @title Di\enc{â}{a}metro M\enc{é}{e}dio do Tronco de Esp\enc{é}{e}cies de Eucalipto
+#' @title Di\enc{â}{a}metro M\enc{é}{e}dio do Tronco de
+#'     Esp\enc{é}{e}cies de Eucalipto
 #' @description Diâmetro médio (cm), aos 5 anos de idade, de plantas
 #'     úteis da parcela de um ensaio fatorial 2 \eqn{\times} 4, em
 #'     blocos casualizados com 3 repetições, conduzido por H. A. Mello e
 #'     outros, Mogi-Guaçu (1966-1971).
-#' @format Um \code{data.frame} com 24 observações e 4 variáveis.
+#' @format Um \code{data.frame} com 24 observações e 4 variáveis, em que
 #'
 #' \describe{
 #'
@@ -77,9 +76,7 @@ NULL
 #'
 #' }
 #' @keywords DBC FAT2
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#'     Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#'     Mecenas. (Exercício 13, pág. 206)
+#' @source BARBIN (2013), Exercício 13, pág. 206.
 #' @examples
 #'
 #' library(lattice)
@@ -103,7 +100,7 @@ NULL
 #' @description Ensaio fatorial de adubação NPK, fatorial \eqn{2^3}, com
 #'     resultados referentes à produção de milho (kg ha\eqn{^{-1}}),
 #'     conduzido em delineamento de blocos casualizados em Limoeiro, PE.
-#' @format Um \code{data.frame} com 24 observações e 5 variáveis.
+#' @format Um \code{data.frame} com 24 observações e 5 variáveis, em que
 #'
 #' \describe{
 #'
@@ -121,10 +118,8 @@ NULL
 #' \item{\code{prod}}{Produção de milho, em kg ha\eqn{^{-1}}.}
 #'
 #' }
-#' @keywords DBC FAT3
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#'     Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#'     Mecenas. (Exercício 14, pág. 206)
+#' @keywords DBC FAT2K
+#' @source BARBIN (2013), Exercício 14, pág. 206.
 #' @examples
 #'
 #' library(lattice)
@@ -154,7 +149,7 @@ NULL
 #'     delineamento inteiramente casualizado, portanto este é o fator da
 #'     parcela. O corte é o fator da subparcela porque são medidas
 #'     repetidas (no tempo, inclusive) na mesma unidade experimental.
-#' @format Um \code{data.frame} com 40 observações e 4 variáveis.
+#' @format Um \code{data.frame} com 40 observações e 4 variáveis, em que
 #'
 #' \describe{
 #'
@@ -173,10 +168,8 @@ NULL
 #'     hectare.}
 #'
 #' }
-#' @keywords PS FAT2
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#'     Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#'     Mecenas. (Exercício 16, pág. 208)
+#' @keywords PS
+#' @source BARBIN (2013), Exercício 16, pág. 208.
 #' @examples
 #'
 #' library(lattice)
@@ -200,7 +193,8 @@ NULL
 NULL
 
 #' @name BarbinEx17
-#' @title Efeito do Espa\enc{ç}{c}amento na Produtividade de Laranjeira Val\enc{ê}{e}ncia
+#' @title Efeito do Espa\enc{ç}{c}amento na Produtividade de Laranjeira
+#'     Val\enc{ê}{e}ncia
 #' @description Dados de produtividade de laranja, em kg por planta, de
 #'     um ensaio em blocos casualizados estudando o efeito do
 #'     espaçamento de plantio de laranjeira Valência (clone novo) sobre
@@ -224,10 +218,8 @@ NULL
 #'     de duas plantas por parcela).}
 #'
 #' }
-#' @keywords DBC PS FAT2
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#'     Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#'     Mecenas. (Exercício 17, pág. 209)
+#' @keywords PS
+#' @source BARBIN (2013), Exercício 17, pág. 209.
 #' @examples
 #'
 #' library(lattice)
@@ -257,7 +249,8 @@ NULL
 NULL
 
 #' @name BarbinEx18
-#' @title Altura de Plantas de Esp\enc{é}{e}cies de Eucalipto em V\enc{á}{a}rios Locais
+#' @title Altura de Plantas de Esp\enc{é}{e}cies de Eucalipto em
+#'     V\enc{á}{a}rios Locais
 #' @description Dados referentes à altura de plantas de eucalipto, com 3
 #'     anos de idade, em ensaios inteiramente casualizados estudando o
 #'     efeito da espécie de eucalipto em vários municípios (grupo de
@@ -282,10 +275,8 @@ NULL
 #'     idade.}
 #'
 #' }
-#' @keywords GE DIC
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#'     Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#'     Mecenas. (Exercício 18, pág. 210)
+#' @keywords GE
+#' @source BARBIN (2013), Exercício 18, pág. 210.
 #' @examples
 #'
 #' library(lattice)
@@ -304,25 +295,25 @@ NULL
 NULL
 
 #' @name BarbinEx3
-#' @title Podrid\enc{ã}{a}o Mole de Manga em Fun\enc{çã}{ca}o do Tratamento T\enc{é}{e}rmico
+#' @title Podrid\enc{ã}{a}o Mole de Manga em Fun\enc{çã}{ca}o do
+#'     Tratamento T\enc{é}{e}rmico
 #' @description Os dados referem-se as notas (médias de 6 frutos)
 #'     atribuídas a podridão mole de manga (fruto) sob diferentes
 #'     tratamentos térmicos, de um experimento inteiramente ao acaso
 #'     realizado pelo Prof. Vladimir R. Sampaio, do Departamento de
 #'     Horticultura, ESALQ-USP.
-#' @format Um \code{data.frame} com 28 observações e 2 variáveis.
+#' @format Um \code{data.frame} com 28 observações e 2 variáveis, em que
 #' \describe{
 #'
-#' \item{\code{tterm}}{Fator categórico que indica o tratamento térmico.}
+#' \item{\code{tterm}}{Fator categórico que indica o tratamento
+#'     térmico.}
 #'
 #' \item{\code{nota}}{Nota atribuída a podridão mole de manga, valor
 #'     resultante da média de 6 frutos avaliados.}
 #'
 #' }
 #' @keywords DIC
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#'     Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#'     Mecenas. (Exercício 3, pág. 119)
+#' @source BARBIN (2013), Exercício 3, pág. 119.
 #' @examples
 #'
 #' library(lattice)
@@ -343,8 +334,7 @@ NULL
 #' @description Os dados referem-se à altura (cm) de mudas de
 #'     \emph{E. saligna} Sm., de um ensaio inteiramente casualizado, de
 #'     controle químico de "Damping-off" conduzido por Krugner (1971).
-#'
-#' @format Um \code{data.frame} com 45 observações e 3 variáveis.
+#' @format Um \code{data.frame} com 45 observações e 3 variáveis, em que
 #'
 #' \describe{
 #'
@@ -360,9 +350,7 @@ NULL
 #'
 #' }
 #' @keywords DBC
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#'     Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#'     Mecenas. (Exercício 8, pág. 202)
+#' @source BARBIN (2013), Exercício 8, pág. 202.
 #'
 #'  Krugner, T. L. Controle químico do "damping-off" em
 #'     eucalipto. Piracicaba, 1971. 60p. Dissertação (Mestrado) - Escola
@@ -387,14 +375,15 @@ NULL
 
 #' @name BarbinEx9
 #' @aliases BarbinEx10
-#' @title Ensaio de Competi\enc{çã}{ca}o de Clones de Laranja Pera-do-Rio
+#' @title Ensaio de Competi\enc{çã}{ca}o de Clones de Laranja
+#'     Pera-do-Rio
 #' @description Ensaio de competição de 13 clones de laranja Pera-do-Rio
 #'     onde foram obtidos os resultados de produção, em kg de frutos
 #'     planta, para o ano de 1987, em que as plantas estavam com 16 anos
 #'     de idade. O ensaio foi conduzido pelo Dr. Joaquim Teófilo Sobrino
 #'     em delineamento de blocos ao acaso na Estação Experimental de
 #'     Limeira, do IAC.
-#' @format Um \code{data.frame} com 78 observações e 4 variáveis.
+#' @format Um \code{data.frame} com 78 observações e 4 variáveis, em que
 #'
 #' \describe{
 #'
@@ -413,9 +402,7 @@ NULL
 #' @details O dataset \code{BarbinEx10} resulta de uma agregação dos
 #'     dados do \code{BarbinEx9} que está disponível na seção Examples.
 #' @keywords DBC
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#'     Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#'     Mecenas. (Exercício 9, pág. 203)
+#' @source BARBIN (2013), Exercício 9, pág. 203.
 #' @examples
 #'
 #' library(latticeExtra)
@@ -450,7 +437,7 @@ NULL
 #' @name BarbinPg104
 #' @title Produ\enc{çã}{ca}o de Cultivares de Cana-de-a\enc{çú}{cu}car
 #' @description Experimento em delineamento quadrado latino que avaliou
-#'     a produção de cultivares de cana-ade-açúcar.
+#'     a produção de cultivares de cana-de-açúcar.
 #' @format Um \code{data.frame} com 25 observações e 4 variáveis, em que
 #'
 #' \describe{
@@ -469,9 +456,7 @@ NULL
 #'
 #' }
 #' @keywords DQL
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#'     Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#'     Mecenas. (pág. 104)
+#' @source BARBIN (2013), pág. 104.
 #' @examples
 #'
 #' library(lattice)
@@ -503,7 +488,8 @@ NULL
 NULL
 
 #' @name BarbinPg114
-#' @title Influ\enc{ê}{e}ncia do Aparelho e Operador na Medi\enc{çã}{ca}o de \enc{Á}{A}rvores
+#' @title Influ\enc{ê}{e}ncia do Aparelho e Operador na
+#'     Medi\enc{çã}{ca}o de \enc{Á}{A}rvores
 #' @description Dados de um experimento fatorial 5 \eqn{\times} 4, em
 #'     delineamento de blocos casualizados, sobre e influência do
 #'     aparelho e do operador na determinação de altura de árvores, aos
@@ -520,7 +506,8 @@ NULL
 #'     sorteio continuava até as combinações fossem realizadas na
 #'     árvore, então passava-se para a próxima árvore. Evidentemente, a
 #'     medida feita com o trena ficava sempre para o final (testemunha).
-#' @format Um \code{data.frame} com 200 observações e 4 variáveis.
+#' @format Um \code{data.frame} com 200 observações e 4 variáveis, em
+#'     que
 #'
 #' \describe{
 #'
@@ -541,9 +528,7 @@ NULL
 #'
 #' }
 #' @keywords DBC FAT2
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#'     Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#'     Mecenas. (pág. 114)
+#' @source BARBIN (2013), pág. 114.
 #'
 #' Simões, J. W., Mello, H. A., Barbin, D. (1967). Eficiência dos
 #'     aparelhos e e influência do operador na medição de altura total
@@ -584,7 +569,7 @@ NULL
 #'     com dois níveis (fatorial \eqn{2^3}), na produção de café
 #'     coco. Os níveis dos fertilizantes foram codificados para 0 e 1 e
 #'     não foi informada as doses reais de cada um deles.
-#' @format Um \code{data.frame} com 48 observações e 5 variáveis.
+#' @format Um \code{data.frame} com 48 observações e 5 variáveis, em que
 #'
 #' \describe{
 #'
@@ -593,7 +578,8 @@ NULL
 #'
 #' \item{\code{P}}{Inteiro que codifica dois níveis de fósforo (0 e 1).}
 #'
-#' \item{\code{K}}{Inteiro que codifica dois níveis de potássio (0 e 1).}
+#' \item{\code{K}}{Inteiro que codifica dois níveis de potássio (0 e
+#'     1).}
 #'
 #' \item{\code{bloc}}{Fator de níveis categóricos considerado para
 #'     controle local.}
@@ -603,10 +589,8 @@ NULL
 #'     m).}
 #'
 #' }
-#' @keywords DBC FAT3
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#'     Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#'     Mecenas. (pág. 125)
+#' @keywords DBC FAT2K
+#' @source BARBIN (2013), pág. 125).
 #' @examples
 #'
 #' library(lattice)
@@ -627,13 +611,14 @@ NULL
 NULL
 
 #' @name BarbinPg137
-#' @title Aduba\enc{çã}{ca}o NPK na Produ\enc{çã}{ca}o de Algod\enc{ã}{a}o Herb\enc{á}{a}ceo
+#' @title Aduba\enc{çã}{ca}o NPK na Produ\enc{çã}{ca}o de
+#'     Algod\enc{ã}{a}o Herb\enc{á}{a}ceo
 #' @description Produção de algodão herbáceo de um ensaio de adubação
 #'     NPK \eqn{3^3} com confundimento (grupo W) de dois graus de
 #'     liberdade da interação tripla. Cada combinação NPK teve duas
 #'     repetições por bloco e o ensaio foi conduzido por Cavalcanti
 #'     (1977) em Pernambuco.
-#' @format Um \code{data.frame} com 54 observações e 6 variáveis.
+#' @format Um \code{data.frame} com 54 observações e 6 variáveis, em que
 #'     \describe{
 #'
 #' \item{\code{N}}{Dose de nitrogênio (kg ha\eqn{^{-1}}) usada na
@@ -655,10 +640,8 @@ NULL
 #'     ha\eqn{^{-1}}.}
 #'
 #' }
-#' @keywords DBC FAT3 confundimento
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#'     Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#'     Mecenas. (pág. 137)
+#' @keywords FAT3K confundimento
+#' @source BARBIN (2013), pág. 137.
 #'
 #' Cavalcanti, F. B. (1977). A adubação mineral na cultura do algodão
 #'     (\emph{Gossypium hirsutum} L.) no Estado de
@@ -703,7 +686,8 @@ NULL
 NULL
 
 #' @name BarbinPg156
-#' @title Aplica\enc{çã}{ca}o de Aduba\enc{çã}{ca}o Fosfatada na Produ\enc{çã}{ca}o de Milho
+#' @title Aplica\enc{çã}{ca}o de Aduba\enc{çã}{ca}o Fosfatada na
+#'     Produ\enc{çã}{ca}o de Milho
 #' @description Dados de um ensaio de adubação fosfatada em milho,
 #'     realizado no esquema de parcelas subdivididas em delineamento de
 #'     blocos ao acaso, que avaliou o efeito da forma de aplicação da
@@ -726,10 +710,8 @@ NULL
 #' \item{\code{prod}}{Produção de milho (kg ha\eqn{^{-1}}).}
 #'
 #' }
-#' @keywords PS DBC
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#'     Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#'     Mecenas. (pág. 156)
+#' @keywords PS
+#' @source BARBIN (2013), pág. 156.
 #' @examples
 #'
 #' library(lattice)
@@ -748,7 +730,8 @@ NULL
 NULL
 
 #' @name BarbinPg167
-#' @title Produ\enc{çã}{ca}o de Porta-enxertos para Laranjeira em V\enc{á}{a}rias Safras
+#' @title Produ\enc{çã}{ca}o de Porta-enxertos para Laranjeira em
+#'     V\enc{á}{a}rias Safras
 #' @description Dados de produção de laranja de um ensaio de competição
 #'     de porta-enxertos para laranjeira Valência realizado na Estação
 #'     Experimental de Limeira, em delineamento de blocos casualizados.
@@ -769,10 +752,8 @@ NULL
 #'     plantas por parcela.}
 #'
 #' }
-#' @keywords PS DBC
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#'     Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#'     Mecenas. (pág. 167)
+#' @keywords PS
+#' @source BARBIN (2013), pág. 167.
 #' @examples
 #'
 #' library(latticeExtra)
@@ -796,7 +777,8 @@ NULL
 NULL
 
 #' @name BarbinPg177
-#' @title Altura de Prog\enc{ê}{e}nies de \emph{E. grandis} em Tr\enc{ê}{e}s Locais
+#' @title Altura de Prog\enc{ê}{e}nies de \emph{E. grandis} em
+#'     Tr\enc{ê}{e}s Locais
 #' @description Dados de experimento que mediu a altura (m) de árvores
 #'     seis progênies de \emph{Eucaliptus grandis} em experimentos
 #'     instalados em 3 locais sob o delineamento de blocos casualizados.
@@ -817,10 +799,8 @@ NULL
 #'     anos de idade.}
 #'
 #' }
-#' @keywords GE DBC
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#'     Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#'     Mecenas. (pág. 177)
+#' @keywords GE
+#' @source BARBIN (2013), pág. 177.
 #' @examples
 #'
 #' library(latticeExtra)
@@ -843,7 +823,7 @@ NULL
 #'     foram comparadas quatro cultivares de pêssego quando ao
 #'     enraizamento de estacas. Experimento foi instalado em
 #'     delineamento inteiramente casualizado.
-#' @format Um \code{data.frame} com 20 observações e 2 variáveis.
+#' @format Um \code{data.frame} com 20 observações e 2 variáveis, em que
 #'
 #' \describe{
 #'
@@ -859,9 +839,7 @@ NULL
 #'     posição das observações consideradas perdidas para se ilustrar a
 #'     análise do experimento com número não igual de repetições.
 #' @keywords DIC
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#'     Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#'     Mecenas. (pág. 25)
+#' @source BARBIN (2013), pág. 25.
 #'
 #' Sambão, J. C., Sampaio, V. R., Barbin, D. (1982). Enraizamento de
 #'     estacas herbáceas de pessegueiro (\emph{Prunus persica}
@@ -886,7 +864,7 @@ NULL
 #' @description Dados de produção de laranjeira aos 12 anos de idade sob
 #'     diferentes porta-enxertos. O experimento foi instalado em
 #'     delineamento de blocos casualizados.
-#' @format Um \code{data.frame} com 27 observações e 3 variáveis.
+#' @format Um \code{data.frame} com 27 observações e 3 variáveis, em que
 #'
 #' \describe{
 #'
@@ -904,9 +882,7 @@ NULL
 #'     consideradas como perdidas para ilustrar como fazer a análise do
 #'     experimento desbalanceado.
 #' @keywords DBC
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#'     Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#'     Mecenas. (pág. 72)
+#' @source BARBIN (2013), pág. 72.
 #'
 #' Teófilo Sobrinho, J. (1972). Comportamento da laranjeira valência
 #'     (\emph{Citrus sinensis} L., Osbeck) sob diferentes
@@ -926,4 +902,3 @@ NULL
 #'        ylab = "Número médio de frutos por planta")
 #'
 NULL
-

R/BracarensePg114.R

+#' @name BracarensePg114
+#' @title Intenções de Voto
+#' @description Pesquisas de intençõeses de voto feitas para eleição da
+#'     Bahia em 2006, em diferentes datas antes da eleição.
+#' @format Um \code{data.frame} com 8 linhas e 4 colunas em que:
+#'
+#' \describe{
+#'
+#' \item{\code{Data}}{Data de divulgação das pesquisar de inteção de
+#'     voto ou do resultado final das eleições.}
+#'
+#' \item{\code{PS}}{Porcentagem de votos para Paulo Souto.}
+#'
+#' \item{\code{JW}}{Porcentagem de votos para Jaques Wagner.}
+#'
+#' \item{\code{OC}}{Porcentagem de votos para outros candidatos.}
+#'
+#' }
+#' @keywords estat?stica b?sica
+#' @source BRACARENSE (2009), exemplo p?gina 114.
+#' @examples
+#'
+#' data(BracarensePg114)
+#' str(BracarensePg114)
+#'
+#' # Porque algumas somas passam de 100%?
+#' rowSums(BracarensePg114[, -1])
+#'
+#' BracarensePg114$Data <- factor(BracarensePg114$Data,
+#'                                levels = as.character(BracarensePg114$Data))
+#'
+#' dados <- c(BracarensePg114$PS[c(1, 8)], BracarensePg114$JW[c(1, 8)])
+#'
+#' barplot(dados,
+#'         names.arg = rep(c("Paulo Souto",
+#'                           "Jaques Wagner"), each = 2),
+#'         col = rep(c("red", "pink"), times = 2),
+#'         main = paste0("Intenções de Voto em 18/5\n",
+#'                       "Comparadas com o Resultado Final da Eleições"),
+#'         ylim = c(0, 80),
+#'         legend = c("18/5", "Resultado Oficial"))
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' barchart(PS + JW + OC ~ Data, data = BracarensePg114)
+#'
+#' barchart(~PS + JW + OC | Data,
+#'          data = BracarensePg114,
+#'          as.table = TRUE)
+#'
+#' xyplot(PS + JW + OC ~ Data,
+#'        data = BracarensePg114,
+#'        xlab = "Datas das pesquisas e resultado final",
+#'        ylab = "Proporção de votos (%)",
+#'        type = "o",
+#'        pch = 19) +
+#'     layer(panel.text(x = tapply(x, groups, tail, 1),
+#'                      y = tapply(y, groups, tail, 1),
+#'                      labels = levels(groups),
+#'                      pos = 4, cex = 1.1))
+#'
+NULL