R/BracarensePg177.R

+#' @name BracarensePg177
+#' @title População Recenseada e Estimada em 2007
+#' @description População recenseada e estimada, segundo as unidades da
+#'     federação (2007).
+#' @format Um \code{data.frame} com 27 linhas e 3 colunas em que:
+#'
+#' \describe{
+#'
+#' \item{\code{Reg}}{Região a qual pertence o estado.}
+#'
+#' \item{\code{Est}}{Estado do Brasil.}
+#'
+#' \item{\code{Pop}}{População do Estado.}
+#'
+#' }
+#' @keywords estatística básica
+#' @source BRACARENSE (2009), exemplo página 177.
+#' @examples
+#'
+#' data(BracarensePg177)
+#' str(BracarensePg177)
+#'
+#' dados  <- aggregate(Pop ~ Reg,
+#'                     data = BracarensePg177,
+#'                     FUN = sum)
+#' dados
+#'
+#' barplot(dados$Pop/sum(dados$Pop),
+#'         names.arg = dados$Reg,
+#'         col = rainbow(5),
+#'         main = "Porcentagem da População Brasileira por Região")
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' # Gráfico de pareto da distribuição da população.
+#' barchart(Pop/sum(Pop) ~ reorder(Est, -Pop),
+#'          data = BracarensePg177,
+#'          ylim = c(0, NA),
+#'          scales = list(x = list(rot = 90)),
+#'          xlab = "Estados brasileiros",
+#'          ylab = "Poporção da população total") +
+#'     layer(panel.text(x = x,
+#'                      y = y,
+#'                      labels = sprintf("%0.2f", y),
+#'                      cex = 0.8,
+#'                      adj = c(-0.25, 0.5),
+#'                      srt = 90))
+#'
+NULL

R/BracarensePg184.R

+#' @name BracarensePg184
+#' @title Taxa de Fecundidade por Grupos de Anos de Estudo da Mulher
+#' @description Taxa de fecundidade total por grupos de anos de estudos
+#'     da mulher, por regiões.
+#' @format Um \code{data.frame} com 6 linhas e 5 colunas em que:
+#'
+#' \describe{
+#'
+#' \item{\code{Reg}}{Regiões do Brasil.}
+#'
+#' \item{\code{de0a3}}{Taxa de fecundidade de mulheres com até 3 anos de
+#'     estudo.}
+#'
+#' \item{\code{de4a7}}{taxa de fecundidade de mulheres de 4 a 7 anos de
+#'     estudo.}
+#'
+#' \item{\code{de8acima}}{Taxa de fecundidade de mulheres com 8 anos ou
+#'     mais de estudo.}
+#'
+#' \item{\code{Total}}{Taxa de fecundidade total.}
+#'
+#' }
+#' @keywords estatística básica
+#' @source BRACARENSE (2009), exemplo página 184.
+#' @examples
+#'
+#' data(BracarensePg184)
+#' str(BracarensePg184)
+#'
+#' names(BracarensePg184)[3:5] <- c("de0a3", "de4a7", "de8acima")
+#'
+#' barplot(BracarensePg184$Total,
+#'         ylim = c(0, 3),
+#'         names.arg = BracarensePg184$Reg,
+#'         main = "Taxa de Fecundidade Por Região",
+#'         col = rainbow(6))
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' barchart(de0a3 + de4a7 + de8acima + Total~ Reg,
+#'          data = BracarensePg184,
+#'          auto.key = list(columns = 4),
+#'          ylab = "Taxa de fecundidade",
+#'          xlab = "Regiões")
+#'
+NULL

R/BracarensePg189.R

