diff --git a/R/Demetrio.R b/R/Demetrio.R
index 92eecd3fcbc77b3220a0d3c46f184d1c7c8b593f..fd30e7087396a815f8bf04fdb35c139dd8d522f1 100644
--- a/R/Demetrio.R
+++ b/R/Demetrio.R
@@ -1,229 +1,199 @@
 #' @name DemetrioEg7.7
-#' @title Produtividade de Cana-de-a\enc{çú}{cu}car sob N\enc{í}{i}veis de Pent\enc{ó}{o}xido de F\enc{ó}{o}sforo
-#' 
+#' @title Produtividade de Cana-de-a\enc{çú}{cu}car sob N\enc{í}{i}veis
+#'     de Pent\enc{ó}{o}xido de F\enc{ó}{o}sforo
 #' @description Dados referentes a produtividade de cana-de-açúcar, em
 #'     ton/ha, obtidos de um experimento delineado em blocos
 #'     casualizados, com 6 repetições e 5 níveis de \eqn{P_2O_5}
 #'     (pentóxido de fósforo). O conjunto de dados apresenta somente a
 #'     soma das produtividades nos blocos para cada nível de
 #'     \eqn{P_2O_5}.
-#' 
-#' @format Um \code{data.frame} de 5 linhas e 2 colunas.
-#' 
+#' @format Um \code{data.frame} de 5 linhas e 2 colunas, em que
+#'
 #' \describe{
-#' 
-#'     \item{\code{nivel}}{Nível de \eqn{P_2O_5}, medido em kg/ha.}
-#'     
-#'     \item{\code{prod}}{Produtividade de cana-de-açúcar, medida em
+#'
+#' \item{\code{nivel}}{Nível de \eqn{P_2O_5}, medido em kg/ha.}
+#'
+#' \item{\code{prod}}{Produtividade de cana-de-açúcar, medida em
 #'     ton/ha.}
-#'     
+#'
 #' }
-#' 
-#' @keywords RP
-#' 
-#' @source Demétrio, C. G. B., Zocchi, S. S. (2011). Modelos de
-#'     Regressão. Piracicaba: ESALQ. (Exemplo 7.7 pág. 197)
-#' 
-#' @examples 
-#' 
+#' @keywords RS
+#' @source DEMÉTRIO; ZOCCHI (2011), Exemplo 7.7 pág. 197.
+#' @examples
+#'
 #' data(DemetrioEg7.7)
-#' 
+#' str(DemetrioEg7.7)
+#'
 #' library(lattice)
-#' 
-#' xyplot(prod ~ nivel, data = DemetrioEg7.7,
-#'     main = "Produtividade por Nível", xlab = "Nível",
-#'     ylab = "Produtividade")
-#'     
+#'
+#' xyplot(prod ~ nivel,
+#'        data = DemetrioEg7.7,
+#'        main = "Produtividade por Nível",
+#'        xlab = "Nível",
+#'        ylab = "Produtividade")
+#'
 NULL
 
 #' @name DemetrioEx1.4.1.1
-#' @title Alturas de Feij\enc{ã}{a}o
-#' 
+#' @title Alturas de Feijão
 #' @description Dados de altura de feijão durante 7 semanas.
-#' 
-#' @format Um \code{data.frame} de 7 linhas e 2 colunas.
-#' 
+#' @format Um \code{data.frame} de 7 linhas e 2 colunas, em que
+#'
 #' \describe{
-#' 
-#'     \item{\code{idade}}{Idade do feijão medida em semanas.}
-#'     
-#'     \item{\code{altura}}{Altura do feijão medida em centímetros (cm).}
-#'     
+#'
+#' \item{\code{idade}}{Idade do feijão medida em semanas.}
+#'
+#' \item{\code{altura}}{Altura do feijão medida em centímetros (cm).}
+#'
 #' }
-#' 
 #' @keywords RS
-#' 
-#' @source Demétrio, C. G. B., Zocchi, S. S. (2011). Modelos de
-#'     Regressão. Piracicaba: ESALQ. (Exercício 1.4.1.1 pág. 14)
-#' 
-#' @examples 
-#' 
+#' @source DEMÉTRIO; ZOCCHI (2011), Exercício 1.4.1.1 pág. 14.
+#' @examples
+#'
 #' data(DemetrioEx1.4.1.1)
-#' 
+#' str(DemetrioEx1.4.1.1)
+#'
 #' library(lattice)
-#' 
-#' xyplot(altura ~ idade, data = DemetrioEx1.4.1.1,
-#'      main = "Idade VS Altura",
-#'      xlab = "Idade",
-#'      ylab = "Altura",
-#'      type = c("p", "r"), col.line = 3)
-#'      
+#'
+#' xyplot(altura ~ idade,
+#'        data = DemetrioEx1.4.1.1,
+#'        xlab = "Idade",
+#'        ylab = "Altura",
+#'        type = c("p", "r"), col.line = 3)
+#'
 NULL
 
 #' @name DemetrioEx1.4.1.2
 #' @title Peso M\enc{é}{e}dio de Galinhas
-#' 
 #' @description Foi mensurado o peso médio e consumo de alimentos de 50
 #'     galinhas para 10 linhagens \emph{White Leghorn}.
-#' 
-#' @format Um \code{data.frame} de 10 linhas e 2 colunas.
-#' 
+#' @format Um \code{data.frame} de 10 linhas e 2 colunas, em que
+#'
 #' \describe{
-#' 
-#'     \item{\code{peso}}{Peso médio.}
-#'     
-#'     \item{\code{consumo}}{Consumo de alimentos.}
-#'     
+#'
+#' \item{\code{peso}}{Peso médio.}
+#'
+#' \item{\code{consumo}}{Consumo de alimentos.}
+#'
 #' }
-#' 
 #' @keywords RS
-#' 
-#' @source Demétrio, C. G. B., Zocchi, S. S. (2011). Modelos de
-#'     Regressão. Piracicaba: ESALQ. (Exercício 1.4.1.2 pág. 14)
-#' 
-#' @examples 
-#' 
+#' @source DEMÉTRIO; ZOCCHI (2011), Exercício 1.4.1.2 pág. 14.
+#' @examples
+#'
 #' data(DemetrioEx1.4.1.2)
-#' 
+#' str(DemetrioEx1.4.1.2)
+#'
 #' library(lattice)
-#' 
+#'
 #' xyplot(consumo ~ peso, data = DemetrioEx1.4.1.2,
-#'      main = "Peso VS Consumo",
-#'      xlab = "Peso",
-#'      ylab = "Consumo",
-#'      type = c("p", "r"), col.line = 3)
-#'      
+#'        xlab = "Peso",
+#'        ylab = "Consumo",
+#'        type = c("p", "r"), col.line = 3)
+#'
 NULL
 
 #' @name DemetrioEx1.4.1.3
 #' @title Absor\enc{çã}{ca}o de CO2 por Folhas de Trigo
-#' 
 #' @description Foi aplicado \eqn{CO_2} sobre folhas de trigo a uma
-#'     temperatura de 35°C. Mediu-se a quantia de \eqn{CO_2} absorvido
-#'     pelas folhas.
-#' 
-#' @format Um \code{data.frame} de 11 linhas e 2 colunas.
-#' 
+#'     temperatura de 35\eqn{^\circ}C. Mediu-se a quantia de \eqn{CO_2}
+#'     absorvido pelas folhas.
+#' @format Um \code{data.frame} de 11 linhas e 2 colunas, em que
+#'
 #' \describe{
-#' 
-#'     \item{\code{co2}}{Concentração de \eqn{CO_2} aplicada sobre as
-#'     folhas de trigo.}
-#'     
-#'     \item{\code{absorv}}{Quantia de \eqn{CO2} absorvida pelas folhas
-#'     de trigo, medida em \eqn{cm^3/dm^2/hora.}}
-#'     
+#'
+#' \item{\code{co2}}{Concentração de \eqn{CO_2} aplicada sobre as folhas
+#'     de trigo.}
+#'
+#' \item{\code{absorv}}{Quantia de \eqn{CO2} absorvida pelas folhas de
+#'     trigo, medida em \eqn{cm^3/dm^2/hora.}}
+#'
 #' }
-#' 
+#'
 #' @keywords RS
-#' 
-#' @source Demétrio, C. G. B., Zocchi, S. S. (2011). Modelos de
-#'     Regressão. Piracicaba: ESALQ. (Exercício 1.4.1.3 pág. 14)
-#' 
-#' @examples 
-#' 
+#' @source DEMÉTRIO; ZOCCHI (2011), Exercício 1.4.1.3 pág. 14.
+#' @examples
+#'
 #' data(DemetrioEx1.4.1.3)
-#' 
+#' str(DemetrioEx1.4.1.3)
+#'
 #' library(lattice)
-#' 
+#'
 #' xyplot(absorv ~ co2, data = DemetrioEx1.4.1.3,
-#'      main = "CO2 Aplicado VS Absorvido",
-#'      xlab = "Aplicado",
-#'      ylab = "Absorvido",
-#'      type = c("p", "r"), col.line = 3)
+#'        xlab = "Aplicado",
+#'        ylab = "Absorvido",
+#'        type = c("p", "r"), col.line = 3)
 #'
 NULL
 
 #' @name DemetrioEx1.4.1.4
 #' @title Volume das Cerejeiras
