diff --git a/R/Epprecht.R b/R/Epprecht.R
index 4e9e86887d881760a8c81fe23a2cafdd5127db38..7b2fb6b2c7c83ec770ca5bf88c31b74ecdc8704d 100644
--- a/R/Epprecht.R
+++ b/R/Epprecht.R
@@ -1,691 +1,557 @@
 #' @name EpprechtTb2.1
-#' @title Volumes em embalagens de leite
-#' @description Dados referentes aos volumes verificados de 
-#'     leite em 100 embalagens de 1000 ml.      
-#' 
-#' @format Um \code{data.frame} com 100 observações e 2 variáveis, em 
+#' @aliases EpprechtTb2.2 EpprechtTb2.3
+#' @title Volumes em Embalagens de Leite
+#' @description Dados referentes aos volumes verificados de leite em 100
+#'     embalagens de 1000 ml.
+#' @format Um \code{data.frame} com 100 observações e 2 variáveis, em
 #'     que
-#' 
+#'
 #' \describe{
 #'
 #' \item{\code{id}}{Identificação da embalagem.}
-#' 
+#'
 #' \item{\code{X}}{Volume de leite presente na embalagem (ml).}
-#' 
-#' }
 #'
-#' @keywords CEQ 
-#' @source Costa, A. F. B., Epprecht, E. K., Carpinetti, L. (2010).
-#'      Controle Estatístico de Qualidade (2nd ed.). São Paulo - SP:
-#'      Editora Atlas. (pg 23).
-#' 
-#' @examples
+#' }
 #'
-#' data(EpprechtTb2.1) 
-#' 
-#' hist(EpprechtTb2.1$x, xlab="Volume (ml)", ylab="Frequência", main="")
-#'                   
-NULL
-
-#' @name EpprechtTb2.2
-#' @title Volumes em embalagens de leite
-#' @description Dados referentes aos volumes verificados de 
-#'     leite em 100 embalagens de 1000 ml. Os dados foram extraídos 
-#'     após uma alteração da pressão de operação, configurando uma causa 
-#'     especial de variação.
-#' 
-#' @format Um \code{data.frame} com 100 observações e 2 variáveis, 
-#'     em que
-#' 
-#' \describe{
+#'     Os dados em \code{\link{EpprechtTb2.2}} foram extraídos após uma
+#'     alteração da pressão de operação, configurando uma causa especial
+#'     de variação.
 #'
-#' \item{\code{id}}{Identificação da embalagem.}
-#' 
-#' \item{\code{X}}{Volume de leite na embalagem (ml).}
-#' 
-#' 
-#' }
+#'     Os dados em \code{\link{EpprechtTb2.3}} foram extraídos de um
+#'     processo isento de causas especiais de variação.
 #'
-#' @keywords variabilidade
-#' @source Costa, A. F. B., Epprecht, E. K., Carpinetti, L. (2010).
-#'      Controle Estatístico de Qualidade (2nd ed.). São Paulo - SP:
-#'      Editora Atlas. (pg 26).
-#' 
+#' @keywords CEQ
+#' @source COSTA et al. (2010), pág. 23, 26 e 35.
 #' @examples
 #'
-#' data(EpprechtTb2.2) 
-#' 
-#' hist(EpprechtTb2.2$x, xlab="Volume (ml)", ylab="Frequência", main="")
-#'                   
-NULL
-
-#' @name EpprechtTb2.3
-#' @title Volumes em embalagens de leite
-#' @description Dados referentes aos volumes  de leite em 100 embalagens
-#'     de 1000 ml. Os dados são extraídos de um processo isento de
-#'     causas especiais de variação.
-#' 
-#' @format Um \code{data.frame} com 100 observações e 2 variáveis, 
-#'     em que
-#' 
-#' \describe{
+#' # TODO: Dois desses data.frames são iguais.
 #'
-#' \item{\code{id}}{Identificação da embalagem.}
-#' 
-#' \item{\code{X}}{Volume de leite presente na embalagem (ml).}
-#' 
-#' }
+#' data(EpprechtTb2.1)
+#' str(EpprechtTb2.1)
+#' str(EpprechtTb2.2)
+#' str(EpprechtTb2.3)
 #'
-#' @keywords CEQ
-#' @source Costa, A. F. B., Epprecht, E. K., Carpinetti, L. (2010).
-#'      Controle Estatístico de Qualidade (2nd ed.). São Paulo - SP:
-#'      Editora Atlas. (pg 35).
-#' 
-#' @examples
+#' hist(EpprechtTb2.1$x,
+#'      xlab = "Volume (ml)",
+#'      ylab = "Frequência",
+#'      main = "")
+#'
+#' plot(c(EpprechtTb2.2$x, EpprechtTb2.3$x), type = "o")
+#' abline(v = length(EpprechtTb2.2$x), col = 2, lty = 2)
 #'
-#' data(EpprechtTb2.3) 
-#' 
-#' hist(EpprechtTb2.3$x, xlab="Volume (ml)", ylab="Frequência", main="")
-#'                   
 NULL
 
 #' @name EpprechtTb5.2
-#' @title Medidas de pe\enc{ç}{c}as em uma linha de produ\enc{çã}{ca}o
+#' @title Medidas de Pe\enc{ç}{c}as em uma Linha de Produ\enc{çã}{ca}o
 #' @description Dados referentes às medidas de peças de uma linha de
-#'     produção. O objetivo é analisar a repetitividade e a 
+#'     produção. O objetivo é analisar a repetitividade e a
 #'     reprodutividade de um micrômetro com leitura milesimal, usado na
-#'     medição de um componente de um processo de usinagem. Três 
-#'     operadores treinados mediram duas vezes cada uma de 10 peças. 
-#'     A sequência em que cada um dos operadores mede cada uma das 
-#'     peças foi aleatorizada.
-#'     
-#' @format Um \code{data.frame} com 60 observações e 3 variáveis, 
-#'     em que
-#' 
+#'     medição de um componente de um processo de usinagem. Três
+#'     operadores treinados mediram duas vezes cada uma de 10 peças.  A
+#'     sequência em que cada um dos operadores mede cada uma das peças
+#'     foi aleatorizada.
+#' @format Um \code{data.frame} com 60 observações e 3 variáveis, em que
+#'
 #' \describe{
 #'
 #' \item{\code{pc}}{Identificação da peça.}
-#' 
+#'
 #' \item{\code{op}}{Fator que indica o operador que realizou a medição
 #'     da peça (de 1 a 3).}
-#'     
-#' \item{\code{tam}}{Tamanho da peça (µm).}
-#' 
-#' }
 #'
-#' @keywords CEQ ASM
-#' @source Costa, A. F. B., Epprecht, E. K., Carpinetti, L. (2010).
-#'      Controle Estatístico de Qualidade (2nd ed.). São Paulo - SP:
-#'      Editora Atlas. (pg 152).
-#' 
+#' \item{\code{tam}}{Tamanho da peça (\eqn{\mu}m).}
+#'
+#' }
+#' @keywords CEQ
+#' @source COSTA et al. (2010), pág. 152.
 #' @examples
 #'
 #' data(EpprechtTb5.2)