+#' @name BracarensePg189
+#' @title Razão de Sexo um Unidades Regiões do Brasil
+#' @description Razão entre os sexos das pessoas de 60, 65 e 70 anos ou
+#'     mais de idade, segundo a Região Nordeste, Unidades da Federação e
+#'     Regiões metropolitanas em 2006.
+#' @format Um \code{data.frame} com 12 linhas e 4 colunas em que:
+#'
+#' \describe{
+#'
+#' \item{\code{UF}}{Unidades da Federação.}
+#'
+#' \item{\code{60a}}{Razão entre os sexos para pessoas de 60 anos ou
+#'     mais.}
+#'
+#' \item{\code{65a}}{Razão entre os sexos para pessoas de 65 anos ou
+#'     mais.}
+#'
+#' \item{\code{70a}}{Razão entre os sexos para pessoas de 70 anos ou
+#'     mais.}
+#'
+#' }
+#' @keywords estatística básica
+#' @source BRACARENSE (2009), exemplo página 189.
+#' @examples
+#'
+#' data(BracarensePg189)
+#' str(BracarensePg189)
+#'
+#' barplot(BracarensePg189$X60a[1:5],
+#'         names.arg = BracarensePg189$UF[1:5],
+#'         ylim = c(0, 100),
+#'         col = "yellow",
+#'         main = "Razão de sexo de pessoas de 60 anos ou mais")
+#'
+#' library(lattice)
+#'
+#' barchart(X60a + X65a + X70a ~ UF,
+#'          data = BracarensePg189,
+#'          auto.key = list(columns = 3))
+#'
+NULL

R/BracarensePg194.R

+#' @name BracarensePg194
+#' @title Índices de Urbanização
+#' @description Índices de Urbanização por região no Brasil nos anos
+#'     1950, 1970 e 2000.
+#' @format Um \code{data.frame} com 15 linhas e 3 colunas em que:
+#'
+#' \describe{
+#'
+#' \item{\code{Reg}}{Regiões do Brasil.}
+#'
+#' \item{\code{Ano}}{Ano em que o índice foi registrado.}
+#'
+#' \item{\code{Ind}}{Índice de urbanização.}
+#'
+#' }
+#' @keywords estatística básica
+#' @source BRACARENSE (2009), exemplo página 194.
+#' @examples
+#'
+#' data(BracarensePg194)
+#' str(BracarensePg194)
+#'
+#' library(lattice)
+#'
+#' xyplot(Ind ~ Ano,
+#'        groups = Reg,
+#'        data = BracarensePg194,
+#'        type = "o",
+#'        auto.key = list(corner = c(0.05, 0.95),
+#'                        title = "Regiões",
+#'                        cex.title = 1.1),
+#'        xlab = "Anos",
+#'        ylab = "Índice de urbanização")
+#'
+NULL

R/BracarensePg205.R

+#' @name BracarensePg205
+#' @title Índices de Desenvolvimento Humano
+#' @description Valor do IDH dos 20 países com maiores índices.
+#' @format Um \code{data.frame} com 20 linhas e 2 colunas em que:
+#'
+#' \describe{
+#'
+#' \item{\code{Pais}}{Nomes dos Países.}
+#'
+#' \item{\code{IDH}}{Índice de desenvolvimento humano.}
+#'
+#' }
+#' @keywords estatística básica
+#' @source BRACARENSE (2009), exemplo página 205.
+#' @examples
+#'
+#' data(BracarensePg205)
+#' str(BracarensePg205)
+#'
+#' boxplot(BracarensePg205$IDH,
+#'         col = "pink",
+#'         ylab = "Índice de Desenvolvimento Humano (20 Países)")
+#' rug(BracarensePg205$IDH, side = 2)
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' dotplot(reorder(Pais, IDH) ~ IDH,
+#'         data = BracarensePg205,
+#'         pch = 19,
+#'         xlab = "Índice de Desenvolvimento Humano (20 Países)") +
+#'     layer(panel.text(x = x,
+#'                      y = y,
+#'                      labels = sprintf("%0.3f", x),
+#'                      pos = 4))
+#'
+NULL

R/BracarensePg206.R

+#' @name BracarensePg206
+#' @title Índices de Desenvolvimento Humano
+#' @description Valor do IDH dos 10 países com os menores índices.
+#' @format Um \code{data.frame} com 10 linhas e 2 colunas em que:
+#'
+#' \describe{
+#'
+#' \item{\code{Pais}}{Nomes dos Países.}
+#'
+#' \item{\code{IDH}}{Índice de desenvolvimento humano.}
+#'
+#' }
+#' @keywords estatística básica
+#' @source BRACARENSE (2009), exemplo página 206.
+#' @examples
+#'
+#' data(BracarensePg206)
+#' str(BracarensePg206)
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' dotplot(reorder(Pais, IDH) ~ IDH,
+#'         data = BracarensePg206,
+#'         pch = 19,
+#'         xlab = "Índice de Desenvolvimento Humano (10 Países)") +
+#'     layer(panel.text(x = x,
+#'                      y = y,
+#'                      labels = sprintf("%0.3f", x),
+#'                      pos = 4))
+#'
+NULL