-#' 
 #' @description Foram mensurados o diâmetro, a altura e o volume de 31
 #'     cerejeiras com o objetivo de verificar a relação entre estas
 #'     variáveis, tendo em vista a predição do volume de madeira em uma
 #'     área de floresta.
-#' 
-#' @format Um \code{data.frame} de 31 linhas e 3 colunas.
-#' 
+#' @format Um \code{data.frame} de 31 linhas e 3 colunas, em que
+#'
 #' \describe{
-#' 
-#'     \item{\code{dia}}{Diâmetro da cerejeira a 4.5 pés do solo, 
-#'     medido em polegadas.}
-#'     
-#'     \item{\code{alt}}{Altura das cerejeiras, medida em pés.}
-#'     
-#'     \item{\code{vol}}{Volume das cerejeiras, medido em pés cúbicos.}
-#'     
+#'
+#' \item{\code{dia}}{Diâmetro da cerejeira a 4.5 pés do solo, medido em
+#'     polegadas.}
+#'
+#' \item{\code{alt}}{Altura das cerejeiras, medida em pés.}
+#'
+#' \item{\code{vol}}{Volume das cerejeiras, medido em pés cúbicos.}
+#'
 #' }
-#' 
 #' @keywords RM
-#' 
-#' @source Demétrio, C. G. B., Zocchi, S. S. (2011). Modelos de
-#'     Regressão. Piracicaba: ESALQ. (Exercício 1.4.1.4 pág. 14)
-#' 
-#' @examples 
-#' 
+#' @source DEMÉTRIO; ZOCCHI (2011) (Exercício 1.4.1.4 pág. 14)
+#' @examples
+#'
 #' data(DemetrioEx1.4.1.4)
-#' 
+#' str(DemetrioEx1.4.1.4)
+#'
 #' library(lattice)
 #'
 #' pairs(~ dia + alt + vol, data = DemetrioEx1.4.1.4,
-#'      main = "Gráfico de Pares")
-#'      
+#'       main = "Gráfico de Pares")
+#'
 #' xyplot(vol ~ dia, data = DemetrioEx1.4.1.4,
-#'      main = "Diâmetro VS Volume",
-#'      xlab = "Diâmetro",
-#'      ylab = "Volume",
-#'      type = c("p", "r"), col.line = 3)
-#'      
+#'        xlab = "Diâmetro",
+#'        ylab = "Volume",
+#'        type = c("p", "r"), col.line = 3)
+#'
 NULL
 
 #' @name DemetrioEx1.4.1.5
 #' @title N\enc{ú}{u}mero de Ovos por Fol\enc{í}{i}culos Ovulados
-#' 
-#' @description Foi contado o número me ovos postos e o número de
+#' @description Foi contado o número de ovos postos e o número de
 #'     folículos ovulados.
-#' 
-#' @format Um \code{data.frame} de 14 linhas e 2 colunas.
-#' 
+#' @format Um \code{data.frame} de 14 linhas e 2 colunas, em que
+#'
 #' \describe{
-#' 
-#'     \item{\code{ovo}}{Número de ovos.}
-#'     
-#'     \item{\code{foli}}{Número de folículos.}
-#'     
+#'
+#' \item{\code{ovo}}{Número de ovos.}
+#'
+#' \item{\code{foli}}{Número de folículos.}
+#'
 #' }
-#' 
-#' @keywords TODO
-#' 
-#' @source Demétrio, C. G. B., Zocchi, S. S. (2011). Modelos de
-#'     Regressão. Piracicaba: ESALQ. (Exercício 1.4.1.5 pág. 15)
-#' 
-#' @examples 
-#' 
+#'
+#' @keywords RS
+#' @source DEMÉTRIO; ZOCCHI (2011), Exercício 1.4.1.5 pág. 15.
+#' @examples
+#'
 #' data(DemetrioEx1.4.1.5)
-#' 
+#' str(DemetrioEx1.4.1.5)
+#'
 #' library(lattice)
-#' 
+#'
 #' xyplot(foli ~ ovo, data = DemetrioEx1.4.1.5,
-#'      main = "Ovos VS Folículos",
-#'      xlab = "N° Ovos",
-#'      ylab = "N° Folículos",
-#'      type = c("p", "r"), col.line = 3)
-#'      
+#'        xlab = "Número de ovos",
+#'        ylab = "Número de folículos",
+#'        type = c("p", "r"), col.line = 3)
+#'
 NULL
 
 #' @name DemetrioEx1.4.2
 #' @title Tempo de Irriga\enc{çã}{ca}o de Solo
-#' 
 #' @description Neste estudo foram medidos os tempos acumulados de
 #'     irrigação e as correspondentes medidas de infiltração acumulada
 #'     de água no solo. O objetivo do experimento era estimar as
@@ -233,139 +203,130 @@ NULL
 #'     para determinar o tempo de irrigação para atingir uma determinada
 #'     lâmina de água, pois é anti-econômico irrigar a uma velocidade
 #'     maior à de infiltração.
-#' 
-#' @format Um \code{data.frame} de 15 linhas e 2 colunas.
-#' 
+#' @format Um \code{data.frame} de 15 linhas e 2 colunas, em que
+#'
 #' \describe{
-#' 
-#'     \item{\code{tempo}}{Tempo acumulado de irrigação, medido em 
+#'
+#' \item{\code{tempo}}{Tempo acumulado de irrigação, medido em
 #'     minutos.}
-#'     
-#'     \item{\code{infil}}{Infiltração acumulada de água no solo, medida
+#'
+#' \item{\code{infil}}{Infiltração acumulada de água no solo, medida
 #'     em centímetros (cm).}
-#'     
+#'
 #' }
-#' 
+#'
 #' @keywords RS
-#' 
-#' @source Demétrio, C. G. B., Zocchi, S. S. (2011). Modelos de
-#'     Regressão. Piracicaba: ESALQ. (Exercício 1.4.2 pág. 16)
-#' 
-#' @examples 
-#' 
+#' @source DEMÉTRIO; ZOCCHI (2011), Exercício 1.4.2 pág. 16.
+#' @examples
+#'
 #' data(DemetrioEx1.4.2)
-#' 
+#' str(DemetrioEx1.4.2)
+#'
 #' library(lattice)
-#' 
+#' library(latticeExtra)
+#'
+#' xyplot(infil ~ tempo, data = DemetrioEx1.4.2,
+#'        xlab = "Tempo",
+#'        ylab = "Infiltração",
+#'        type = c("p", "r"), col.line = 3)
+#'
 #' xyplot(infil ~ tempo, data = DemetrioEx1.4.2,
-#'      main = "Tempo VS Infiltração",
-#'      xlab = "Tempo",
-#'      ylab = "Infiltração",
-#'      type = c("p", "r"), col.line = 3)
-#'      
+#'        xlab = "Tempo",
+#'        ylab = "Infiltração",
+#'        type = c("p", "r"), col.line = 3,
+#'        scales = list(y = list(log = 10), x = list(log = 10)),
+#'        yscale.components = yscale.components.log10ticks,
+#'        xscale.components = xscale.components.log10ticks)
+#'
 NULL
 
 #' @name DemetrioEx2.12.15
-#' @title Dados Gen\enc{é}{e}ricos Simulados para Regress\enc{ã}{a}o Simples
-#' 
+#' @title Dados Gen\enc{é}{e}ricos Simulados para Regress\enc{ã}{a}o
+#'     Simples
 #' @description Dados simulados para exercício analítico de estimação
 #'     via método dos quadrados mínimos em diferentes modelos de
 #'     regressão linear.
-#' 
-#' @format Um \code{data.frame} de 6 linhas e 2 colunas.
-#' 
+#' @format Um \code{data.frame} de 6 linhas e 2 colunas, em que
+#'
 #' \describe{
-#' 
-#'     \item{\code{x}}{Variável independente, sem interpretação.}
-#'     
-#'     \item{\code{y}}{Variável dependente, sem interpretação.}
-#'     
+#'
+#' \item{\code{x}}{Variável independente, sem interpretação.}
+#'
+#' \item{\code{y}}{Variável dependente, sem interpretação.}
+#'
 #' }
-#' 
-#' @keywords TODO
-#' 
-#' @source Demétrio, C. G. B., Zocchi, S. S. (2011). Modelos de
-#'     Regressão. Piracicaba: ESALQ. (Exercício 2.12.15 pág. 63)
-#' 
-#' @examples 
-#' 
+#'
+#' @keywords RS
+#' @source DEMÉTRIO; ZOCCHI (2011), Exercício 2.12.15 pág. 63.
+#' @examples
+#'
 #' data(DemetrioEx2.12.15)
-#' 
+#' str(DemetrioEx2.12.15)
+#'
 #' library(lattice)
-#' 
+#'
 #' xyplot(y ~ x, data = DemetrioEx2.12.15,
-#'      main = "x vs y",
-#'      xlab = "x",
-#'      ylab = "y",
-#'      type = c("p", "r"), col.line = 3)
-#'      
+#'        main = "x vs y",
+#'        xlab = "x",
+#'        ylab = "y",
+#'        type = c("p", "r"), col.line = 3)
+#'
 NULL
 
 #' @name DemetrioEx2.12.16