-#' 
+#' str(EpprechtTb5.2)
+#'
+#' xtabs(~pc + op, data = EpprechtTb5.2)
+#'
 #' boxplot(tam ~ op, data = EpprechtTb5.2,
-#'         xlab = "Operário", 
-#'         ylab = "Tamanho", 
-#'         main = "Boxplots para os tamanhos das peças aferidos pelos três 
-#'             operários",
+#'         xlab = "Operário",
+#'         ylab = "Tamanho",
 #'         col = c("#F0FFFF","#FFDAB9", "#C1FFC1"))
-#' 
-#'                   
+#'
 NULL
 
 #' @name EpprechtTb5.4
-#' @title Capacidade de medi\enc{çã}{ca}o de um rel\enc{ó}{o}gio apalpador 
-#' @description Dados utilizados para avaliar a capacidade
-#'     de um relógio apalpador na medição do erro de batida radial de 
-#'     um eixo retificado. São 20 peças medidas por um mesmo
-#'     operador, duas vezes cada. 
-#' 
-#' @format Um \code{data.frame} com 40 observações e 2 variáveis, 
-#'     em que
-#' 
+#' @title Capacidade de medi\enc{çã}{ca}o de um rel\enc{ó}{o}gio
+#'     apalpador
+#' @description Dados utilizados para avaliar a capacidade de um relógio
+#'     apalpador na medição do erro de batida radial de um eixo
+#'     retificado. São 20 peças medidas por um mesmo operador, duas
+#'     vezes cada.
+#' @format Um \code{data.frame} com 40 observações e 2 variáveis, em que
+#'
 #' \describe{
 #'
 #' \item{\code{pc}}{Identificação da peça.}
-#' 
-#' 
+#'
 #' \item{\code{tam}}{Tamanho da peça (décimos de mícrons).}
-#' 
-#' }
 #'
-#' @keywords CEQ ASM
-#' @source Costa, A. F. B., Epprecht, E. K., Carpinetti, L. (2010).
-#'      Controle Estatístico de Qualidade (2nd ed.). São Paulo - SP:
-#'      Editora Atlas. (pg 155).
-#' 
+#' }
+#' @keywords CEQ
+#' @source COSTA et al. (2010), pág. 155.
 #' @examples
 #'
 #' data(EpprechtTb5.4)
-#' 
-#' plot(tam ~ pc,data=EpprechtTb5.4,
+#' str(EpprechtTb5.4)
+#'
+#' plot(tam ~ pc, data = EpprechtTb5.4,
 #'      ylab = "Tamanho",
-#'      xlab = "Peça", xaxt = "n")
+#'      xlab = "Peça",
+#'      xaxt = "n")
 #' axis(1, 1:20)
 #' abline(mean(EpprechtTb5.4$tam), 0, lty=2)
-#' 
-#'                   
+#'
+#' qqnorm(EpprechtTb5.4$tam)
+#'
 NULL
 
 #' @name EpprechtTb5.5
-#' @title Medidas de dureza de pe\enc{ç}{c}as de uma linha de produ\enc{çã}{ca}o
-#' @description Dados referentes a medidas de dureza de peças, para avaliar a 
-#'     capacidade de medição de um durômetro. São 10 peças medidas três vezes
-#'     cada por um mesmo operador.
-#' 
-#' 
-#' @format Um \code{data.frame} com 30 observações e 2 variáveis, 
-#'     em que
-#' 
+#' @title Medidas de dureza de pe\enc{ç}{c}as de uma linha de
+#'     produ\enc{çã}{ca}o
+#' @description Dados referentes a medidas de dureza de peças, para
+#'     avaliar a capacidade de medição de um durômetro. São 10 peças
+#'     medidas três vezes cada por um mesmo operador.
+#' @format Um \code{data.frame} com 30 observações e 2 variáveis, em que
+#'
 #' \describe{
 #'
 #' \item{\code{pc}}{Identificação da peça.}
-#' 
+#'
 #' \item{\code{dur}}{Dureza da peça.}
-#' 
-#' }
 #'
-#' @keywords CEQ ASM
-#' @source Costa, A. F. B., Epprecht, E. K., Carpinetti, L. (2010).
-#'      Controle Estatístico de Qualidade (2nd ed.). São Paulo - SP:
-#'      Editora Atlas. (pg 155).
-#' 
+#' }
+#' @keywords CEQ
+#' @source COSTA et al. (2010), pág. 155.
 #' @examples
 #'
 #' data(EpprechtTb5.5)
-#' 
-#' plot(tam~pc, data=EpprechtTb5.5,
-#'      ylab="Tamanho",
-#'      xlab="Peça", xaxt="n")
+#' str(EpprechtTb5.5)
+#'
+#' plot(tam~pc, data = EpprechtTb5.5,
+#'      ylab = "Tamanho",
+#'      xlab = "Peça", xaxt = "n")
 #' axis(1, 1:10)
-#' abline(mean(EpprechtTb5.5$tam), 0, lty=2)
-#'  
-#'                   
+#' abline(mean(EpprechtTb5.5$tam), 0, lty = 2)
+#'
 NULL
 
 #' @name EpprechtTb5.6
 #' @title Avalia\enc{çã}{ca}o das leituras de um micr\enc{ô}{o}metro
-#' @description Dados referentes às leituras de um micrômetro usado para 
-#'     medir peças com dimensão nominal de 20 mm, utilizando um bloco padrão de 
-#'     dimensão 20 mm como referência. O bloco foi
-#'     medido dez vezes por um mesmo operador.
-#' 
-#' 
-#' @format Um \code{data.frame} com 10 observações e 2 variáveis, 
-#'     em que
-#' 
+#' @description Dados referentes às leituras de um micrômetro usado para
+#'     medir peças com dimensão nominal de 20 mm, utilizando um bloco
+#'     padrão de dimensão 20 mm como referência. O bloco foi medido dez
+#'     vezes por um mesmo operador.
+#' @format Um \code{data.frame} com 10 observações e 2 variáveis, em que
+#'
 #' \describe{
 #'
 #' \item{\code{med}}{Identificador de medição da peça.}
-#' 
+#'
 #' \item{\code{leit}}{Leitura do micrômetro (mm).}
-#' 
-#' }
 #'
-#' @keywords CEQ ASM
-#' @source Costa, A. F. B., Epprecht, E. K., Carpinetti, L. (2010).
-#'      Controle Estatístico de Qualidade (2nd ed.). São Paulo - SP:
-#'      Editora Atlas. (pg 156).
-#' 
+#' }
+#' @keywords CEQ
+#' @source COSTA et al. (2010), pág. 156.
 #' @examples
 #'
 #' data(EpprechtTb5.6)