R/BracarensePg207.R

+#' @name BracarensePg207
+#' @title Índices de Gini
+#' @description Valor do índice de Gini dos 10 Países com pior
+#'     distribuição de renda.
+#' @format Um \code{data.frame} com 10 linhas e 2 colunas em que:
+#'
+#' \describe{
+#'
+#' \item{\code{Pais}}{Nomes dos Países.}
+#'
+#' \item{\code{Ind}}{Índice de Gini.}
+#'
+#' }
+#' @keywords estatística básica
+#' @source BRACARENSE (2009), exemplo página 207.
+#' @examples
+#'
+#' data(BracarensePg207)
+#' str(BracarensePg207)
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' dotplot(reorder(Pais, Ind) ~ Ind,
+#'         data = BracarensePg207,
+#'         pch = 19,
+#'         xlab = "Índice de Gini") +
+#'     layer(panel.text(x = x,
+#'                      y = y,
+#'                      labels = sprintf("%0.1f", x),
+#'                      pos = 4))
+#'
+NULL

R/BracarensePg27.R

+#' @name BracarensePg27
+#' @title Relação dos Funcionários de uma Empresa Imaginária
+#' @description Relação dos funcionários constando sexo, idade, salário
+#'     e setor.
+#' @format Um \code{data.frame} com 40 linhas e 4 colunas, em que
+#'
+#' \describe{
+#'
+#' \item{\code{Sexo}}{Sexo do trabalhador.}
+#'
+#' \item{\code{Idade}}{Idade do trabalhador, em anos.}
+#'
+#' \item{\code{Salario}}{Salário recebido.}
+#'
+#' \item{\code{Setor}}{Setor em que trabalha: \code{oper} - operacional,
+#'     \code{aux adm} - auxiliar administrativo, \code{tec} - técnico,
+#'     \code{adm} - administrativo, \code{ger} - gerência.}
+#'
+#' }
+#'
+#' @keywords estatística básica
+#' @source BRACARENSE (2009), exemplo página 27.
+#' @examples
+#'
+#' data(BracarensePg27)
+#' str(BracarensePg27)
+#'
+#' tb <- xtabs(~Setor + Sexo, data = BracarensePg27)
+#' mosaicplot(tb)
+#'
+#' library(lattice)
+#'
+#' xyplot(Idade ~ Setor | Sexo, data = BracarensePg27)
+#'
+NULL

R/BracarensePg41.R

+#' @name BracarensePg41
+#' @title Peso de Recém Nascidos
+#' @description Os dados a seguir são relativos ao peso, ao nascer (em
+#'     gramas), de recém nascidos com síndrome de desconforto idiopático
+#'     grave.
+#' @format Um \code{vetor} com 50 valores de peso em gramas.
+#' @keywords sociometria
+#' @source BRACARENSE (2009), Exercício 1, página 41.
+#' @examples
+#'
+#' data(BracarensePg41)
+#' str(BracarensePg41)
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' c(histogram(~BracarensePg41) + layer(panel.rug(x)),
+#'   densityplot(~BracarensePg41, plot.points = "rug"),
+#'   ecdfplot(~BracarensePg41), layout = c(NA, 1))
+#'
+NULL

R/BracarensePg43.R