-#' @title Calagem para a Sucess\enc{ã}{a}o batata-triticale-milho
-#' 
+#' @title Calagem para a Sucess\enc{ã}{a}o Batata-triticale-milho
 #' @description Neste experimento foram obtidos os valores para o teor
 #'     de cálcio no solo e a porcentagem de tubérculos maduros com o
 #'     objetivo de verificar a relação existente entre estas variáveis.
-#' 
-#' @format Um \code{data.frame} de 9 linhas e 2 colunas.
-#' 
+#' @format Um \code{data.frame} de 9 linhas e 2 colunas, em que
+#'
 #' \describe{
-#' 
-#'     \item{\code{calcio}}{Teor de cálcio no solo, medido em
+#'
+#' \item{\code{calcio}}{Teor de cálcio no solo, medido em
 #'     \eqn{meq/100cm^{3}} (miliequivalente por 100 centímetros
 #'     cúbicos).}
-#'     
-#'     \item{\code{tm}}{Porcentagem de tubérculos maduros.}
-#'     
+#'
+#' \item{\code{tm}}{Porcentagem de tubérculos maduros.}
+#'
 #' }
-#' 
-#' @keywords TODO
-#' 
-#' @source Demétrio, C. G. B., Zocchi, S. S. (2011). Modelos de
-#'     Regressão. Piracicaba: ESALQ. (Exercício 2.12.16 pág. 63)
-#' 
-#' @examples 
-#' 
+#' @keywords RS RNL unitário
+#' @source DEMÉTRIO; ZOCCHI (2011), Exercício 2.12.16 pág. 63.
+#' @examples
+#'
 #' data(DemetrioEx2.12.16)
-#' 
+#' str(DemetrioEx2.12.16)
+#'
 #' library(lattice)
-#' 
+#'
 #' xyplot(tm ~ calcio, data = DemetrioEx2.12.16,
-#'      main = "Cálcio VS TM",
-#'      xlab = "Cálcio",
-#'      ylab = "Tubérculos Maduros")
-#'      
+#'        xlab = "Cálcio",
+#'        ylab = "Porcentagem de tubérculos maduros")
+#'
 NULL
 
 #' @name DemetrioEx2.12.5
 #' @title Dados Gen\enc{é}{e}ricos para Regress\enc{ã}{a}o Segmentada
-#' 
 #' @description Dados para exercício analítico, com o objetivo de obter
 #'     as estimativas de mínimos quadrados dos parâmetros de um modelo
 #'     de regressão linear segmentada.
-#' 
-#' @format Um \code{data.frame} de 5 linhas e 2 colunas.
-#' 
+#' @format Um \code{data.frame} de 5 linhas e 2 colunas, em que
+#'
 #' \describe{
-#' 
-#'     \item{\code{x}}{Variável independente, sem interpretação.}
-#'     
-#'     \item{\code{y}}{Variável dependente, sem interpretação.}
-#'     
+#'
+#' \item{\code{x}}{Variável independente, sem interpretação.}
+#'
+#' \item{\code{y}}{Variável dependente, sem interpretação.}
+#'
 #' }
-#' 
-#' @keywords RegSeg
-#' 
-#' @source Demétrio, C. G. B., Zocchi, S. S. (2011). Modelos de
-#'     Regressão. Piracicaba: ESALQ. (Exercício 2.12.5 pág. 60)
-#' 
-#' @examples 
-#' 
+#' @keywords RNL
+#' @source DEMÉTRIO; ZOCCHI (2011), Exercício 2.12.5 pág. 60.
+#' @examples
+#'
 #' data(DemetrioEx2.12.5)
-#' 
+#' str(DemetrioEx2.12.5)
+#'
 #' library(lattice)
-#' 
+#'
 #' xyplot(y ~ x, data = DemetrioEx2.12.5,
 #'        cex = 1.1, pch = 19,
 #'        main = 'Regressão Segmentada',
@@ -382,351 +343,310 @@ NULL
 #'            panel.segments(cx[1], cy[1], cx[2], cy[2])
 #'            panel.segments(cx[2], cy[2], cx[3], cy[3])
 #'        })
-#'      
+#'
 NULL
 
 #' @name DemetrioEx5.4.2
-#' @title Estudo F\enc{í}{i}sico Qu\enc{í}{i}mico de M\enc{é}{e}is Silvestres
-#' 
+#' @title Estudo F\enc{í}{i}sico Qu\enc{í}{i}mico de M\enc{é}{e}is
+#'     Silvestres
 #' @description Análise físico química de méis silvestres, produzidos
 #'     por \emph{Apis mellifera} em 1999, provenientes de 94 localidades
 #'     de São Paulo.
-#' 
-#' @format Um \code{data.frame} de 94 linhas e 3 colunas.
-#' 
+#' @format Um \code{data.frame} de 94 linhas e 3 colunas, em que
+#'
 #' \describe{
-#' 
-#'     \item{\code{condut}}{Condutividade elétrica, em \eqn{\mu}S.}
-#'     
-#'     \item{\code{N}}{Proporção de Nitrogênio proteico.}
-#'     
-#'     \item{\code{cinzas}}{Proporção de cinzas.}
-#'     
+#'
+#' \item{\code{condut}}{Condutividade elétrica, em \eqn{\mu}S.}
+#'
+#' \item{\code{N}}{Proporção de Nitrogênio proteico.}
+#'
+#' \item{\code{cinzas}}{Proporção de cinzas.}
+#'
 #' }
-#' 
 #' @keywords RM
-#' 
-#' @source Demétrio, C. G. B., Zocchi, S. S. (2011). Modelos de
-#'     Regressão. Piracicaba: ESALQ. (Exercício 5.4.2 pág. 169)
-#' 
-#' @examples 
-#' 
+#' @source DEMÉTRIO; ZOCCHI (2011), Exercício 5.4.2 pág. 169.
+#' @examples
+#'
 #' data(DemetrioEx5.4.2)
-#' 
+#' str(DemetrioEx5.4.2)
+#'
 #' pairs(~ condut + N + cinzas, data = DemetrioEx5.4.2,
-#'     main = "Gráfico de Pares")
-#'      
+#'       main = "Gráfico de Pares")
+#'
 NULL
 
 #' @name DemetrioEx5.4.5
-#' @title Estudo sobre a Avalia\enc{çã}{ca}o Visual do Grau da Infesta\enc{çã}{ca}o de
-#'     Plantas por Doen\enc{ç}{c}as
-#' 
+#' @title Estudo sobre a Avalia\enc{çã}{ca}o Visual do Grau da
+#'     Infesta\enc{çã}{ca}o de Plantas por Doen\enc{ç}{c}as
 #' @description Dados referentes a avaliação visual (realizada por um
 #'     pesquisador) e real do grau de infestação de folhas de amendoim.
-#'     
-#'     A avaliação exige um treinamento específico para a cultura e
-#'     a doença em questão. Por esse motivo, foram desenvolvidos
-#'     programas computacionais que geram imagens de folhas com 
-#'     diferentes porcentagens de infestação para o pesquisador estimar
-#'     visualmente e em seguida compara-se com as porcentagens reais.
-#' 
-#' @format Um \code{data.frame} de 10 linhas e 2 colunas.
-#' 
+#'
+#'     A avaliação exige um treinamento específico para a cultura e a
+#'     doença em questão. Por esse motivo, foram desenvolvidos programas
+#'     computacionais que geram imagens de folhas com diferentes
+#'     porcentagens de infestação para o pesquisador estimar visualmente
+#'     e em seguida compara-se com as porcentagens reais.
+#' @format Um \code{data.frame} de 10 linhas e 2 colunas, em que
+#'
 #' \describe{
-#' 
-#'     \item{\code{visual}}{Estimativas visuais do pesquisador.}
-#'     
-#'     \item{\code{real}}{Valores reais do grau de infestação.}
-#'     
+#'
+#' \item{\code{visual}}{Estimativas visuais do pesquisador.}
+#'
+#' \item{\code{real}}{Valores reais do grau de infestação.}
+#'
 #' }
-#' 
+#'
 #' @keywords RS
-#' 
-#' @source Demétrio, C. G. B., Zocchi, S. S. (2011). Modelos de
-#'     Regressão. Piracicaba: ESALQ. (Exercício 5.4.5 pág. 165)
-#' 
-#' @examples 
-#' 
+#' @source DEMÉTRIO; ZOCCHI (2011), Exercício 5.4.5 pág. 165.
+#' @examples
+#'
 #' data(DemetrioEx5.4.5)
-#' 
+#' str(DemetrioEx5.4.5)
+#'
 #' library(lattice)
-#' 
+#'
 #' xyplot(visual ~ real, data = DemetrioEx5.4.5,
-#'      main = "Real vs Visual",
-#'      xlab = "Real",
-#'      ylab = "Visual",
-#'      type = c("p", "r"), col.line = 3)
-#'      
+#'        xlab = "Real",
+#'        ylab = "Visual",
+#'        type = c("p", "r"), col.line = 3)
+#'
 NULL
 
 #' @name DemetrioEx6.5.2