-#'  
-#' boxplot(EpprechtTb5.6$leit, 
-#'         col="#F0FFFF",
-#'         ylab="Leitura",
-#'         main="Leituras do micrômetro")
-#' grid(nx=NA, ny=NULL, col='grey')
-#'                   
+#' str(EpprechtTb5.6)
+#'
+#' boxplot(EpprechtTb5.6$leit,
+#'         col = "#F0FFFF",
+#'         ylab = "Leitura")
+#' grid(nx = NA, ny = NULL, col = "grey")
+#' rug(EpprechtTb5.6$leit, side = 2)
+#'
 NULL
 
 #' @name EpprechtTb5.9
 #' @title Medidas de pe\enc{ç}{c}as de uma linha de produ\enc{çã}{ca}o
-#' @description Após a aquisição de um equipamento de medição mais 
-#'     sofisticado que o anterior, foi realizado um estudo de 
-#'     repetitividade e reprodutividade do processo de medida com o 
-#'     novo equipamento. Cada peça foi medida três vezes por cada um de
-#'     dois operadores.
-#' 
-#' 
-#' @format Um \code{data.frame} com 60 observações e 3 variáveis, 
-#'     em que
-#' 
+#' @description Após a aquisição de um equipamento de medição mais
+#'     sofisticado que o anterior, foi realizado um estudo de
+#'     repetitividade e reprodutividade do processo de medida com o novo
+#'     equipamento. Cada peça foi medida três vezes por cada um de dois
+#'     operadores.
+#' @format Um \code{data.frame} com 60 observações e 3 variáveis, em que
+#'
 #' \describe{
 #'
 #' \item{\code{pc}}{Identificação da peça.}
-#' 
+#'
 #' \item{\code{op}}{Fator que indica o operador que realizou a medição
 #'     da peça (1 = primeiro operador, 2 = segundo operador).}
-#'  
+#'
 #' \item{\code{tam}}{Tamanho da peça.}
-#' 
-#' }
 #'
-#' @keywords CEQ ASM
-#' @source Costa, A. F. B., Epprecht, E. K., Carpinetti, L. (2010).
-#'      Controle Estatístico de Qualidade (2nd ed.). São Paulo - SP:
-#'      Editora Atlas. (pg 157).
-#' 
+#' }
+#' @keywords CEQ
+#' @source COSTA et al. (2010), pág. 157.
 #' @examples
 #'
 #' data(EpprechtTb5.9)
-#' 
+#' str(EpprechtTb5.9)
+#'
 #' EpprechtTb5.9$op <- as.factor(EpprechtTb5.9$op)
-#' 
-#' boxplot(tam~op, data=EpprechtTb5.9,
-#'         xlab="Operador", 
-#'         ylab="Tamanho", 
-#'         main="Boxplot dos tamanhos das peças medidas pelos dois operadores",
-#'         col=c("#F0FFFF","#FFDAB9"))
-#' grid(nx=NA, ny=NULL, col="grey")
-#'                   
+#'
+#' boxplot(tam ~ op, data = EpprechtTb5.9,
+#'         xlab = "Operador",
+#'         ylab = "Tamanho",
+#'         col = c("#F0FFFF", "#FFDAB9"))
+#' grid(nx = NA, ny = NULL, col = "grey")
+#'
 NULL
 
 #' @name EpprechtTb6.10
 #' @title Concentra\enc{çã}{ca}o de um Processo Qu\enc{í}{i}mico
 #' @description Dados referentes à concentração de um processo químico
 #'     registrada a cada 3 minutos.
-#' 
-#' 
-#' @format Um \code{data.frame} com 100 observações e 1 variável, 
-#'     em que
-#' 
+#' @format Um \code{data.frame} com 100 observações e 1 variável, em que
+#'
 #' \describe{
-#' 
+#'
 #' \item{\code{conc}}{Concentração registrada na amostra.}
-#'  
-#' }
 #'
-#' @keywords CEQ 
-#' @source Costa, A. F. B., Epprecht, E. K., Carpinetti, L. (2010).
-#'      Controle Estatístico de Qualidade (2nd ed.). São Paulo - SP:
-#'      Editora Atlas. (pg 182).
-#' 
+#' }
+#' @keywords CEQ
+#' @source COSTA et al. (2010), pág. 182.
 #' @examples
 #'
 #' data(EpprechtTb6.10)
-#' 
+#' str(EpprechtTb6.10)
+#'
 #' library(qcc)
-#' 
-#' qcc(EpprechtTb6.10$conc, type="xbar.one", nsigmas=3,
-#'     xlab=" ", ylab="Concentração", title=" ")
-#' 
-#'                   
+#'
+#' qcc(EpprechtTb6.10$conc, type = "xbar.one", nsigmas = 3,
+#'     xlab = "", ylab = "Concentração", title = "")
+#'
 NULL
 
 #' @name EpprechtTb6.12
 #' @title Peso de um Produto
-#' @description Trinta observações registradas referentes aos pesos de um 
-#'     produto.
-#' 
-#' 
-#' @format Um \code{data.frame} com 30 observações e 1 variável, 
-#'     em que
-#' 
+#' @description Trinta observações registradas referentes aos pesos de
+#'     um produto.
+#' @format Um \code{data.frame} com 30 observações e 1 variável, em que
+#'
 #' \describe{
-#' 
+#'
 #' \item{\code{peso}}{Peso do produto.}
-#'     
-#' }
 #'
-#' @keywords CEQ 
-#' @source Costa, A. F. B., Epprecht, E. K., Carpinetti, L. (2010).
-#'      Controle Estatístico de Qualidade (2nd ed.). São Paulo - SP:
-#'      Editora Atlas. (pg 184).
-#' 
+#' }
+#' @keywords CEQ
+#' @source COSTA et al. (2010), pág. 184.
 #' @examples
 #'
 #' data(EpprechtTb6.12)
-#' 
+#' str(EpprechtTb6.12)
+#'
 #' library(qcc)
-#' 
-#' qcc(EpprechtTb6.12$peso, type="xbar.one", nsigmas=3,
-#'     xlab=" ", ylab="Peso", title=" ")
-#' 
-#'                   
+#'
+#' qcc(EpprechtTb6.12$peso, type = "xbar.one", nsigmas = 3,
+#'     xlab = "", ylab = "Peso", title = "")
+#'
+#'
 NULL
 
 #' @name EpprechtTb6.4
 #' @title Temperatura do Banho Qu\enc{í}{i}mico
-#' @description A cada 30 minutos registram-se três temperaturas do 
-#'     banho, espaçadas de 3 minutos. Exemplo: na primeira amostra 
-#'     efetua-se uma medida às 8h00, outra às 8h03 e outra às 8h06. Na 
-#'     segunda amostra são registradas as temperaturas nos horários 
+#' @description A cada 30 minutos registram-se três temperaturas do
+#'     banho, espaçadas de 3 minutos. Exemplo: na primeira amostra
+#'     efetua-se uma medida às 8h00, outra às 8h03 e outra às 8h06. Na
+#'     segunda amostra são registradas as temperaturas nos horários
 #'     8h30, 8h33 e 8h36, e assim por diante.
-#' 
-#' @format Um \code{data.frame} com 60 observações e 2 variáveis, 
-#'     em que
-#' 
+#' @format Um \code{data.frame} com 60 observações e 2 variáveis, em que
+#'
 #' \describe{
 #'
 #' \item{\code{amostra}}{Identificação da amostra.}