+#' @name BracarensePg43
+#' @title Pessoas Condenadas Por Embriaguez
+#' @description Os dados a seguir foram publicados pela Unidade de
+#'     Recuperação de Acoólatras em Camberwell, Reino Unido. A tabela
+#'     mostra o número de pessoas condenadas por embriaguez nos
+#'     tribunais de Tower Bridge e Lambeth, Londres, durante 6 meses, de
+#'     primeiro de janeiro a 27 de junho de 1970, classificados segundo
+#'     idade e sexo.
+#' @format Um \code{data.frame} com 5 linhas e 3 colunas, em que
+#'
+#' \describe{
+#'
+#' \item{\code{NH}}{Número de Homens.}
+#'
+#' \item{\code{NM}}{Número de Mulheres.}
+#'
+#' }
+#'
+#' @keywords estatística básica
+#' @source BRACARENSE(2009), Exercício 2, página 43.
+#' @examples
+#'
+#' data(BracarensePg43)
+#' str(BracarensePg43)
+#' levels(BracarensePg43$Idade)[c(1, 5)] <- c("<30", ">=60")
+#'
+#' tb <- as.matrix(BracarensePg43[, -1])
+#' rownames(tb) <- BracarensePg43[, 1]
+#'
+#' mosaicplot(tb, main = NULL)
+#'
+#' barplot(tb,
+#'         beside = TRUE,
+#'         ylab = "Número de pessoas condenados por embriaguez")
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' desloc <- function(x, groups, box.ratio, subscripts) {
+#'     d <- 1/(nlevels(groups) + nlevels(groups)/box.ratio)
+#'     g <- (as.numeric(groups[subscripts]) - 1)
+#'     g <- (g - median(g)) * d
+#'     return(as.integer(x[subscripts]) + g)
+#' }
+#'
+#' barchart(tb,
+#'          stack = FALSE,
+#'          horizontal = FALSE,
+#'          ylab = "Número de pessoas condenados por embriaguez") +
+#'     layer(panel.text(x = desloc(x, groups, box.ratio, subscripts),
+#'                      y = y,
+#'                      label = y,
+#'                      pos = 3))
+#'
+#' barchart(t(tb),
+#'          stack = FALSE,
+#'          horizontal = FALSE,
+#'          ylab = "Número de pessoas condenados por embriaguez") +
+#'     layer(panel.text(x = desloc(x, groups, box.ratio, subscripts),
+#'                      y = y,
+#'                      label = y,
+#'                      pos = 3))
+#'
+NULL

R/BracarensePg44.R

+#' @name BracarensePg44
+#' @title Altura de Mulheres Idosas
+#' @description Os dados a seguir são de altura (em centímetros) de uma
+#'     amostra de 351 mulheres idosas selecionadas aleatoriamente de uma
+#'     comunidade para um estudo de osteoporose.
+#' @format Um \code{vetor} com 351 valures de altura, em cm.
+#' @keywords sociometria
+#' @source BRACARENSE (2009), Exercício 3, página 44.
+#' @examples
+#'
+#' data(BracarensePg44)
+#' str(BracarensePg44)
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' c(histogram(~BracarensePg44) + layer(panel.rug(x)),
+#'   densityplot(~BracarensePg44, plot.points = "rug"),
+#'   ecdfplot(~BracarensePg44), layout = c(NA, 1))
+#'
+NULL

R/BracarensePg78.R

+#' @name BracarensePg78
+#' @title Notas Padronizadas por Matéria
+#' @description Notas padronizadas de um candidato, por matéria.
+#' @format Um \code{data.frame} com 24 linhas e 3 colunas, em que
+#'
+#' \describe{
+#'
+#' \item{\code{Mate}}{Matéria.}
+#
+#' }
+#'
+#' @keywords estatística básica
+#' @source BRACARENSE (2009), exemplo página 78.
+#' @examples
+#'
+#' data(BracarensePg78)
+#' str(BracarensePg78)
+#'
+#' BracarensePg78$Mate <- with(BracarensePg78, reorder(Mate, Nota))
+#' levels(BracarensePg78$Mate)
+#'
+#' medias <- aggregate(Nota ~ Mate,
+#'                     data = BracarensePg78,
+#'                     FUN = mean)
+#' medias
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' barchart(Nota ~ Mate, data = medias) +
+#'     layer(panel.text(x = x, y = y, labels = y, pos = 3))
+#'
+#' xyplot(Nota ~ Serie,
+#'        groups = Mate,
+#'        data = BracarensePg78,
+#'        type = "o",
+#'        auto.key = list(space = "right",
+#'                        title = "Matéria",
+#'                        cex.title = 1.1))
+#'
+NULL

R/BracarensePg79.R