-#' @title Dados Gen\enc{é}{e}ricos Simulados para Regress\enc{ã}{a}o Linear M\enc{ú}{u}ltipla
-#' 
+#' @title Dados Gen\enc{é}{e}ricos Simulados para Regress\enc{ã}{a}o
+#'     Linear M\enc{ú}{u}ltipla
 #' @description Dados simulados para exercício de análise de um modelo
 #'     de regressão linear múltipla com 3 covariáveis.
-#' 
-#' @format Um \code{data.frame} de 5 linhas e 4 colunas.
-#' 
+#' @format Um \code{data.frame} de 5 linhas e 4 colunas, em que
+#'
 #' \describe{
-#' 
-#'     \item{\code{x1}}{Variável independente, sem interpretação.}
-#'     
-#'     \item{\code{x2}}{Variável independente, sem interpretação.}
-#'     
-#'     \item{\code{x3}}{Variável independente, sem interpretação.}
-#'     
-#'     \item{\code{y}}{Variável dependente, sem interpretação.}
-#'     
+#'
+#' \item{\code{x1}}{Variável independente, sem interpretação.}
+#'
+#' \item{\code{x2}}{Variável independente, sem interpretação.}
+#'
+#' \item{\code{x3}}{Variável independente, sem interpretação.}
+#'
+#' \item{\code{y}}{Variável dependente, sem interpretação.}
+#'
 #' }
-#' 
 #' @keywords RM
-#' 
-#' @source Demétrio, C. G. B., Zocchi, S. S. (2011). Modelos de
-#'     Regressão. Piracicaba: ESALQ. (Exercício 6.5.2 pág. 180)
-#' 
-#' @examples 
-#' 
+#' @source DEMÉTRIO; ZOCCHI (2011) (Exercício 6.5.2 pág. 180)
+#' @examples
+#'
 #' data(DemetrioEx6.5.2)
-#' 
-#' pairs(~ x1 + x2 + x3 + y, data = DemetrioEx6.5.2, 
-#'     main = "Gráfico de Pares")
-#'      
+#' str(DemetrioEx6.5.2)
+#'
+#' pairs(~ x1 + x2 + x3 + y, data = DemetrioEx6.5.2,
+#'       main = "Gráfico de Pares")
+#'
 NULL
 
 #' @name DemetrioEx7.8.3
-#' @title Alturas de Eucaliptos sob Aduba\enc{çã}{ca}o Pot\enc{á}{a}ssica
-#' 
-#' @description Dados referentes a um experimento de adubação,
-#'     conduzido em casa de vegetação. Foram usadas 4 doses de
-#'     Potássio (0, 30, 60, 90 ppm), obtendo-se as alturas das árvores
-#'     da espécie \emph{Eucalyptus grandis}, medidas em cm.
-#' 
-#' @format Um \code{data.frame} de 12 linhas e 2 colunas.
-#' 
+#' @title Alturas de Eucaliptos sob Aduba\enc{çã}{ca}o
+#'     Pot\enc{á}{a}ssica
+#' @description Dados referentes a um experimento de adubação, conduzido
+#'     em casa de vegetação. Foram usadas 4 doses de Potássio (0, 30,
+#'     60, 90 ppm), obtendo-se as alturas das árvores da espécie
+#'     \emph{Eucalyptus grandis}, medidas em cm.
+#' @format Um \code{data.frame} de 12 linhas e 2 colunas, em que
+#'
 #' \describe{
-#' 
-#'     \item{\code{dose}}{Dose de potássio, medida em ppm.}
-#'     
-#'     \item{\code{altura}}{Altura da árvore, medida em centímetro
-#'     (cm).}
-#'     
+#'
+#' \item{\code{dose}}{Dose de potássio, medida em ppm.}
+#'
+#' \item{\code{altura}}{Altura da árvore, medida em centímetro (cm).}
+#'
 #' }
-#' 
-#' @keywords RP
-#' 
-#' @source Demétrio, C. G. B., Zocchi, S. S. (2011). Modelos de
-#'     Regressão. Piracicaba: ESALQ. (Exercício 7.8.3 pág. 198)
-#' 
-#' @examples 
-#' 
+#' @keywords RS DIC
+#' @source DEMÉTRIO; ZOCCHI (2011), Exercício 7.8.3 pág. 198.
+#' @examples
+#'
 #' data(DemetrioEx7.8.3)
-#' 
+#' str(DemetrioEx7.8.3)
+#'
 #' library(lattice)
-#' 
+#'
 #' xyplot(altura ~ dose, data = DemetrioEx7.8.3,
-#'     main = "Altura vs Dose", xlab = "Dose", ylab = "Altura")
-#'      
+#'        main = "Altura vs Dose", xlab = "Dose", ylab = "Altura")
+#'
 NULL
 
 #' @name DemetrioTb1.1
-#' @title N\enc{í}{i}veis de F\enc{ó}{o}sforo no Solo ap\enc{ó}{o}s Plantio de Milho
-#' 
+#' @title N\enc{í}{i}veis de F\enc{ó}{o}sforo no Solo ap\enc{ó}{o}s
+#'     Plantio de Milho
 #' @description Resultados de um experimento onde diferentes níveis de
 #'     fósforo orgânico foram utilizados na preparação do solo para o
 #'     plantio de milho. Após 38 dias, as plantas foram colhidas,
 #'     mediu-se o novamente os níveis de fósforo e calculou-se o fósforo
 #'     disponível para a planta em cada amostra de solo.
-#' 
-#' @format Um \code{data.frame} com 9 linhas e 2 colunas.
-#' 
+#' @format Um \code{data.frame} com 9 linhas e 2 colunas, em que
+#'
 #' \describe{
-#' 
-#'     \item{\code{fo}}{Níveis de fósforo orgânico adicionado ao solo,
+#'
+#' \item{\code{fo}}{Níveis de fósforo orgânico adicionado ao solo,
 #'     mensurados em partes por milhão (ppm).}
-#'     
-#'     \item{\code{fd}}{Fósforo disponível no solo após a colheita do
-#'     milho, mensurado em partes por milhão (ppm).}
-#' 
+#'
+#' \item{\code{fd}}{Fósforo disponível no solo após a colheita do milho,
+#'     mensurado em partes por milhão (ppm).}
+#'
 #' }
-#' 
 #' @keywords RS
-#' 
-#' @source Demétrio, C. G. B., Zocchi, S. S. (2011). Modelos de
-#'     Regressão. Piracicaba: ESALQ. (Tabela 1.1 pág. 8)
-#' 
-#' @examples 
-#' 
+#' @source DEMÉTRIO; ZOCCHI (2011), Tabela 1.1 pág. 8.
+#' @examples
+#'
 #' library(lattice)
-#' 
+#'
 #' data(DemetrioTb1.1)
-#' 
+#' str(DemetrioTb1.1)
+#'
 #' xyplot(fd ~ fo, data = DemetrioTb1.1,
-#'        main = "Níveis de fósforo no solo",
 #'        xlab = "Fósforo orgânico",
 #'        ylab = "Fósforo disponível",
 #'        type = c("p", "r"), col.line = 3)
+#'
 NULL
 
 #' @name DemetrioTb1.2
 #' @title Irriga\enc{çã}{ca}o em Batata
-#' 
 #' @description Este experimento refere-se a irrigação em batata
 #'     plantada em terra roxa estruturada. Foram medidas as lâminas de
 #'     água a diferentes distâncias do aspersor. O objetivo foi mensurar
 #'     a produtividade, já que, no tipo de solo utilizado no experimento
 #'     (solo argiloso), espera-se que o excesso de água diminua a
 #'     produtividade.
-#' 
-#' @format Um \code{data.frame} com 12 linhas e 2 colunas.
-#' 
+#' @format Um \code{data.frame} com 12 linhas e 2 colunas, em que
+#'
 #' \describe{
-#' 
-#'     \item{\code{lamina}}{Espessura da lâmina de água medida em
-#'     milímetros (mm).}
-#'     
-#'     \item{\code{prod}}{Produtividade medida em toneladas de batatas
-#'      por hectare (t/ha).}
-#' 
+#'
+#' \item{\code{lamina}}{Espessura da lâmina de água medida em milímetros
+#'     (mm).}
+#'
+#' \item{\code{prod}}{Produtividade medida em toneladas de batatas por
+#'      hectare (t/ha).}
+#'
 #' }
-#' 
 #' @keywords RS
-#' 
-#' @source Demétrio, C. G. B., Zocchi, S. S. (2011). Modelos de
-#'     Regressão. Piracicaba: ESALQ. (Tabela 1.2 pág. 9)
-#' 
+#' @source DEMÉTRIO; ZOCCHI (2011), Tabela 1.2 pág. 9.
 #' @examples
-#' 
+#'
 #' library(lattice)
-#' 
+#'
 #' data(DemetrioTb1.2)
-#' 
+#' str(DemetrioTb1.2)
+#'
 #' xyplot(prod ~ lamina, data = DemetrioTb1.2,
-#'        main = "Produção VS Lâmina de Água",
 #'        xlab = "Lâmina de água (mm)",
 #'        ylab = "Produção (t/ha)",
 #'        type = c("p", "r"), col.line = 3)
+#'
 NULL
 
 #' @name DemetrioTb1.3
 #' @title Estudo da Constru\enc{çã}{ca}o de um Tensi\enc{ô}{o}metro