-#'  
+#'
 #' \item{\code{temp}}{Temperaturas registradas.}
-#'  
-#' }
 #'
-#' @keywords CEQ 
-#' @source Costa, A. F. B., Epprecht, E. K., Carpinetti, L. (2010).
-#'      Controle Estatístico de Qualidade (2nd ed.). São Paulo - SP:
-#'      Editora Atlas. (pg 167).
-#' 
+#' }
+#' @keywords CEQ
+#' @source COSTA et al. (2010), pág. 167.
 #' @examples
 #'
 #' data(EpprechtTb6.4)
-#' 
+#' str(EpprechtTb6.4)
+#'
 #' library(qcc)
 #'
 #' obj <- qcc.groups(EpprechtTb6.4$temp, EpprechtTb6.4$amostra)
-#' qcc(obj, type="xbar", nsigmas=3, 
-#'    xlab="Amostra", ylab="Temperatura", title=" ")
-#'                   
+#' qcc(obj, type = "xbar", nsigmas = 3,
+#'     xlab = "Amostra", ylab = "Temperatura", title = "")
+#'
 NULL
 
 #' @name EpprechtTb6.9
 #' @title Volume de Refrigerante em Garrafas Pl\enc{á}{a}sticas
-#' @description Os dados referem-se aos volumes de refrigerante em 
-#'     20 amostras, cada uma delas composta por 3 garrafas. 
-#' 
-#' @format Um \code{data.frame} com 60 observações e 2 variáveis, 
-#'     em que
-#' 
+#' @description Os dados referem-se aos volumes de refrigerante emq 20
+#'     amostras, cada uma delas composta por 3 garrafas.
+#' @format Um \code{data.frame} com 60 observações e 2 variáveis, em que
+#'
 #' \describe{
 #'
 #' \item{\code{amostra}}{Identificação da amostra.}
-#'  
+#'
 #' \item{\code{vol}}{Volumes registrados.}
-#' 
-#' }
 #'
-#' @keywords CEQ 
-#' @source Costa, A. F. B., Epprecht, E. K., Carpinetti, L. (2010).
-#'      Controle Estatístico de Qualidade (2nd ed.). São Paulo - SP:
-#'      Editora Atlas. (pg 180).
-#' 
+#' }
+#' @keywords CEQ
+#' @source COSTA et al. (2010), pág. 180.
 #' @examples
 #'
 #' data(EpprechtTb6.9)
-#' 
+#' str(EpprechtTb6.9)
+#'
 #' library(qcc)
-#' 
+#'
 #' obj <- qcc.groups(EpprechtTb6.9$vol, EpprechtTb6.9$amostra)
-#' qcc(obj, type="xbar", nsigmas=3,
-#'     xlab="Amostra", ylab="Volume", title=" ")
-#' 
-#'                   
+#' qcc(obj, type = "xbar", nsigmas = 3,
+#'     xlab = "Amostra", ylab = "Volume", title = "")
+#'
 NULL
 
 #' @name EpprechtTb7.5
 #' @title Qualidade de um Processo
-#' @description Uma característica de qualidade de um processo  
+#' @description Uma característica de qualidade de um processo
 #'     monitorada por meio de quinze observações.
-#' 
-#' 
-#' @format Um \code{data.frame} com 15 observações e 1 variável, 
-#'     em que
-#' 
+#' @format Um \code{data.frame} com 15 observações e 1 variável, em que
+#'
 #' \describe{
-#' 
+#'
 #' \item{\code{x}}{Observações registradas do processo.}
-#' 
-#' }
 #'
+#' }
 #' @keywords CEQ EWMA
-#' @source Costa, A. F. B., Epprecht, E. K., Carpinetti, L. (2010).
-#'      Controle Estatístico de Qualidade (2nd ed.). São Paulo - SP:
-#'      Editora Atlas. (pg 198).
-#' 
+#' @source COSTA et al. (2010), pág. 198.
 #' @examples
 #'
 #' data(EpprechtTb7.5)
-#' 
+#' str(EpprechtTb7.5)
+#'
 #' library(qcc)
-#' 
-#' 
-#' qcc(EpprechtTb7.5, type="xbar.one", nsigmas=3,
-#'      xblab=" ", ylab="Observações", title=" ")
+#'
+#' qcc(EpprechtTb7.5, type = "xbar.one", nsigmas = 3,
+#'      xblab = "", ylab = "Observações", title = "")
+#'
 #' ewma(EpprechtTb7.5, nsigmas = 3,plot = TRUE,
-#'      xblab=" ", ylab="Observações", title=" ")
-#' 
-#'                   
+#'      xblab = "", ylab = "Observações", title = "")
+#'
 NULL
 
 #' @name EpprechtTb8.12
-#' @title Controle de qualidade para a fra\enc{çã}{ca}o de n\enc{ã}{a}o conformes. 
-#' @description Dados de 20 amostras, representando o número 
-#'     de peças não-conformes em amostras de tamanho 100.
-#' 
-#' @format Um \code{data.frame} com 20 observações e 1 variável, 
-#'     em que
-#' 
-#' \describe{ 
-#' 
+#' @title Controle de Qualidade para a Fra\enc{çã}{ca}o de N\enc{ã}{a}o
+#'     Conformes
+#' @description Dados de 20 amostras, representando o número de peças
+#'     não-conformes em amostras de tamanho 100.
+#' @format Um \code{data.frame} com 20 observações e 1 variável, em que
+#'
+#' \describe{
+#'
 #' \item{\code{nconf}}{Número de peças não conformes nas amostras.}
-#' 
-#' }
 #'
+#' }
 #' @keywords CEQ
-#' 
-#' @source Costa, A. F. B., Epprecht, E. K., Carpinetti, L. (2010).
-#'      Controle Estatístico de Qualidade (2nd ed.). São Paulo - SP:
-#'      Editora Atlas. (pg 227).
-#' 
+#' @source COSTA et al. (2010), pág. 227.
 #' @examples
 #'
-#' data(EpprechtTb8.12) 
-#' 
+#' data(EpprechtTb8.12)
+#' str(EpprechtTb8.12)
+#'
 #' library(qcc)
-#' 
-#' qcc(EpprechtTb8.12, type="p", size=100,
-#'     xlab="Amostra", ylab="Proporção de itens não conformes", title=" ")
-#'                   
+#'
+#' qcc(EpprechtTb8.12, type = "p", size = 100,
+#'     xlab = "Amostra",
+#'     ylab = "Proporção de itens não conformes",
+#'     title = "")
+#'
 NULL
 
 #' @name EpprechtTb8.13
-#' @title Controle de qualidade para o n\enc{ú}{u}mero de pedidos de compra com erro
-#' @description Uma grande companhia faz o controle estatístico de
-#'     seus processos administrativos. Para isso, são coletados
-#'     semanalmente o número de pedidos de compra e o número de pedidos 
-#'     de compra com erros.
-#' 
-#' @format Um \code{data.frame} com 15 observações e 2 variáveis, 
-#'     em que
-#' 
+#' @title Controle de Qualidade para o N\enc{ú}{u}mero de Pedidos de
+#'     Compra com Erro
+#' @description Uma grande companhia faz o controle estatístico de seus
+#'     processos administrativos. Para isso, são coletados semanalmente
+#'     o número de pedidos de compra e o número de pedidos de compra com
+#'     erros.
+#' @format Um \code{data.frame} com 15 observações e 2 variáveis, em que
+#'
 #' \describe{