+#' @name BracarensePg79
+#' @title Peso de Recém Nascidos
+#' @description Peso, em gramas, de 44 bebês recém nascidos em um
+#'     período de 24 horas em um hospital de Brisbane na Austrália.
+#' @format Um \code{vetor} com 44 valores de peso.
+#' @keywords estatística básica
+#' @source BRACARENSE (2009), atividade 1, página 79.
+#' @examples
+#'
+#' data(BracarensePg79)
+#' str(BracarensePg79)
+#'
+#' summary(BracarensePg79)
+#'
+#' xlim <- extendrange(BracarensePg79, f = 0.15)
+#'
+#' nf <- layout(mat = matrix(c(1, 2), 2, 1, byrow = TRUE),
+#'              height = c(1, 3))
+#' par(mar = c(1.1, 4.1, 3.1, 2.1))
+#' boxplot(BracarensePg79,
+#'         horizontal = TRUE,
+#'         col = "green1",
+#'         ylim = xlim,
+#'         axes = FALSE,
+#'         frame = FALSE)
+#' axis(side = 3)
+#' rug(BracarensePg79, side = 3, ticksize = 0.1)
+#' par(mar = c(4.1, 4.1, 1.1, 2.1))
+#' hist(BracarensePg79,
+#'      xlim = xlim,
+#'      main = NULL,
+#'      col = "pink",
+#'      xlab = "Peso de bebês recém nascidos (g)")
+#' abline(v = median(BracarensePg79), col = 4)
+#' rug(BracarensePg79, side = 1)
+#' layout(1)
+#'
+NULL

R/CamposEx2.3.6.2.R

+#' @name CamposEx2.3.6.2
+#' @title Ensaio com Bananeiras
+#' @description Ensaio com bananeiras, realizado pelo Dr. Jairo Ribeiro
+#'     de Mattos, da E.S.A. "Luiz de Queiroz", em Piracicaba, SP,
+#'     obtendo o peso médio em Kg por cacho de banana.
+#' @format Um vetor com 25 observações.
+#' @keywords NP
+#' @source CAMPOS (1983), Exemplo 2, seção 2.3.6, pág. 47.
+#' @examples
+#'
+#' data(CamposEx2.3.6.2)
+#' ks.test(CamposEx2.3.6.2, "pnorm", mean = 20, sd = sqrt(5.25))
+#'
+NULL

R/CamposEx2.3.6.3.R

+#' @name CamposEx2.3.6.3
+#' @title Dados Fictícios para Distribuicão de Poisson.
+#' @description Verificar se os dados seguem uma distribuicão de
+#'     Poisson.
+#' @format Um \code{data.frame} com 6 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{Xi}}{ Valor de uma variável genérica. }
+#'
+#' \item{\code{fi}}{ Frequência de Xi. }
+#'
+#' }
+#' @keywords NP
+#' @source CAMPOS (1983), Exemplo 3, seção 2.3.6, pág. 51.
+#' @examples
+#'
+#' data(CamposEx2.3.6.3)
+#' # Tamanho da amostra
+#' n <- sum(CamposEx2.3.6.3$fi)
+#' # Função de distribuição acumulada considerando Poisson(1.2)
+#' FXi <- cumsum(dpois(CamposEx2.3.6.3$Xi, lambda = 1.2))
+#' # Função empírica de distribuição
+#' SXi <- cumsum(CamposEx2.3.6.3$fi)/n
+#' # Distâncias (absolutas) entre FXi e SXi
+#' FXi_SXi <- abs(FXi - SXi)
+#' # Tabela completa
+#' cbind(CamposEx2.3.6.3, FXi, SXi, FXi_SXi)
+#' # Calcula D
+#' D <- max(FXi_SXi)
+#' # Não existe forma fechada para calcular o p-valor, por isso o D deve
+#' # ser comparado com valores tabelados
+#'
+NULL

R/CamposEx2.3.6.4.R

+#' @name CamposEx2.3.6.4
+#' @title Produção de 50 Experimentos Fatoriais 3^3 de Adubação de
+#'     Milho.
+#' @description Produção de 50 experimentos fatoriais 3^3 de adubação de
+#'     milho, realizados em Ribeirão Preto, Estado de São Paulo, pelo
+#'     Dr. Hermano Vaz de Arruda, Pesquisador-Chefe do Instituto
+#'     Biológico do Estado de São Paulo, e que foram reunidos em cinco
+#'     grupos de dez experimentos cada.
+#' @format Um \code{data.frame} com 27 observações e 5 variáveis, em
+#'      que
+#'
+#' \describe{
+#'
+#' \item{\code{Grupo1}}{ Produção média de milho no Grupo 1 }
+#'
+#' \item{\code{Grupo2}}{ Produção média de milho no Grupo 2 }
+#'
+#' \item{\code{Grupo3}}{ Produção média de milho no Grupo 3 }
+#'
+#' \item{\code{Grupo4}}{ Produção média de milho no Grupo 4 }
+#'
+#' \item{\code{Grupo5}}{ Produção média de milho no Grupo 5 }
+#'
+#' }
+#' @keywords NP
+#' @source CAMPOS (1983), Exemplo 4, seção 2.3.6, pág. 53.
+#' @examples
+#'
+#' data(CamposEx2.3.6.4)
+#' str(CamposEx2.3.6.4)
+#' boxplot(values ~ ind, data = stack(CamposEx2.3.6.4))
+#'
+NULL