-#' 
 #' @description Estudo da construção de um tensiômetro de leitura
 #'     direta. Neste estudo obteve-se os resultados de alturas da câmara
 #'     no tensiômetro e tensão da água no solo.
-#' 
-#' @format Um \code{data.frame} com 9 linhas e 2 colunas.
-#' 
+#' @format Um \code{data.frame} com 9 linhas e 2 colunas, em que
+#'
 #' \describe{
-#' 
-#'     \item{\code{altura}}{ Altura da câmara no tensiômetro medida
+#'
+#' \item{\code{altura}}{ Altura da câmara no tensiômetro medida
 #'     em milímetros (mm). }
-#'     
-#'     \item{\code{tensao}}{ Tensão da água no solo medida em coloumb
+#'
+#' \item{\code{tensao}}{ Tensão da água no solo medida em coloumb
 #'     (mb) }
-#' 
+#'
 #' }
-#' 
-#' @keywords RS
-#' 
-#' @source Demétrio, C. G. B., Zocchi, S. S. (2011). Modelos de
-#'     Regressão. Piracicaba: ESALQ. (Tabela 1.3 pág. 10; 
-#'     Ex 2.12.14 pág. 62)
-#' 
+#'
+#' @keywords RS RNL
+#' @source DEMÉTRIO; ZOCCHI (2011), Tabela 1.3 pág. 10; Ex 2.12.14
+#'     pág. 62.
 #' @examples
-#' 
+#'
 #' library(lattice)
-#' 
+#'
 #' data(DemetrioTb1.3)
-#' 
+#' str(DemetrioTb1.3)
+#'
 #' xyplot(tensao ~ altura, data = DemetrioTb1.3,
-#'     main = "Altura VS Tensão",
-#'     xlab = "Altura do Tensiômetro",
-#'     ylab = "Tensão da Água")
+#'        xlab = "Altura do Tensiômetro",
+#'        ylab = "Tensão da Água")
 #'
 #' xyplot(tensao ~ log(altura), data = DemetrioTb1.3,
-#'     main = "Altura VS Tensão",
-#'     xlab = expression(log~"(Altura do Tensiômetro)"),
-#'     ylab = "Tensão da Água")
+#'        main = "Altura VS Tensão",
+#'        xlab = expression(log~"(Altura do Tensiômetro)"),
+#'        ylab = "Tensão da Água")
 #'
 NULL
 
 #' @name DemetrioTb1.4
 #' @title Concentra\enc{çã}{ca}o de F\enc{ó}{o}sforo
-#' 
 #' @description Dados referentes a medidas de concentrações de fósforo
 #'     inorgânico e orgânico no solo, onde posteriormente mediu-se o
 #'     conteúdo de fósforo nas plantas crescidas no local. O objetivo do
 #'     experimento é estudar a relação existente entre o conteúdo de
 #'     fósforo na planta e as duas fontes do elemento no solo.
+#' @format Um \code{data.frame} com 18 linhas e 3 colunas, em que
 #'
-#' @format Um \code{data.frame} com 18 linhas e 3 colunas.
-#' 
 #' \describe{
-#' 
-#'     \item{\code{cfi}}{ Conteúdo de fósforo inorgânico no solo. }
-#'     
-#'     \item{\code{cfo}}{ Conteúdo de fósforo orgânico no solo. }
-#' 
-#'     \item{\code{conteudo}}{ Conteúdo de fósforo nas plantas
-#'     crescidas no solo. }
-#' 
+#'
+#' \item{\code{cfi}}{ Conteúdo de fósforo inorgânico no solo.}
+#'
+#' \item{\code{cfo}}{ Conteúdo de fósforo orgânico no solo.}
+#'
+#' \item{\code{conteudo}}{ Conteúdo de fósforo nas plantas crescidas no
+#'     solo.}
+#'
 #' }
-#' 
 #' @keywords RM
-#' 
-#' @source Demétrio, C. G. B., Zocchi, S. S. (2011). Modelos de
-#'     Regressão. Piracicaba: ESALQ. (Tabela 1.4 pág. 11)
-#' 
+#' @source DEMÉTRIO; ZOCCHI (2011), Tabela 1.4 pág. 11.
 #' @examples
-#' 
+#'
 #' data(DemetrioTb1.4)
-#' 
+#' str(DemetrioTb1.4)
+#'
 #' pairs(DemetrioTb1.4, main = "Dispersão em Pares")
 #'
 #' library(lattice)
-#' 
+#'
 #' xyplot(conteudo ~ cfi, data = DemetrioTb1.4,
-#'        main = "Fósforo Inorgânico VS Conteúdo",
 #'        xlab = "Fósforo Inorgânico",
 #'        ylab = "Conteúdo na Planta",
 #'        type = c("p", "r"), col.line = 3)
-#' 
+#'
 #' xyplot(conteudo ~ cfo, data = DemetrioTb1.4,
-#'        main = "Fósforo Orgânico VS Conteúdo",
 #'        xlab = "Fósforo Orgânico",
-#'        ylab = "Conteúdo na Planta", 
+#'        ylab = "Conteúdo na Planta",
 #'        type = c("p", "r"), col.line = 3)
+#'
 NULL
 
 #' @name DemetrioTb1.5
 #' @title Valores de CTC Direta e Indireta
-#' 
 #' @description O experimento foi realizado em quatro blocos, sendo
 #'     planejado para estudar o efeito da calagem sobre a CTC
 #'     (Capacidade de Troca Catiônica) do solo medida por dois métodos
 #'     diferentes. Os valores de CTC foram medidos 18 meses após a
-#'     calagem incorporada ao solo, na profundidade de 5 a 10 cm, segundo
-#'     a dose de calcário.
+#'     calagem incorporada ao solo, na profundidade de 5 a 10 cm,
+#'     segundo a dose de calcário.
+#' @format Um \code{data.frame} de 32 linhas e 4 colunas, em que
 #'
-#' @format Um \code{data.frame} de 32 linhas e 4 colunas.
-#' 
 #' \describe{
-#' 
-#'     \item{\code{bloco}}{Fator que indica a qual bloco a amostra
-#'     pertence, usado para controle de variação.}
-#'     
-#'     \item{\code{dose}}{Indica a dose de calcário usada na referida
+#'
+#' \item{\code{bloco}}{Fator que indica a qual bloco a amostra pertence,
+#'     usado para controle de variação.}
+#'
+#' \item{\code{dose}}{Indica a dose de calcário usada na referida
 #'     observação, medida em toneladas por hectare (t/ha).}
-#'     
-#'     \item{\code{metodo}}{Fator que indica o método para determinação
-#'     da CTC, direto (1) ou indireto (0).}
-#'     
-#'     \item{\code{ctc}}{É o valor observado de CTC, medido em 
+#'
+#' \item{\code{metodo}}{Fator que indica o método para determinação da
+#'     CTC, direto (1) ou indireto (0).}
+#'
+#' \item{\code{ctc}}{É o valor observado de CTC, medido em
 #'     \eqn{mmol_{c}/kg}.}
-#' 
-#' }
 #'
+#' }
 #' @details Na análise inicial do estudo do estudo foi detectada a
 #'     presença de um dado discrepante (177,00) correspondente ao
 #'     \code{bloco} I, \code{dose} 7,80 e \code{metodo} indireto. Em
@@ -734,74 +654,64 @@ NULL
 #'     na transcrição dos dados e que o valor correto seria
 #'     124,00. Neste conjunto de dados manteve-se o valor discrepante
 #'     para efeitos didáticos.
-#'
 #' @keywords RM dummy
-#' 
-#' @source Demétrio, C. G. B., Zocchi, S. S. (2011). Modelos de
-#'     Regressão. Piracicaba: ESALQ. (Tabela 1.5 pág. 12)
-#' 
-#' @examples 
+#' @source DEMÉTRIO; ZOCCHI (2011), Tabela 1.5 pág. 12.
+#' @examples
 #'
 #' data(DemetrioTb1.5)
+#' str(DemetrioTb1.5)
 #'
 #' library(lattice)
-#' 
+#'
 #' xyplot(ctc ~ dose | bloco, groups = metodo,
 #'        data = DemetrioTb1.5,
-#'        main = "Dose VS CTC",
 #'        xlab = "Dose", ylab = "CTC",
 #'        type = c("p", "r"),
-#'        auto.key = list(space = "right", title = "Método"))
-#' 
+#'        auto.key = list(space = "top", title = "Método"))
+#'
 #' # Corrigindo dado, conforme erro verificado pelo pesquisador
 #' select <- with(DemetrioTb1.5, bloco == 1 & dose == 7.8 & metodo == 0)
 #' DemetrioTb1.5$ctc[select] <- 124
-#' 
-#' xyplot(ctc ~ dose | bloco, groups  = metodo,
+#'
+#' xyplot(ctc ~ dose | bloco, groups = metodo,
 #'        data = DemetrioTb1.5,
-#'        main = "Dose VS CTC",
 #'        xlab = "Dose", ylab = "CTC",
-#'        type = c("p","r"),
-#'        auto.key = list(space = "right", title = "Método"))
-#' 
+#'        type = c("p", "r"),
+#'        auto.key = list(space = "top", title = "Método"))
+#'
 NULL
 
 #' @name DemetrioTb1.6
 #' @title Resposta de Milho ao Fosfato