-#' 
+#'
 #' \item{\code{pc}}{Número de pedidos de compra.}
-#' 
+#'
 #' \item{\code{pce}}{Número de pedidos de compra com erros.}
-#' 
-#' }
 #'
+#' }
 #' @keywords CEQ
-#' 
-#' @source Costa, A. F. B., Epprecht, E. K., Carpinetti, L. (2010).
-#'      Controle Estatístico de Qualidade (2nd ed.). São Paulo - SP:
-#'      Editora Atlas. (pg 229).
-#' 
+#' @source COSTA et al. (2010), pág. 229.
 #' @examples
 #'
-#' data(EpprechtTb8.13) 
-#' 
+#' data(EpprechtTb8.13)
+#' str(EpprechtTb8.13)
+#'
 #' library(qcc)
-#' 
-#' qcc(EpprechtTb8.13$pce, type="p", sizes=EpprechtTb8.13$pc,
-#'     xlab="Semana", ylab="Proporção de pedidos com erros", title=" ")
-#' 
-#'                   
+#'
+#' qcc(EpprechtTb8.13$pce, type = "p", sizes = EpprechtTb8.13$pc,
+#'     xlab = "Semana",
+#'     ylab = "Proporção de pedidos com erros",
+#'     title = "")
+#'
 NULL
 
 #' @name EpprechtTb8.14
-#' @title Controle de Qualidade para o N\enc{ú}{u}mero de Defeitos na Montagem 
-#' de Placas de Circuito
-#' 
-#' @description Para monitorar um processo de montagem de placas de 
-#'     circuitos foram registrados os números de componentes montados 
-#'     erradamente a cada 5 placas (cada amostra consiste de 5 placas). 
-#' 
-#' @format Um \code{data.frame} com 20 observações e 1 variável, 
-#'     em que
-#' 
+#' @title Controle de Qualidade para o N\enc{ú}{u}mero de Defeitos na
+#'     Montagem de Placas de Circuito
+#' @description Para monitorar um processo de montagem de placas de
+#'     circuitos foram registrados os números de componentes montados
+#'     erradamente a cada 5 placas (cada amostra consiste de 5 placas).
+#' @format Um \code{data.frame} com 20 observações e 1 variável, em que
+#'
 #' \describe{
-#' 
-#' \item{\code{nconf}}{Número de não-conformidades encontradas na amostra.}
-#' 
-#' }
 #'
+#' \item{\code{nconf}}{Número de não-conformidades encontradas na
+#'     amostra.}
+#'
+#' }
 #' @keywords CEQ
-#' 
-#' @source Costa, A. F. B., Epprecht, E. K., Carpinetti, L. (2010).
-#'      Controle Estatístico de Qualidade (2nd ed.). São Paulo - SP:
-#'      Editora Atlas. (pg 230).
-#' 
+#' @source COSTA et al. (2010), pág. 230.
 #' @examples
 #'
-#' data(EpprechtTb8.14) 
-#' 
+#' data(EpprechtTb8.14)
+#' str(EpprechtTb8.14)
+#'
 #' library(qcc)
-#' 
-#' qcc(EpprechtTb8.14, type="c", size=5,
-#'     xblab="Amostras", ylab="Número de itens não conformes", title=" ")
-#'                   
+#'
+#' qcc(EpprechtTb8.14, type = "c", size = 5,
+#'     xlab = "Amostras",
+#'     ylab = "Número de itens não conformes",
+#'     title = "")
+#'
 NULL
 
 #' @name EpprechtTb8.15
-#' 
-#' @title Controle de Qualidade para o N\enc{ú}{u}mero de Defeitos em um Processo 
-#' de Produ\enc{çã}{ca}o de Tecidos
-#' 
+#' @title Controle de Qualidade para o N\enc{ú}{u}mero de Defeitos em um
+#'     Processo de Produ\enc{çã}{ca}o de Tecidos
 #' @description Para monitorar um processo de produção de tecidos
-#'     estampados foram examinados os 10 primeiros rolos, com 200m de 
-#'     tecido cada. Foi registrado o número de defeitos encontrados em 
-#'     cada rolo. 
-#' 
-#' @format Um \code{data.frame} com 10 observações e 1 variável, 
-#'     em que
-#' 
+#'     estampados foram examinados os 10 primeiros rolos, com 200m de
+#'     tecido cada. Foi registrado o número de defeitos encontrados em
+#'     cada rolo.
+#' @format Um \code{data.frame} com 10 observações e 1 variável, em que
+#'
 #' \describe{
-#' 
+#'
 #' \item{\code{def}}{Defeitos encontrados no rolo.}
-#' 
-#' }
 #'
+#' }
 #' @keywords CEQ
-#' 
-#' @source Costa, A. F. B., Epprecht, E. K., Carpinetti, L. (2010).
-#'      Controle Estatístico de Qualidade (2nd ed.). São Paulo - SP:
-#'      Editora Atlas. (pg 231).
-#' 
+#' @source COSTA et al. (2010), pág. 231.
 #' @examples
 #'
-#' data(EpprechtTb8.15) 
-#' 
+#' data(EpprechtTb8.15)
+#' str(EpprechtTb8.15)
+#'
 #' library(qcc)
-#' 
-#' qcc(EpprechtTb8.15, type="c", 
-#'     xlab="Amostra", ylab="Número de defeitos", title=" ")
-#'                   
+#'
+#' qcc(EpprechtTb8.15, type = "c",
+#'     xlab = "Amostra",
+#'     ylab = "Número de defeitos",
+#'     title = "")
+#'
 NULL
 
 #' @name EpprechtTb8.16
-#' @title Controle de qualidade na produ\enc{çã}{ca}o de cabos el\enc{é}{e}tricos
-#' @description Dados referentes ao monitoramento do processo de produção
-#'     de cabos elétricos. Foi registrada a quantidade de defeitos
-#'     encontrados em amostras de determinada quantidade de metros de cabo.
-#' 
-#' @format Um \code{data.frame} com 10 observações e 2 variáveis, 
-#'     em que
-#' 
+#' @title Controle de Qualidade na Produ\enc{çã}{ca}o de Cabos
+#'     El\enc{é}{e}tricos
+#' @description Dados referentes ao monitoramento do processo de
+#'     produção de cabos elétricos. Foi registrada a quantidade de
+#'     defeitos encontrados em amostras de determinada quantidade de
+#'     metros de cabo.
+#' @format Um \code{data.frame} com 10 observações e 2 variáveis, em que
+#'
 #' \describe{