R/CamposEx2.5.1.R

+#' @name CamposEx2.5.1
+#' @title Dados Genericos para Teste de Cram\enc{é}{e}r Von Mises.
+#' @description Estudo de dados genericos através do Teste de Cramér-von Mises
+#' @format Um vetor com 8 observações.
+#' @keywords NP
+#' @source CAMPOS (1983), Exemplo 1, seção 2.5.1, pág. 60.
+#' @examples
+#'
+#' data(CamposEx2.5.1)
+#' str(CamposEx2.5.1)
+#'
+NULL

R/Costa.R

 #' @name CostaEx5.7.2
-#' @title Densidade do Solo ao Longo do Perfil em Zonas de Compacta\enc{çã}{ca}o
+#' @title Densidade do Solo ao Longo do Perfil em Zonas de
+#'     Compacta\enc{çã}{ca}o
 #' @description Os dados são resultados de um estudo feito em zonas de
 #'     compactação e referem-se a valores de densidade do solo em
 #'     amostras retiradas de diferentes profundidades no perfil do solo.
-#' @format Um \code{data.frame} com 10 observações e 2 variáveis.
+#' @format Um \code{data.frame} com 10 observações e 2 variáveis, em que
 #'
 #' \describe{
 #'
@@ -14,10 +15,8 @@
 #'     amostra retirada do perfil do solo.}
 #'
 #' }
-#' @keywords TODO
-#' @source Costa, J. R. (2003). Técnicas experimentais aplicadas às
-#'     ciências agrárias (Documentos 163). Seropédica, RJ: Embrapa
-#'     Agrobiologia. (Exemplo 5.7.2.1, pág. 90)
+#' @keywords RS
+#' @source Costa (2013), Exemplo 5.7.2.1, pág. 90.
 #' @examples
 #'
 #' library(lattice)
@@ -38,7 +37,7 @@ NULL
 #' @description Experimento instalado em delineamento inteiramente
 #'     casualizado que mediu o efeito da adubação nitrogenada na
 #'     produção de milho.
-#' @format Um \code{data.frame} com 15 observações e 3 variáveis.
+#' @format Um \code{data.frame} com 15 observações e 3 variáveis, em que
 #'
 #' \describe{
 #'
@@ -50,16 +49,13 @@ NULL
 #' \item{\code{prod}}{Produção de milho (ton ha\eqn{^{-1}}).}
 #'
 #' }
-#' @keywords DIC RegSeg
-#' @source Costa, J. R. (2003). Técnicas experimentais aplicadas às
-#'     ciências agrárias (Documentos 163). Seropédica, RJ: Embrapa
-#'     Agrobiologia. (Exemplo 5.7.3.1, pág. 95)
+#' @keywords DIC RS RNL
+#' @source Costa (2013), Exemplo 5.7.3.1, pág. 95.
 #' @examples
 #'
 #' library(lattice)
 #'
 #' data(CostaEx5.7.3)
-#'
 #' str(CostaEx5.7.3)
 #'
 #' xyplot(prod ~ dose, data = CostaEx5.7.3,
@@ -75,7 +71,7 @@ NULL
 #'     vegetação em delineamento inteiramente casualizado para avaliar a
 #'     massa seca de parte aérea de variedades de cana-de-açúcar. A
 #'     unidade experimental (parcela) era um vaso com 3 plantas.
-#' @format Um \code{data.frame} com 24 observações e 3 variáveis.
+#' @format Um \code{data.frame} com 24 observações e 3 variáveis, em que
 #'
 #' \describe{
 #'
@@ -90,14 +86,13 @@ NULL
 #'
 #' }
 #' @keywords DIC