-#' 
 #' @description Neste estudo foram obtidos dados sobre a resposta da
 #'     cultura do milho ao fosfato, produtividade na testemunha,
 #'     porcentagem de saturação de bases e pH do solo. Como todas as
 #'     variáveis computadas são aleatórias, o interesse principal é em
 #'     estudar as correlações entre as variáveis observadas.
-#' 
-#' @format Um \code{data.frame} de 14 linhas e 4 colunas.
-#' 
+#' @format Um \code{data.frame} de 14 linhas e 4 colunas, em que
+#'
 #' \describe{
-#' 
-#'     \item{\code{milho}}{Dados de resposta da cultura do milho ao
-#'     fosfato em porcentagem.}
-#'     
-#'     \item{\code{prod}}{Produtividade da cultura na parcela
-#'     testemunha, em lb/acre.}
-#'     
-#'     \item{\code{satu}}{Saturação de bases em porcentagem.}
-#'     
-#'     \item{\code{ph}}{pH do solo.}
-#' 
+#'
+#' \item{\code{milho}}{Dados de resposta da cultura do milho ao fosfato
+#'     em porcentagem.}
+#'
+#' \item{\code{prod}}{Produtividade da cultura na parcela testemunha, em
+#'     lb/acre.}
+#'
+#' \item{\code{satu}}{Saturação de bases em porcentagem.}
+#'
+#' \item{\code{ph}}{pH do solo.}
+#'
 #' }
-#' 
-#' @keywords TODO
-#' 
-#' @source Demétrio, C. G. B., Zocchi, S. S. (2011). Modelos de
-#'     Regressão. Piracicaba: ESALQ. (Tabela 1.6 pág. 13)
-#' 
-#' @examples 
-#' 
+#' @keywords RM
+#' @source DEMÉTRIO; ZOCCHI (2011), Tabela 1.6 pág. 13.
+#' @examples
+#'
 #' data(DemetrioTb1.6)
-#' 
+#' str(DemetrioTb1.6)
+#'
 #' pairs(~ milho + prod + satu + ph, data = DemetrioTb1.6,
-#'      main = "Dispersão duas a duas")
+#'       main = "Dispersão duas a duas")
 #'
 #' cor(DemetrioTb1.6)
 #'
@@ -809,71 +719,60 @@ NULL
 
 #' @name DemetrioTb10.2
 #' @title Estudo em Plantas Nicotianas
-#' 
-#' @description Dados referentes ao comprimento do caule,
-#'     do ramo e do caule basal de plantas do gênero Nicotiana.
-#' 
-#' @format Um \code{data.frame} de 18 linhas e 3 colunas.
-#' 
+#' @description Dados referentes ao comprimento do caule, do ramo e do
+#'     caule basal de plantas do gênero Nicotiana.
+#' @format Um \code{data.frame} de 18 linhas e 3 colunas, em que
+#'
 #' \describe{
-#' 
-#'     \item{\code{caule}}{Comprimento do caule.}
-#' 
-#'     \item{\code{ramo}}{Comprimento do ramo.}
-#'     
-#'     \item{\code{basal}}{Comprimento do caule basal.}
-#'     
+#'
+#' \item{\code{caule}}{Comprimento do caule.}
+#'
+#' \item{\code{ramo}}{Comprimento do ramo.}
+#'
+#' \item{\code{basal}}{Comprimento do caule basal.}
+#'
 #' }
-#' 
-#' @keywords RM
-#' 
-#' @source Demétrio, C. G. B., Zocchi, S. S. (2011). Modelos de
-#'     Regressão. Piracicaba: ESALQ. (Tabela 10.2 pág. 161; Exercício 
-#'     5.4.7 pág. 164)
-#' 
+#'
+#' @keywords RM AnaFat
+#' @source DEMÉTRIO; ZOCCHI (2011), Tabela 10.2 pág. 161; Exercício
+#'     5.4.7 pág. 164.
 #' @examples
-#' 
+#'
 #' data(DemetrioTb10.2)
-#' 
-#' pairs(~ caule + basal + ramo , data = DemetrioTb10.2,
-#'      main = "Dispersão duas a duas")
+#' str(DemetrioTb10.2)
+#'
+#' pairs(~ caule + basal + ramo , data = DemetrioTb10.2)
 #'
 NULL
 
 #' @name DemetrioTb2.10
 #' @title Absor\enc{çã}{ca}o de CO2 por Folhas de Trigo
-#' 
 #' @description Dados provenientes de um ensaio inteiramente casualizado
 #'     onde aplicou-se \eqn{CO_2} sobre folhas de trigo a uma
 #'     temperatura de 35°C e mediu-se a quantia de \eqn{CO_2} absorvido
 #'     pelas folhas.
-#' 
-#' @format Um \code{data.frame} de 17 linhas e 2 colunas.
-#' 
+#' @format Um \code{data.frame} de 17 linhas e 2 colunas, em que
+#'
 #' \describe{
-#' 
-#'     \item{\code{co2}}{Concentração de \eqn{CO_2} aplicada sobre as
-#'     folhas de trigo.}
-#'     
-#'     \item{\code{absorv}}{Quantia de \eqn{CO_2} absorvida pelas folhas
-#'     de trigo, medida em \eqn{cm^3/dm^2/hora.}}
-#'     
+#'
+#' \item{\code{co2}}{Concentração de \eqn{CO_2} aplicada sobre as folhas
+#'     de trigo.}
+#'
+#' \item{\code{absorv}}{Quantia de \eqn{CO_2} absorvida pelas folhas de
+#'     trigo, medida em \eqn{cm^3/dm^2/hora.}}
+#'
 #' }
-#' 
-#' @keywords TODO
-#' 
-#' @source Demétrio, C. G. B., Zocchi, S. S. (2011). Modelos de
-#'     Regressão. Piracicaba: ESALQ. (Tabela 2.10 pág. 65, Exercício
-#'     1.4.1.3 pág. 14)
-#' 
-#' @examples 
-#' 
+#' @keywords RS
+#' @source DEMÉTRIO; ZOCCHI (2011), Tabela 2.10 pág. 65, Exercício
+#'     1.4.1.3 pág. 14.
+#' @examples
+#'
 #' data(DemetrioTb2.10)
-#' 
+#' str(DemetrioTb2.10)
+#'
 #' library(lattice)
-#' 
+#'
 #' xyplot(absorv ~ co2, data = DemetrioTb2.10,
-#'        main = "CO2 Aplicado VS Absorvido",
 #'        xlab = "Aplicado",
 #'        ylab = "Absorvido",
 #'        type = c("p", "r"), col.line = 3)
@@ -881,7 +780,7 @@ NULL
 #' # Subconjunto do exercício 1.4.1.3
 #' obs <- c(1, 2, 3, 5, 6, 7, 8, 11, 12, 16, 17)
 #' DemetrioEx1.4.1.3 <- DemetrioTb2.10[obs, ]
-#' 
+#'
 #' xyplot(absorv ~ co2, data = DemetrioEx1.4.1.3,
 #'        type = c("p", "r"), col.line = 3)
 #'
@@ -889,33 +788,29 @@ NULL
 
 #' @name DemetrioTb2.11
 #' @title Radia\enc{çã}{ca}o Gama em Explantes de Abacaxis
-#' 
 #' @description Dados provenientes de um experimento inteiramente
 #'     casualizado onde expuseram explantes de abacaxis a diferentes
 #'     doses de radiação gama e, 45 dias após a irradiação, mensurou-se
 #'     o peso destes explantes.
-#' 
-#' @format Um \code{data.frame} de 70 linhas e 2 colunas.
-#' 
+#' @format Um \code{data.frame} de 70 linhas e 2 colunas, em que
+#'
 #' \describe{
-#' 
-#'     \item{\code{dose}}{Dose de radiação gama a qual os
-#'     explantes de abacaxi foram expostos durante 45 dias.}
-#'     
-#'     \item{\code{absorv}}{Peso dos explantes de abacaxi após a
-#'     irradiação, medido em gramas (g).}
-#'     
+#'
+#' \item{\code{dose}}{Dose de radiação gama a qual os explantes de
+#'     abacaxi foram expostos durante 45 dias.}
+#'
+#' \item{\code{absorv}}{Peso dos explantes de abacaxi após a irradiação,
+#'     medido em gramas (g).}
+#'
 #' }
-#' 
-#' @keywords TODO
-#' 
-#' @source Demétrio, C. G. B., Zocchi, S. S. (2011). Modelos de
-#'     Regressão. Piracicaba: ESALQ. (Tabela 2.11 pág. 66)
-#' 
-#' @examples 
-#' 
+#'
+#' @keywords RS DIC
+#' @source DEMÉTRIO; ZOCCHI (2011), Tabela 2.11 pág. 66.
+#' @examples
+#'
 #' data(DemetrioTb2.11)
-#' 
+#' str(DemetrioTb2.11)
+#'
 #' library(lattice)
 #' # Estatísticas descritivas
 #' with(DemetrioTb2.11, tapply(peso, dose, summary))
@@ -939,37 +834,32 @@ NULL
 
 #' @name DemetrioTb2.12
 #' @title Produ\enc{çã}{ca}o de Ruibarbo
-#' 
 #' @description Dados de um experimento conduzido em delineamento de
 #'     blocos ao acaso onde foi mensurada a produção de ruibarbos para
 #'     enlatamento, considerando diferentes datas de colheita.