-#' 
-#' \item{\code{met}}{Quantidade de cabo avaliado em cada amostra (em metros).}
-#' 
+#'
+#' \item{\code{met}}{Quantidade de cabo avaliado em cada amostra (em
+#'     metros).}
+#'
 #' \item{\code{def}}{Número de defeitos encontrados.}
-#' 
-#' }
 #'
+#' }
 #' @keywords CEQ
-#' 
-#' @source Costa, A. F. B., Epprecht, E. K., Carpinetti, L. (2010).
-#'      Controle Estatístico de Qualidade (2nd ed.). São Paulo - SP:
-#'      Editora Atlas. (pg 233).
-#' 
+#' @source COSTA et al. (2010), pág. 233.
 #' @examples
 #'
-#' data(EpprechtTb8.16) 
-#' 
+#' data(EpprechtTb8.16)
+#' str(EpprechtTb8.16)
+#'
 #' library(qcc)
-#' 
-#' qcc(EpprechtTb8.16$def, type="u", sizes=EpprechtTb8.16$met,
-#'     xlab="Amostra", ylab="Quantidade de defeitos", title=" ")  
-#'                    
+#'
+#' qcc(EpprechtTb8.16$def, type = "u", sizes = EpprechtTb8.16$met,
+#'     xlab = "Amostra", ylab = "Quantidade de defeitos", title = " ")
+#'
 NULL
 
 #' @name EpprechtTb8.2
-#' @title N\enc{ú}{u}mero de Clientes Insatisfeitos com a Comida 
-#' @description Dados referentes ao número de clientes insatisfeitos
-#'     com a comida de um restaurante. Esses dados foram obtidos após o
+#' @title N\enc{ú}{u}mero de Clientes Insatisfeitos com a Comida
+#' @description Dados referentes ao número de clientes insatisfeitos com
+#'     a comida de um restaurante. Esses dados foram obtidos após o
 #'     diagnóstico e a eliminação de causas especiais. A cada dia 200
 #'     clientes foram consultados, durante 30 dias.
-#' 
-#' @format Um \code{data.frame} com 30 observações e 1 variável, 
-#'     em que
-#' 
+#' @format Um \code{data.frame} com 30 observações e 1 variável, em que
+#'
 #' \describe{
-#' 
+#'
 #' \item{\code{cinsat}}{Número de clientes insatisfeitos.}
-#' 
-#' }
 #'
+#' }
 #' @keywords CEQ
-#' 
-#' @source Costa, A. F. B., Epprecht, E. K., Carpinetti, L. (2010).
-#'      Controle Estatístico de Qualidade (2nd ed.). São Paulo - SP:
-#'      Editora Atlas. (pg 204).
-#' 
+#' @source COSTA et al. (2010), pág. 204.
 #' @examples
 #'
-#' data(EpprechtTb8.2) 
-#' 
+#' data(EpprechtTb8.2)
+#' str(EpprechtTb8.2)
+#'
 #' library(qcc)
-#' 
-#' qcc(EpprechtTb8.2, type="p", size=200,
-#'     xlab="Amostra", ylab="Proporção de insatisfeitos", title=" ")
-#'                   
+#'
+#' qcc(EpprechtTb8.2, type = "p", size = 200,
+#'     xlab = "Amostra",
+#'     ylab = "Proporção de insatisfeitos",
+#'     title = "")
+#'
 NULL
 
 #' @name EpprechtTb8.8
-#' @title Controle de qualidade para o n\enc{ú}{u}mero de n\enc{ã}{a}o-conformidades em geladeiras
-#' @description Dados referentes aos números de não-conformidades  
-#'     em 40 amostras de cinco geladeiras. Foi suposto que o processo
-#'     operava sob controle nesse período. 
-#' 
-#' @format Um \code{data.frame} com 40 observações e 1 variável, 
-#'     em que
-#' 
+#' @title Controle de Qualidade para o N\enc{ú}{u}mero de
+#'     N\enc{ã}{a}o-conformidades em Geladeiras
+#' @description Dados referentes aos números de não-conformidades em 40
+#'     amostras de cinco geladeiras. Foi suposto que o processo operava
+#'     sob controle nesse período.
+#' @format Um \code{data.frame} com 40 observações e 1 variável, em que
+#'
 #' \describe{
-#' 
-#' \item{\code{nconf}}{Número de não-conformidades.} 
-#' 
-#' }
 #'
+#' \item{\code{nconf}}{Número de não-conformidades.}
+#'
+#' }
 #' @keywords CEQ
-#' 
-#' @source Costa, A. F. B., Epprecht, E. K., Carpinetti, L. (2010).
-#'      Controle Estatístico de Qualidade (2nd ed.). São Paulo - SP:
-#'      Editora Atlas. (pg 222).
-#' 
+#' @source COSTA et al. (2010), pág. 222.
 #' @examples
 #'
-#' data(EpprechtTb8.8) 
-#' 
+#' data(EpprechtTb8.8)
+#' str(EpprechtTb8.8)
+#'
 #' library(qcc)
-#' 
-#' qcc(EpprechtTb8.8, type="c", size=5,
-#'     xlab="Amostra", ylab="Número de não-conformidades", title=" ")
-#'                   
+#'
+#' qcc(EpprechtTb8.8, type = "c", size = 5,
+#'     xlab = "Amostra",
+#'     ylab = "Número de não-conformidades",
+#'     title = "")
+#'
 NULL
-
diff --git a/R/Faria.R b/R/Faria.R
index e20a63dc0b9fc48ed5ca244dd59953cdf9bf8e6c..69e873f84157b670bae262a5a7be7a95654ced82 100644
--- a/R/Faria.R
+++ b/R/Faria.R
@@ -32,7 +32,7 @@
 NULL
 
 #' @name FariaEg3.2.4
-#' @title Produ\enc{çã}{ca}o de Am\enc{ê}{e}ndoas de Clones de Cacau
+#' @title Produção de Amêndoas de Clones de Cacau
 #' @description Experimento em delineamento inteiramente casualizado que
 #'     estudou a produção de amendoas de clones de cacau.
 #' @format Um \code{data.frame} com 24 observações e 3 variáveis, em que
diff --git a/R/Ferreira.R b/R/Ferreira.R
index 13cf31c95dc259a7bfc81ca33f6967cb3d3671bd..5ab4d11a0658e5ffd00aea1191e1ca39b89c1f1d 100644
--- a/R/Ferreira.R
+++ b/R/Ferreira.R
@@ -17,11 +17,11 @@
 #'
 #' }
 #' @keywords AnaDisc
-#' @source D. F. (2011). Estatística Multivariada (2nd ed.). Lavras, MG:
-#'     Editora UFLA. (Exemplo 13.2, pág. 592-593)
+#' @source FERREIRA (2011), Exemplo 13.2, pág. 592-593.
 #' @examples
 #'
 #' data(FerreiraEg13.2)
+#' str(FerreiraEg13.2)
 #' summary(FerreiraEg13.2)
 #'
 #' library(lattice)
@@ -46,7 +46,8 @@
 NULL
 
 #' @name FerreiraEg13.3