-#' @source Costa, J. R. (2003). Técnicas experimentais aplicadas às
-#'     ciências agrárias (Documentos 163). Seropédica, RJ: Embrapa
-#'     Agrobiologia. (Tabela 4, pág. 58)
+#' @source Costa (2013), Tabela 4, pág. 58.
 #' @examples
 #'
 #' library(lattice)
 #'
 #' data(CostaTb4)
+#' str(CostaTb4)
 #'
 #' aggregate(mspa ~ varied,  data = CostaTb4,
 #'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
@@ -113,7 +108,8 @@ NULL
 #' @description Experimento instalado em delineamento de blocos
 #'     casualizados para estudar o efeito de tipos de cobertura morta no
 #'     peso seco de brócolis.
-#' @format Um \code{data.frame} com 20 observações e 3 variáveis.
+#' @format Um \code{data.frame} com 20 observações e 3 variáveis, em que
+#'
 #' \describe{
 #'
 #' \item{\code{cobert}}{Fator nominal com níveis de cobertura morta
@@ -130,19 +126,21 @@ NULL
 #'
 #' }
 #' @keywords DBC
-#' @source Costa, J. R. (2003). Técnicas experimentais aplicadas às
-#'     ciências agrárias (Documentos 163). Seropédica, RJ: Embrapa
-#'     Agrobiologia. (Tabela 6 pág. 63)
+#' @source Costa (2013), Tabela 6 pág. 63.
 #' @examples
 #'
 #' library(lattice)
 #'
 #' data(CostaTb6)
+#' str(CostaTb6)
 #'
 #' with(CostaTb6, addmargins(tapply(X = peso,
 #'                                  INDEX = list(bloco, cobert),
 #'                                  FUN = sum)))
 #'
+#' # Ordenar para evitar o efeito espaguete no gráfico.
+#' CostaTb6 <- CostaTb6[with(CostaTb6, order(cobert, bloco)), ]
+#'
 #' xyplot(peso ~ cobert, data = CostaTb6,
 #'        groups = bloco, type = "b",
 #'        xlab = "Tipos de cobertura do solo",
@@ -157,7 +155,7 @@ NULL
 #' @description Experimento fatorial que avaliou o peso do colmo de duas
 #'     variedades de cana-de-açúcar em resposta a três inoculantes
 #'     aplicados.
-#' @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{
 #'
@@ -176,15 +174,12 @@ NULL
 #'
 #' }
 #' @keywords DBC FAT2
-#' @source Costa, J. R. (2003). Técnicas experimentais aplicadas às
-#'     ciências agrárias (Documentos 163). Seropédica, RJ: Embrapa
-#'     Agrobiologia. (Tabela 7, pág. 68)
+#' @source Costa (2013), Tabela 7, pág. 68.
 #' @examples
 #'
 #' library(lattice)
 #'
 #' data(CostaTb7)
-#'
 #' str(CostaTb7)
 #'
 #' ftable(with(CostaTb7,
@@ -205,11 +200,12 @@ NULL
 NULL
 
 #' @name CostaTb8
-#' @title Irriga\enc{çã}{ca}o no Tamanho de Frutos de Variedades de Banana
+#' @title Irriga\enc{çã}{ca}o no Tamanho de Frutos de Variedades de
+#'     Banana
 #' @description Experimento em parcelas subdivididas que estudou o
 #'     comprimento de frutos de variedades de banana em função do nível
 #'     de irrigação fornecido.
-#' @format Um \code{data.frame} com 32 observações e 4 variáveis.
+#' @format Um \code{data.frame} com 32 observações e 4 variáveis, em que
 #'
 #' \describe{
 #'
@@ -230,16 +226,13 @@ NULL
 #'     penca do cacho de bananas.}
 #'
 #' }
-#' @keywords DBC PS
-#' @source Costa, J. R. (2003). Técnicas experimentais aplicadas às
-#'     ciências agrárias (Documentos 163). Seropédica, RJ: Embrapa
-#'     Agrobiologia. (Tabela 8, pág. 76)
+#' @keywords PS
+#' @source Costa (2013), Tabela 8, pág. 76.
 #' @examples
 #'
 #' library(lattice)
 #'
 #' data(CostaTb8)
-#'
 #' str(CostaTb8)
 #'
 #' ftable(with(CostaTb8,
@@ -258,4 +251,3 @@ NULL
 #'        ylab = expression("Comprimento do fruto"~(cm)))
 #'
 NULL
-