-#'     
-#' @format Um \code{data.frame} de 28 linhas e 3 colunas.
-#' 
+#' @format Um \code{data.frame} de 28 linhas e 3 colunas, em que
+#'
 #' \describe{
-#' 
-#'     \item{\code{data}}{Data de colheita dos ruibarbos. Obs.: Para
+#'
+#' \item{\code{data}}{Data de colheita dos ruibarbos. Obs.: Para
 #'     utilizar o formato \code{\link{Date}} foi considerado o ano 1983
 #'     (Date de publicação do livro que referencia os dados).}
-#'     
-#'     \item{\code{bloco}}{Fator que indica o bloco, para controle de
+#'
+#' \item{\code{bloco}}{Fator que indica o bloco, para controle de
 #'     variação, ao qual a observação pertence.}
-#'     
-#'     \item{\code{prod}}{Valor da produção de ruibarbo.}
-#'     
+#'
+#' \item{\code{prod}}{Valor da produção de ruibarbo.}
+#'
 #' }
-#' 
-#' @keywords TODO
-#' 
-#' @source Demétrio, C. G. B., Zocchi, S. S. (2011). Modelos de
-#'     Regressão. Piracicaba: ESALQ. (Tabela 2.12 pág. 66-67)
-#' 
-#' @examples 
-#' 
+#' @keywords RS DBC
+#' @source DEMÉTRIO; ZOCCHI (2011), Tabela 2.12 pág. 66-67.
+#' @examples
+#'
 #' data(DemetrioTb2.12)
-#' 
+#' str(DemetrioTb2.12)
+#'
 #' library(lattice)
-#' 
+#'
 #' # Estatísticas descritivas
 #' with(DemetrioTb2.12, tapply(prod, data, summary))
 #'
@@ -992,148 +882,114 @@ NULL
 
 #' @name DemetrioTb2.9
 #' @title Dados Gen\enc{é}{e}ricos para Regress\enc{ã}{a}o Simples
-#' 
 #' @description Dados para exercício analítico, com o objetivo de
 #'     estimar os parâmetros de forma pontual e intervalar, realizar a
 #'     ANOVA, entre outros.
-#' 
-#' @format Um \code{data.frame} de 10 linhas e 2 colunas.
-#' 
+#' @format Um \code{data.frame} de 10 linhas e 2 colunas, em que
+#'
 #' \describe{
-#' 
-#'     \item{\code{x}}{Variável independente, sem interpretação.}
-#'     
-#'     \item{\code{y}}{Variável dependente, sem interpretação.}
-#'     
+#'
+#' \item{\code{x}}{Variável independente, sem interpretação.}
+#'
+#' \item{\code{y}}{Variável dependente, sem interpretação.}
+#'
 #' }
-#' 
-#' @keywords TODO
-#' 
-#' @source Demétrio, C. G. B., Zocchi, S. S. (2011). Modelos de
-#'     Regressão. Piracicaba: ESALQ. (Tabela 2.9 pág. 64)
-#' 
-#' @examples 
-#' 
+#' @keywords RS
+#' @source DEMÉTRIO; ZOCCHI (2011), Tabela 2.9 pág. 64.
+#' @examples
+#'
 #' data(DemetrioTb2.9)
-#' 
+#' str(DemetrioTb2.9)
+#'
 #' library(lattice)
-#' 
+#'
 #' xyplot(y ~ x, data = DemetrioTb2.9,
-#'      main = "x vs y",
-#'      xlab = "x",
-#'      ylab = "y",
-#'      type = c("p", "r"), col.line = 3)
-#'      
-#' model <- lm(y ~ x, data = DemetrioTb2.9)
-#' summary(model)
-#' anova(model)
-#' 
+#'        main = "x vs y",
+#'        xlab = "x",
+#'        ylab = "y",
+#'        type = c("p", "r"), col.line = 3)
+#'
 NULL
 
 #' @name DemetrioTb3.5
-#' @title Dados Gen\enc{é}{e}ricos para Regress\enc{ã}{a}o M\enc{ú}{u}ltipla
-#' 
+#' @title Dados Gen\enc{é}{e}ricos para Regress\enc{ã}{a}o
+#'     M\enc{ú}{u}ltipla
 #' @description Dados para exercício de análise via modelo de regressão
 #'     linear múltipla.
-#' 
-#' @format Um \code{data.frame} de 6 linhas e 3 colunas.
-#' 
+#' @format Um \code{data.frame} de 6 linhas e 3 colunas, em que
+#'
 #' \describe{
-#' 
-#'     \item{\code{x1}}{Variável explicativa, sem interpretação.}
-#'     
-#'     \item{\code{x2}}{Variável explicativa, sem interpretação.}
-#'     
-#'     \item{\code{y}}{Variável dependente, sem interpretação.}
-#' 
+#'
+#' \item{\code{x1}}{Variável explicativa, sem interpretação.}
+#'
+#' \item{\code{x2}}{Variável explicativa, sem interpretação.}
+#'
+#' \item{\code{y}}{Variável dependente, sem interpretação.}
+#'
 #' }
-#' 
 #' @keywords RM
-#' 
-#' @source Demétrio, C. G. B., Zocchi, S. S. (2011). Modelos de
-#'     Regressão. Piracicaba: ESALQ. (Tabela 3.5 pág. 99)
-#'
-#' @references Hoffman, R., Vieira, S. (1983). Análise de Regressão. Uma
-#'     introdução à Econometria (2en ed.). São Paulo, SP: Ed. Hucitec.
-#' 
-#' @examples 
-#' 
+#' @source DEMÉTRIO; ZOCCHI (2011), Tabela 3.5 pág. 99.
+#' @examples
+#'
 #' data(DemetrioTb3.5)
-#' 
-#' pairs(~ x1 + x2 + y , data = DemetrioTb3.5,
-#'      main = "Dispersão duas a duas")
+#' str(DemetrioTb3.5)
 #'
-#' cor(DemetrioTb3.5)
+#' pairs(~ x1 + x2 + y , data = DemetrioTb3.5)
 #'
 NULL
 
 #' @name DemetrioTb3.6
-#' @title Dados Gen\enc{é}{e}ricos para Regress\enc{ã}{a}o M\enc{ú}{u}ltipla
-#' 
+#' @title Dados Gen\enc{é}{e}ricos para Regress\enc{ã}{a}o
+#'     M\enc{ú}{u}ltipla
 #' @description Dados para exercício de análise via modelo de regressão
 #'     linear múltipla com três variáveis explicativas.
+#' @format Um \code{data.frame} de 14 linhas e 4 colunas, em que
 #'
-#' @format Um \code{data.frame} de 14 linhas e 4 colunas.
-#' 
 #' \describe{
-#' 
-#'     \item{\code{x1}}{Variável explicativa, sem interpretação.}
-#'     
-#'     \item{\code{x2}}{Variável explicativa, sem interpretação.}
-#'     
-#'     \item{\code{x3}}{Variável explicativa, sem interpretação.}
-#'     
-#'     \item{\code{y}}{Variável dependente, sem interpretação.}
-#' 
+#'
+#' \item{\code{x1}}{Variável explicativa, sem interpretação.}
+#'
+#' \item{\code{x2}}{Variável explicativa, sem interpretação.}
+#'
+#' \item{\code{x3}}{Variável explicativa, sem interpretação.}
+#'
+#' \item{\code{y}}{Variável dependente, sem interpretação.}
+#'
 #' }
-#' 
 #' @keywords RM
-#' 
-#' @source Demétrio, C. G. B., Zocchi, S. S. (2011). Modelos de
-#'     Regressão. Piracicaba: ESALQ. (Tabela 3.6 pág. 99)
-#'
-#' @references Hoffman, R., Vieira, S. (1983). Análise de Regressão. Uma
-#'     introdução à Econometria (2en ed.). São Paulo, SP: Ed. Hucitec.
+#' @source DEMÉTRIO; ZOCCHI (2011), Tabela 3.6 pág. 99.
+#' @examples
 #'
-#' @examples 
-#' 
 #' data(DemetrioTb3.6)
-#' 
-#' pairs(~ x1 + x2 + x3 + y , data = DemetrioTb3.6,
-#'      main = "Dispersão duas a duas")
+#' str(DemetrioTb3.6)
 #'
-#' cor(DemetrioTb3.6)
+#' pairs(~ x1 + x2 + x3 + y , data = DemetrioTb3.6)
 #'
 NULL
 
 #' @name DemetrioTb4.2
 #' @title Sobreviv\enc{ê}{e}ncia de Ratos ap\enc{ó}{o}s Envenenamento
-#' 
-#' @description Os dados referem-se a tempos de sobrevivência de ratos 
-#'     após envenenamento com 4 tipos de venenos e 3 diferentes 
+#' @description Os dados referem-se a tempos de sobrevivência de ratos
+#'     após envenenamento com 4 tipos de venenos e 3 diferentes
 #'     tratamentos.
-#' 
-#' @format Um \code{data.frame} de 48 linhas e 3 colunas.
-#' 
+#' @format Um \code{data.frame} de 48 linhas e 3 colunas, em que
+#'
 #' \describe{