-#' @title Classifica\enc{çã}{ca}o de Solos na Regi\enc{ã}{a}o Amaz\enc{ô}{o}nica
+#' @title Classifica\enc{çã}{ca}o de Solos na Regi\enc{ã}{a}o
+#'     Amaz\enc{ô}{o}nica
 #' @description Dados amostrais relativos ao teor de zinco (\emph{Zn}) e
 #'     ferro \emph{Fe}, em ppm, obtidos em solos de pastagem e de
 #'     floresta na região amazônica.
@@ -64,8 +65,7 @@ NULL
 #'
 #' }
 #' @keywords AnaDisc
-#' @source D. F. (2011). Estatística Multivariada (2nd ed.). Lavras, MG:
-#'     Editora UFLA. (Exemplo 13.3, pág. 596-597)
+#' @source FERREIRA (2011) (Exemplo 13.3, pág. 596-597)
 #' @examples
 #'
 #' data(FerreiraEg13.3)
@@ -99,9 +99,8 @@ NULL
 #' \item{\code{linf}}{Contagem de linfócitos.}
 #'
 #' }
-#' @keywords TODO
-#' @source Ferreira, D. F. (2011). Estatística Multivariada (2nd
-#'     ed.). Lavras, MG: Editora UFLA. (Exemplo 3.4 pág. 136)
+#' @keywords AASM
+#' @source FERREIRA (2011), Exemplo 3.4, pág. 136.
 #'
 #' Royston, J. P. (1983). Some techniques for assessing multivariate
 #'     normality based on Shapiro-Wilk. London, Applied Statistics -
@@ -136,9 +135,8 @@ NULL
 #'     solo.}
 #'
 #' }
-#' @keywords TODO
-#' @source Ferreira, D. F. (2011). Estatística Multivariada (2nd
-#'     ed.). Lavras, MG: Editora UFLA. (Exemplo 5.1 pág. 193-194)
+#' @keywords AASM
+#' @source FERREIRA (2011), Exemplo 5.1 pág. 193-194.
 #' @examples
 #'
 #' data(FerreiraEg5.1)
@@ -177,7 +175,8 @@ NULL
 NULL
 
 #' @name FerreiraEg6.3
-#' @title Avalia\enc{çã}{ca}o dos Solos de Pastagem e Capoeira Nova da Amaz\enc{ô}{o}nia
+#' @title Avalia\enc{çã}{ca}o dos Solos de Pastagem e Capoeira Nova da
+#'     Amaz\enc{ô}{o}nia
 #' @description Os dados referem-se a avaliação de parcelas de solo da
 #'     Amazônia. Os atributos quantidade de cálcio, magnésio e saturação
 #'     de bases foram avaliados em parcelas de solo sob os sistemas de
@@ -198,15 +197,12 @@ NULL
 #'     solo.}
 #'
 #' }
-#' @keywords TODO
-#' @source Ferreira, D. F. (2011). Estatística Multivariada (2nd
-#'     ed.). Lavras, MG: Editora UFLA. (Exemplo 6.3 pág. 240-241 e
+#' @keywords AASM manova
+#' @source FERREIRA (2011), (Exemplo 6.3 pág. 240-241 e
 #'     exemplo 6.6 pág. 268-269)
-#'
 #' @examples
 #'
 #' data(FerreiraEg6.3)
-#'
 #' str(FerreiraEg6.3)
 #'
 #' library(lattice)
@@ -222,7 +218,8 @@ NULL
 NULL
 
 #' @name FerreiraEg7.1
-#' @title Avalia\enc{çã}{ca}o de Exerc\enc{í}{i}cios F\enc{í}{i}sicos sobre o Estresse Oxidativo
+#' @title Avalia\enc{çã}{ca}o de Exerc\enc{í}{i}cios F\enc{í}{i}sicos
+#'     sobre o Estresse Oxidativo
 #' @description Dados observados de um estudo realizado no laboratório
 #'     de Bioquímica Clínica do Departamento de Análises Clínicas e
 #'     Toxicológicas da Universidade Federal de Alfenas (UNIFAL), no
@@ -247,12 +244,12 @@ NULL
 #'     \eqn{nmol/dl} (nanomol por decilitro).}
 #'
 #' }
-#' @keywords TODO
-#' @source Ferreira, D. F. (2011). Estatística Multivariada (2nd
-#'     ed.). Lavras, MG: Editora UFLA. (Exemplo 7.1 pág. 286)
-#'
+#' @keywords manova
+#' @source FERREIRA (2011), (Exemplo 7.1 pág. 286)
 #' @examples
+#'
 #' data(FerreiraEg7.1)
+#' str(FerreiraEg7.1)
 #'
 #' aggregate(peroxido ~ amostra, data = FerreiraEg7.1, summary)
 #' aggregate(proteina ~ amostra, data = FerreiraEg7.1, summary)
@@ -280,9 +277,9 @@ NULL
 #' @name FerreiraEg7.4
 #' @title Avalia\enc{çã}{ca}o de Duas Variedades de Milho
 #' @description Com o interesse de testar a hipótese de igualdade entre
-#'     duas variedades de milho, foram mensuradas as variáveis aleatórias
-#'     produtividade e altura das plantas em cada uma das variedades.
-#'
+#'     duas variedades de milho, foram mensuradas as variáveis
+#'     aleatórias produtividade e altura das plantas em cada uma das
+#'     variedades.
 #' @format Um \code{data.frame} com 11 observações e 3 variáveis.
 #'
 #' \describe{
@@ -296,17 +293,18 @@ NULL
 #' \item{\code{altura}}{Altura média das plantas em metros.}
 #'
 #' }
-#' @keywords TODO
-#' @source Ferreira, D. F. (2011). Estatística Multivariada (2nd
-#'     ed.). Lavras, MG: Editora UFLA. (Exemplo 7.4 pág. 302)
-#'
+#' @keywords manova
+#' @source FERREIRA (2011), Exemplo 7.4 pág. 302.
 #' @examples
+#'
 #' data(FerreiraEg7.4)
+#' str(FerreiraEg7.4)
 #'
 #' aggregate(prod ~ varie, data = FerreiraEg7.4, summary)
 #' aggregate(altura ~ varie, data = FerreiraEg7.4, summary)
 #' by(FerreiraEg7.4[2:3], FerreiraEg7.4[1], cov)
 #'
+#' layout(1)
 #' with(FerreiraEg7.4, {
 #'      par(mar = c(4, 5, 4, 5))
 #'      plot.default(y = prod, xlab = "", ylab = "",
@@ -334,7 +332,8 @@ NULL
 NULL
 
 #' @name FerreiraEg8.1
-#' @title N\enc{ú}{u}mero de Gr\enc{ã}{a}os e Produtividade em Cultivares de Feij\enc{ã}{a}o
+#' @title N\enc{ú}{u}mero de Gr\enc{ã}{a}os e Produtividade em
+#'     Cultivares de Feij\enc{ã}{a}o
 #' @description Dados obtidos de um experimento inteiramente casualizado
 #'     com cinco repetições, realizado no período de seca, onde
 #'     avaliou-se o efeito de diferentes cultivares na produtividade do
@@ -356,8 +355,7 @@ NULL
 #'
 #' }
 #' @keywords manova