-#' 
-#'     \item{\code{tempo}}{Tempo de sobrevivência.}
-#' 
-#'     \item{\code{tipo}}{Tipo de veneno.}
-#'     
-#'     \item{\code{trat}}{Tipo de tratamento aplicado (não descrito o
-#'     que é o tratamento).}
-#' 
+#'
+#' \item{\code{tempo}}{Tempo de sobrevivência.}
+#'
+#' \item{\code{tipo}}{Tipo de veneno.}
+#'
+#' \item{\code{trat}}{Tipo de tratamento aplicado (não descrito o que é
+#'     o tratamento).}
+#'
 #' }
-#' 
-#' @keywords dummy
-#' 
-#' @source Demétrio, C. G. B., Zocchi, S. S. (2011). Modelos de
-#'     Regressão. Piracicaba: ESALQ. (Tabela 4.2 pág. 132)
-#' 
-#' @examples 
-#' 
+#' @keywords FAT2
+#' @source DEMÉTRIO; ZOCCHI (2011), Tabela 4.2 pág. 132.
+#' @examples
+#'
 #' data(DemetrioTb4.2)
+#' str(DemetrioTb4.2)
 #'
 #' xtabs(~tipo + trat, data = DemetrioTb4.2)
 #'
@@ -1143,37 +999,33 @@ NULL
 NULL
 
 #' @name DemetrioTb4.5
-#' @title Dados Simulados para Regress\enc{ã}{a}o Linear Simples e Polinomial
-#' 
+#' @title Dados Simulados para Regress\enc{ã}{a}o Linear Simples e
+#'     Polinomial
 #' @description Dados simulados para exercício de ajuste de modelos de
 #'     regressão linear simples e polinomial. São simulados, para uma
 #'     mesma covariável (x), quatro diferentes variáveis de interesse
 #'     (y).
-#' 
-#' @format Um \code{data.frame} de 9 linhas e 5 colunas.
-#' 
+#' @format Um \code{data.frame} de 9 linhas e 5 colunas, em que
+#'
 #' \describe{
-#' 
-#'     \item{\code{x}}{Variável explicativa, sem interpretação.}
-#' 
-#'     \item{\code{y1}}{Variável dependente, sem interpretação.}
-#'     
-#'     \item{\code{y2}}{Variável dependente, sem interpretação.}
-#'     
-#'     \item{\code{y3}}{Variável dependente, sem interpretação.}
-#'     
-#'     \item{\code{y4}}{Variável dependente, sem interpretação.} 
-#' 
+#'
+#' \item{\code{x}}{Variável explicativa, sem interpretação.}
+#'
+#' \item{\code{y1}}{Variável dependente, sem interpretação.}
+#'
+#' \item{\code{y2}}{Variável dependente, sem interpretação.}
+#'
+#' \item{\code{y3}}{Variável dependente, sem interpretação.}
+#'
+#' \item{\code{y4}}{Variável dependente, sem interpretação.}
+#'
 #' }
-#' 
-#' @keywords RS RP
-#' 
-#' @source Demétrio, C. G. B., Zocchi, S. S. (2011). Modelos de
-#'     Regressão. Piracicaba: ESALQ. (Tabela 4.5 pág. 137)
-#' 
+#' @keywords RS
+#' @source DEMÉTRIO; ZOCCHI (2011), Tabela 4.5 pág. 137.
 #' @examples
-#' 
+#'
 #' data(DemetrioTb4.5)
+#' str(DemetrioTb4.5)
 #'
 #' # Relação da covariável com cada uma das variáveis resposta
 #' par(mfrow = c(1, ncol(DemetrioTb4.5) - 1))
@@ -1191,83 +1043,70 @@ NULL
 
 #' @name DemetrioTb5.1
 #' @title Resposta da Cultura de Milho ao Fosfato
-#' 
-#' @description Dados referentes a um estudo sobre a resposta da 
-#'     cultura do milho em função da quantidade de fosfato, porcentagem
-#'     de saturação de bases e sílica em solos ácidos.
-#'     
-#'     Neste estudo a variável resposta, que está em porcentagem,
-#'     foi medida como a diferença entre as produções que receberam
-#'     fosfato e as que não receberam, dividida pelas produções
-#'     das parcelas que receberam fosfato, e multiplicado por 100. 
-#'     Considerando-se esses dados, foi obtida a variável produtividade
-#'     das parcelas que receberam fosfato, dada por 
-#'     \eqn{Y_1 = X_1(1 + \frac{Y}{100})}.
-#' 
-#' @format Um \code{data.frame} de 14 linhas e 4 colunas.
-#' 
+#' @description Dados referentes a um estudo sobre a resposta da cultura
+#'     do milho em função da quantidade de fosfato, porcentagem de
+#'     saturação de bases e sílica em solos ácidos.
+#'
+#'     Neste estudo a variável resposta, que está em porcentagem, foi
+#'     medida como a diferença entre as produções que receberam fosfato
+#'     e as que não receberam, dividida pelas produções das parcelas que
+#'     receberam fosfato, e multiplicado por 100.  Considerando-se esses
+#'     dados, foi obtida a variável produtividade das parcelas que
+#'     receberam fosfato, dada por \eqn{Y_1 = X_1(1 + \frac{Y}{100})}.
+#' @format Um \code{data.frame} de 14 linhas e 4 colunas, em que
+#'
 #' \describe{
-#' 
-#'     \item{\code{resp}}{Resposta da cultura do milho ao fosfato,
-#'     medida em porcentagem.}
-#' 
-#'     \item{\code{prod}}{Produtividade na testemunha, 
-#'     medida em libra por acre (lb/acre).}
-#'     
-#'     \item{\code{sat}}{Porcentagem de saturação de bases.}
-#'     
-#'     \item{\code{silica}}{Sílica (pH do solo).}
-#'     
+#'
+#' \item{\code{resp}}{Resposta da cultura do milho ao fosfato, medida em
+#'     porcentagem.}
+#'
+#' \item{\code{prod}}{Produtividade na testemunha, medida em libra por
+#'     acre (lb/acre).}
+#'
+#' \item{\code{sat}}{Porcentagem de saturação de bases.}
+#'
+#' \item{\code{silica}}{Sílica (pH do solo).}
+#'
 #' }
-#' 
 #' @keywords RM
-#' 
-#' @source Demétrio, C. G. B., Zocchi, S. S. (2011). Modelos de
-#'     Regressão. Piracicaba: ESALQ. (Tabela 5.1 pág. 157; Exercício
-#'     5.4.7 pág. 161; Exercício 5.4.7 pág. 167)
-#' 
+#' @source DEMÉTRIO; ZOCCHI (2011), Tabela 5.1 pág. 157; Exercício 5.4.7
+#'     pág. 161; Exercício 5.4.7 pág. 167.
 #' @examples
-#' 
+#'
 #' data(DemetrioTb5.1)
-#' 
-#' pairs(~ resp + prod + sat + silica , data = DemetrioTb5.1,
-#'      main = "Dispersão duas a duas")
+#' str(DemetrioTb5.1)
+#'
+#' pairs(~ resp + prod + sat + silica , data = DemetrioTb5.1)
 #'
 NULL
 
 #' @name DemetrioTb7.1
-#' @title Produ\enc{çã}{ca}o de Milho por Adubo
-#' 
+#' @title Produ\enc{çã}{ca} de Milho em Função da Adubação
 #' @description Os dados referem-se a produções de milho, em kg/parcela,
-#'     de um experimento casualizado em blocos de adubação com 
+#'     de um experimento casualizado em blocos de adubação com
 #'     diferentes doses de \eqn{P_2O_5}.
-#' 
-#' @format Um \code{data.frame} de 20 linhas e 3 colunas.
-#' 
+#' @format Um \code{data.frame} de 20 linhas e 3 colunas, em que
+#'
 #' \describe{
-#' 
-#'     \item{\code{dose}}{Dose de \eqn{P_2O_5}.}
-#' 
-#'     \item{\code{bloco}}{Bloco ao qual a observação pertence, para
+#'
+#' \item{\code{dose}}{Dose de \eqn{P_2O_5}.}
+#'
+#' \item{\code{bloco}}{Bloco ao qual a observação pertence, para
 #'     controle local de variação.}
-#'     
-#'     \item{\code{sat}}{Valor da produção de milho, medido em
-#'     kg/parcela.}
-#'     
+#'
+#' \item{\code{sat}}{Valor da produção de milho, medido em kg/parcela.}
+#'
 #' }
-#' 
-#' @keywords DBC RegSeg
-#' 
-#' @source Demétrio, C. G. B., Zocchi, S. S. (2011). Modelos de
-#'     Regressão. Piracicaba: ESALQ. (Tabela 7.1 pág. 195)
-#' 
+#' @keywords DBC RS
+#' @source DEMÉTRIO; ZOCCHI (2011), Tabela 7.1 pág. 195.
 #' @examples
-#' 
+#'
 #' data(DemetrioTb7.1)
-#' 
+#' str(DemetrioTb7.1)
+#'
 #' library(lattice)
+#'
 #' xyplot(producao ~ dose, groups = bloco, data = DemetrioTb7.1,
-#'     xlab = "Dose", ylab = "Produção")
-#' 
+#'        xlab = "Dose", ylab = "Produção")
+#'
 NULL
-