-#' @source Ferreira, D. F. (2011). Estatística Multivariada (2nd
-#'     ed.). Lavras, MG: Editora UFLA. (Exemplo 8.1, pág. 339)
+#' @source FERREIRA (2011), Exemplo 8.1, pág. 339.
 #' @examples
 #'
 #' data(FerreiraEg8.1)
@@ -403,13 +401,12 @@ NULL
 #'
 #' }
 #'
-#' O sistema de uso da terra é indicado conforme nomenclatura das linhas
-#'     do \code{data.frame}, onde (A) representa uso da terra para
-#'     agricultura, (AG) para agrofloresta, (F) para floresta, (CV) para
-#'     capoeira velha, (CN) para capoeira nova e (P) para pastagem.
-#' @keywords KM
-#' @source Ferreira, D. F. (2011). Estatística Multivariada (2nd
-#'     ed.). Lavras, MG: Editora UFLA. (Exemplo 9.1, pág. 402)
+#'     O sistema de uso da terra é indicado conforme nomenclatura das
+#'     linhas do \code{data.frame}, onde (A) representa uso da terra
+#'     para agricultura, (AG) para agrofloresta, (F) para floresta, (CV)
+#'     para capoeira velha, (CN) para capoeira nova e (P) para pastagem.
+#' @keywords AnaAgrup
+#' @source FERREIRA (2011), (Exemplo 9.1, pág. 402)
 #' @examples
 #'
 #' data(FerreiraEg9.1)
@@ -456,9 +453,8 @@ NULL
 #'     X.}
 #'
 #' }
-#' @keywords TODO
-#' @source D. F. (2011). Estatística Multivariada (2nd ed.). Lavras, MG:
-#'     Editora UFLA. (Exercício 10.11.9, pág. 487)
+#' @keywords AnaComPrin
+#' @source FERREIRA (2011), Exercício 10.11.9, pág. 487.
 #' @examples
 #'
 #' data(FerreiraEx10.11.9)
@@ -487,7 +483,7 @@ NULL
 NULL
 
 #' @name FerreiraEx3.8.5
-#' @title Avalia\enc{çã}{ca}o de cultivar de mel\enc{ã}{a}o
+#' @title Avalia\enc{çã}{ca}o de Cultivar de Mel\enc{ã}{a}o
 #' @description Os dados referem-se à avaliação de uma cultivar de melão
 #'     em 32 unidades experimentais.
 #' @format \code{data.frame} com 32 observações e 3 variáveis, em que
@@ -501,9 +497,8 @@ NULL
 #' \item{\code{tam}}{Teor médio de açucar mensurados em graus brix.}
 #'
 #' }
-#' @keywords TODO
-#' @source Ferreira, D. F. (2011). Estatística Multivariada (2nd
-#'     ed.). Lavras,  MG: Editora UFLA. (Exercício 3.8.5 pág. 169)
+#' @keywords AnaComPrin
+#' @source FERREIRA (2011), Exercício 3.8.5, pág. 169.
 #' @examples
 #'
 #' data(FerreiraEx3.8.5)
@@ -533,7 +528,6 @@ NULL
 #'     e depois de terem sido submetidos a uma dieta balanceada. O
 #'     interesse do estudo é avaliar se houve efeito significativo da
 #'     dieta nas variáveis peso e teor de proteína.
-#'
 #' @format Um \code{data.frame} com 12 observações e 3 variáveis.
 #'
 #' \describe{
@@ -546,12 +540,12 @@ NULL
 #' \item{\code{teor}}{Teor de proteína.}
 #'
 #' }
-#' @keywords TODO
-#' @source Ferreira, D. F. (2011). Estatística Multivariada (2nd
-#'     ed.). Lavras, MG: Editora UFLA. (Exercício 7.4.1 pág. 328)
-#'
+#' @keywords manova
+#' @source FERREIRA (2011), Exercício 7.4.1 pág. 328.
 #' @examples
+#'
 #' data(FerreiraEx7.4.1)
+#' str(FerreiraEx7.4.1)
 #'
 #' aggregate(peso ~ fase, data = FerreiraEx7.4.1, summary)
 #' aggregate(teor ~ fase, data = FerreiraEx7.4.1, summary)
@@ -583,7 +577,8 @@ NULL
 NULL
 
 #' @name FerreiraEx8.5.1
-#' @title Di\enc{â}{a}metro \enc{à}{a} Altura do Peito e Altura de \enc{Á}{A}rvores em Lavras-MG
+#' @title Di\enc{â}{a}metro \enc{à}{a} Altura do Peito e Altura de
+#'     \enc{Á}{A}rvores em Lavras-MG
 #' @description Resultados de um experimento inteiramente casualizado
 #'     com dez repetições, realizado no período de seca, para avaliar o
 #'     diferenças entre diferentes transectos na altura e no diâmetro à
@@ -605,8 +600,7 @@ NULL
 #'
 #' }
 #' @keywords manova
-#' @source Ferreira, D. F. (2011). Estatística Multivariada (2nd
-#'     ed.). Lavras, MG: Editora UFLA. (Exercício 8.5.1, pág. 351)
+#' @source FERREIRA (2011), (Exercício 8.5.1, pág. 351)
 #' @examples
 #'
 #' data(FerreiraEx8.5.1)
@@ -658,12 +652,11 @@ NULL
 #'
 #' }
 #'
-#' O tipo de carne é indicado conforme nomenclatura das linhas do
+#'     O tipo de carne é indicado conforme nomenclatura das linhas do
 #'     \code{data.frame}. Os tipos de carne marisco, siri e camarão são
 #'     todos enlatados.
 #' @keywords AnaAgrup
-#' @source Ferreira, D. F. (2011). Estatística Multivariada (2nd
-#'     ed.). Lavras, MG: Editora UFLA. (Exercício 9.7.2, pág. 409)
+#' @source FERREIRA (2011), Exercício 9.7.2, pág. 409.
 #' @references Bussab, W. O., Miazaki, É. S., Andrade,
 #'     D. F. (1990). Introdução à análise de agrupamentos. São Paulo,
 #'     SP: ABE.
@@ -674,7 +667,7 @@ NULL
 #'
 #' (cl2 <- kmeans(FerreiraEx9.7.2, 2))
 #' (cl3 <- kmeans(FerreiraEx9.7.2, 3))
-#' cbind("k=2" = cl2$cluster, "k=3" = cl3$cluster)
+#' cbind("k = 2" = cl2$cluster, "k = 3" = cl3$cluster)
 #'
 #' (D <- dist(FerreiraEx9.7.2))
 #' hc <- hclust(D)
@@ -682,6 +675,6 @@ NULL
 #' rect.hclust(hc, k = 2, border = 2)
 #' rect.hclust(hc, k = 3, border = 4)
 #' legend("topright", lty = 1, col = c(2, 4), bty = "n",
-#'        legend = c("2 grupos (k=2)", "3 grupos (k=3)"))
+#'        legend = c("2 grupos (k = 2)", "3 grupos (k = 3)"))
 #'
 NULL