diff --git a/R/Banzatto.R b/R/Banzatto.R
index 691c75b424725183bc33a753aba30a759aa93088..dcadb17e66f41821a41e9ca37db8754ef60bf786 100644
--- a/R/Banzatto.R
+++ b/R/Banzatto.R
@@ -1,13 +1,14 @@
#' @name BanzattoQd1.2.3
-#' @title Di\enc{â}{a}metro \enc{à}{a} Altura do Peito de \emph{Eucalyptus saligna}
+#' @title Di\enc{â}{a}metro \enc{à}{a} Altura do Peito de
+#' \emph{Eucalyptus saligna}
#' @description Valores de diâmetro à altura do peito (DAP, cm) de uma
#' amostra aleatória de árvores de \emph{Eucalyptus saligna} de um
#' povoamento com 15 anos de idade.
#' @format Um vetor numérico com 20 elementos.
-#' @keywords amostra
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#' Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 1.2.3 pág. 3)
+#' @keywords AAS
+#' @source BANZATTO; KRONKA (2013), Quadro 1.2.3, pág. 3.
#' @examples
+#'
#' data(BanzattoQd1.2.3)
#'
#' hist(BanzattoQd1.2.3, prob = TRUE,
@@ -26,7 +27,7 @@
NULL
#' @name BanzattoQd3.2.1
-#' @title Controle de pulg\enc{ã}{a}o na cultura de pepino
+#' @title Controle de Pulg\enc{ã}{a}o na Cultura de Pepino
#' @description Dados de um experimento visando controle de pulgão
#' (\emph{Aphis gossypii} Glover) em cultura de pepino, instalado em
#' delineamento inteiramente casualizado com 6 repetições. A
@@ -47,9 +48,7 @@ NULL
#'
#' }
#' @keywords DIC contagem
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#' Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 3.2.1 pág.
-#' 44)
+#' @source BANZATTO; KRONKA (2013), Quadro 3.2.1, pág. 44.
#' @examples
#'
#' library(lattice)
@@ -70,7 +69,7 @@ NULL
#' cultivares de mandioca. O experimento foi instalado em
#' delineamento inteiramente casualizado devido a área ser homogênea
#' quanto às condições experimentais.
-#' @format Um \code{data.frame} com 25 observações e 3 variáveis.
+#' @format Um \code{data.frame} com 25 observações e 3 variáveis, em que
#'
#' \describe{
#'
@@ -85,9 +84,7 @@ NULL
#'
#' }
#' @keywords DIC
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#' Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 3.4.1 pág.
-#' 50)
+#' @source BANZATTO; KRONKA (2013), Quadro 3.4.1, pág. 50.
#' @examples
#'
#' library(lattice)
@@ -104,12 +101,13 @@ NULL
NULL
#' @name BanzattoQd3.6.1
-#' @title Produ\enc{çã}{ca}o de Mat\enc{é}{e}ria Seca em Cultivares de Sorgo
+#' @title Produ\enc{çã}{ca}o de Mat\enc{é}{e}ria Seca em Cultivares de
+#' Sorgo
#' @description Experimento em delineamento inteiramente casualizado
#' avaliando a produção de matéria de cultivares de sorgo. O
#' experimento é desbalanceado no número de repetições das
#' cultivares.
-#' @format Um \code{data.frame} com 30 observações e 3 variáveis.
+#' @format Um \code{data.frame} com 30 observações e 3 variáveis, em que
#'
#' \describe{
#'
@@ -123,9 +121,7 @@ NULL
#'
#' }
#' @keywords DIC desbalanceado
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#' Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 3.6.1 pág.
-#' 57)
+#' @source BANZATTO; KRONKA (2013), Quadro 3.6.1, pág. 57.
#' @examples
#' library(lattice)
#'
@@ -141,12 +137,13 @@ NULL
NULL
#' @name BanzattoQd3.7.1
-#' @title Composi\enc{çã}{ca}o do Substrato na Altura de \emph{Pinus oocarpa}
+#' @title Composi\enc{çã}{ca}o do Substrato na Altura de \emph{Pinus
+#' oocarpa}
#' @description Dados de experimento para estudo do efeito de 5
#' composições de substrato para o desenvolvimento de \emph{Pinus
#' oocarpa}. Experimento realizado em delineamento inteiramente
#' casualizado.
-#' @format Um \code{data.frame} com 20 observações e 3 variáveis.
+#' @format Um \code{data.frame} com 20 observações e 3 variáveis, em que
#'
#' \describe{
#'
@@ -163,9 +160,7 @@ NULL
#'
#' }
#' @keywords DIC contrastes
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#' Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 3.7.1 pág.
-#' 64)
+#' @source BANZATTO; KRONKA (2013), Quadro 3.7.1, pág. 64.
#' @examples
#'
#' library(lattice)
@@ -183,13 +178,13 @@ NULL
NULL
#' @name BanzattoQd4.5.2
-#' @title Efeito do Promalin sobre Furtos de Macieira
+#' @title Efeito do Promalin sobre a Produçaõ de Frutos de Macieira
#' @description Resultados de um experimento instalado na Fazenda
#' Chapadão, no município de Angatuba - SP. O delineamento
#' experimental foi o de blocos casualizados, sendo as parcelas
#' constituídas de 4 plantas espaçadas de 6 x 7 metros, com 12 anos
#' de idade na época da instalação do experimento.
-#' @format Um \code{data.frame} com 20 observações e 3 variáveis.
+#' @format Um \code{data.frame} com 20 observações e 3 variáveis, em que
#'
#' \describe{
#'
@@ -206,9 +201,7 @@ NULL
#'
#' }
#' @keywords DBC
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#' Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 4.5.2
-#' pág. 84)
+#' @source BANZATTO; KRONKA (2013), Quadro 4.5.2, pág. 84.
#'
#' Mestriner, J. C. (1980). Estudos dos efeitos do promalin sobre
#' frutos de macieiras (\emph{Malus} ssp) cultivares Brasil e
@@ -235,13 +228,14 @@ NULL
NULL
#' @name BanzattoQd4.7.1
-#' @title Compara\enc{çã}{ca}o de M\enc{é}{e}todos de Semeadura do Mamoeiro
+#' @title Compara\enc{çã}{ca}o de M\enc{é}{e}todos de Semeadura do
+#' Mamoeiro
#' @description Estudo realizado em Jaboticabal - SP por Ruiz (1977)
#' que comparou métodos de semeadura no mamoeiro. O experimento foi
#' instalado em delineamento de blocos casualizados, com 4
#' repetições, avaliando 3 métodos de semeadura. Foram avaliadas
#' duas unidades experimentais por método em cada bloco.
-#' @format Um \code{data.frame} com 24 observações e 3 variáveis.
+#' @format Um \code{data.frame} com 24 observações e 3 variáveis, em que
#'
#' \describe{
#'
@@ -256,9 +250,7 @@ NULL
#'
#' }
#' @keywords DBC
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#' Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 4.7.1
-#' pág. 93)
+#' @source BANZATTO; KRONKA (2013), Quadro 4.7.1, pág. 93.
#'
#' Ruiz, P. R. N. (1977). Estudo comparativo entre diferentes métodos de
#' semeadura na cultura do mamoeiro (\emph{Carica papaya}
@@ -285,7 +277,8 @@ NULL
NULL
#' @name BanzattoQd5.2.1
-#' @title Peneira e Densidade de Plantio na Produ\enc{çã}{ca}o de Amendoim
+#' @title Peneira e Densidade de Plantio na Produ\enc{çã}{ca}o de
+#' Amendoim
#' @description Dados de um experimento fatorial que estudou o efeito de
#' densidade de plantio e tamanho da peneiras comerciais, de crivos
#' circulares, para classificação das sementes da produção de
@@ -315,9 +308,7 @@ NULL
#' avaliações apenas no comprimento restante das duas linhas centrais, o
#' que resultou em uma área útil de 6 m\eqn{^2}.
#' @keywords DBC FAT2
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#' Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 5.2.1,
-#' pág. 102)
+#' @source BANZATTO; KRONKA (2013), Quadro 5.2.1, pág. 102.
#' @examples
#'
#' library(lattice)
@@ -363,9 +354,7 @@ NULL
#'
#' }
#' @keywords DIC FAT2
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#' Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 5.2.4,
-#' pág. 107)
+#' @source BANZATTO; KRONKA (2013), Quadro 5.2.4, pág. 107.
#' @examples
#'
#' library(lattice)
@@ -382,12 +371,14 @@ NULL
NULL
#' @name BanzattoQd5.3.1
-#' @title Produ\enc{çã}{ca}o de Caf\enc{é}{e} em Fun\enc{çã}{ca}o de Aduba\enc{çã}{ca}o NPK
+#' @title Produ\enc{çã}{ca}o de Caf\enc{é}{e} em Fun\enc{çã}{ca}o de
+#' Aduba\enc{çã}{ca}o NPK
#' @description Resultados de um experimento em arranjo fatorial triplo
#' 2 \eqn{\times} 2 \eqn{\times} 2, instalado em delineamento de
#' blocos casualizados, para estudar o efeito da combinação de
#' nitrogênio, fósforo e potássio na produção de café coco.
-#' @format Um \code{data.frame} com 48 observações e 5 variáveis.
+#' @format Um \code{data.frame} com 48 observações e 5 variáveis, em que
+#'
#' \describe{
#'
#' \item{\code{N}}{Variável numérica que indica ausência (0) ou
@@ -408,9 +399,7 @@ NULL
#'
#' }
#' @keywords DBC FAT3
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#' Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 5.3.1,
-#' pág. 113)
+#' @source BANZATTO; KRONKA (2013), Quadro 5.3.1, pág. 113.
#' @examples
#'
#' library(lattice)
@@ -437,11 +426,13 @@ NULL
NULL
#' @name BanzattoQd5.3.7
-#' @title Efici\enc{ê}{e}ncia na Utiliza\enc{çã}{ca}o de P por Cultivares de trigo
+#' @title Efici\enc{ê}{e}ncia na Utiliza\enc{çã}{ca}o de P por
+#' Cultivares de Trigo
#' @description Experimento em delineamento inteiramente casualizado que
#' avaliou o efeito a eficiência na utilização de fósforo por três
#' cultivares de trigo cultivadas em solo com e sem calagem.
-#' @format Um \code{data.frame} com 48 observações e 5 variáveis.
+#' @format Um \code{data.frame} com 48 observações e 5 variáveis, em que
+#'
#' \describe{
#'
#' \item{\code{cult}}{Cultivares de trigo usadas no experimento: BR 20
@@ -462,9 +453,7 @@ NULL
#'
#' }
#' @keywords DIC FAT3
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#' Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 5.3.7,
-#' pág. 120)
+#' @source BANZATTO; KRONKA (2013), Quadro 5.3.7, pág. 120.
#' @examples
#'
#' library(lattice)
@@ -500,7 +489,8 @@ NULL
#' graus de liberdade da interação tripla com o efeito dos blocos. O
#' grupo de confundimento adotado foi o W.
#' @format Um \code{data.frame} com 27 observações e 4 variáveis, em que
-#' \describe{
+#'
+#' \describe{
#'
#' \item{\code{N}}{Níveis codificados de nitrogênio (N) que representam
#' 0, 30 e 60 kg ha\eqn{^{-1}}. A fonte do N é o sulfato de amônio
@@ -529,9 +519,7 @@ NULL
#' híbrido de milho utilizado foi o HMD-7974.
#'
#' @keywords DBC FAT3 confundimento
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#' Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 5.5.1,
-#' pág. 131)
+#' @source BANZATTO; KRONKA (2013), Quadro 5.5.1, pág. 131.
#'
#' Vilalta, O. A. (1972). Avaliação da produção de milho (\emph{Zea
#' mays} L.) em função da adubação NPK em um latossolo
@@ -563,14 +551,15 @@ NULL
NULL
#' @name BanzattoQd6.2.2
-#' @title Espa\enc{ç}{c}amento de Plantio na Produ\enc{çã}{ca}o de Cana-de-a\enc{çú}{cu}car
+#' @title Espa\enc{ç}{c}amento de Plantio na Produ\enc{çã}{ca}o de
+#' Cana-de-a\enc{çú}{cu}car
#' @description O experimento avaliou o efeito do espaçamento de plantio
#' na produção de variedades de cana-de-açúcar. Para estudar os dois
#' fatores, espaçamento e variedades, considerou-se o delineamento
#' de blocos casualizados com arranjo de tratamentos de parcelas
#' subdivididas com o espaçamento sendo casualizado dentro dos
#' níveis de variedade.
-#' @format Um \code{data.frame} com 40 observações e 4 variáveis.
+#' @format Um \code{data.frame} com 40 observações e 4 variáveis, em que
#'
#' \describe{
#'
@@ -587,9 +576,7 @@ NULL
#'
#' }
#' @keywords DBC PS
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#' Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 6.2.2,
-#' pág. 138)
+#' @source BANZATTO; KRONKA (2013), Quadro 6.2.2, pág. 138.
#' @examples
#'
#' library(lattice)
@@ -622,7 +609,7 @@ NULL
#' instalado em delineamento de blocos casualizados com arranjo de
#' tratamento em parcela subdividida, sendo as doses casualizadas
#' dentro dos níveis de adubo.
-#' @format Um \code{data.frame} com 48 observações e 4 variáveis.
+#' @format Um \code{data.frame} com 48 observações e 4 variáveis, em que
#'
#' \describe{
#'
@@ -639,9 +626,7 @@ NULL
#'
#' }
#' @keywords DBC PS
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#' Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 6.2.5,
-#' pág. 144)
+#' @source BANZATTO; KRONKA (2013), Quadro 6.2.5, pág. 144.
#' @examples
#'
#' library(lattice)
@@ -679,13 +664,15 @@ NULL
NULL
#' @name BanzattoQd6.3.4
-#' @title \enc{É}{E}pocas de Plantio e Colheita na Produ\enc{çã}{ca}o de Beterraba
+#' @title \enc{É}{E}pocas de Plantio e Colheita na Produ\enc{çã}{ca}o de
+#' Beterraba
#' @description Experimento estudar o efeito de datas de plantio, épocas
#' de colheita e aplicação de inseticidas na produção de
#' beterraba. Os tratamentos foi arranjados em parcelas
#' sub-subdivididas no delineamento de blocos casualizados.
-#' @format Um \code{data.frame} com 72 observações e 5 variáveis.
-#' \describe{
+#' @format Um \code{data.frame} com 72 observações e 5 variáveis, em que
+#'
+#' \describe{
#'
#' \item{\code{data}}{Fator de níveis ordinais que representa as datas
#' de plantio de beterraba. Os níveis do fator data foram
@@ -707,9 +694,7 @@ NULL
#'
#' }
#' @keywords DBC PSS
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#' Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 6.3.4,
-#' pág. 156)
+#' @source BANZATTO; KRONKA (2013), Quadro 6.3.4, pág. 156.
#' @examples
#'
#' library(lattice)
@@ -738,13 +723,15 @@ NULL
NULL
#' @name BanzattoQd6.4.2
-#' @title \enc{É}{E}poca de Plantio e Aduba\enc{çã}{ca}o Nitrogenada em Beterraba
+#' @title \enc{É}{E}poca de Plantio e Aduba\enc{çã}{ca}o Nitrogenada em
+#' Beterraba
#' @description Experimento em delineamento de blocos casualizados cujos
#' níveis dos fatores, época de plantio e nitrogênio, foram
#' casualizados em faixas. A variável reposta observada foi a
#' produção de beterraba.
-#' @format Um \code{data.frame} com 80 observações e 4 variáveis.
-#' \describe{
+#' @format Um \code{data.frame} com 80 observações e 4 variáveis, em que
+#'
+#' \describe{
#'
#' \item{\code{nitro}}{Fator de níveis métricos que correspondem à
#' quantidade de nitrogênio aplicada, em libras por acre.}
@@ -771,9 +758,7 @@ NULL
#' \if{latex}{\figure{BanzattoQd6-4-2.png}{options: width=1.75in}}
#'
#' @keywords DBC EF
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#' Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 6.4.2,
-#' pág. 163)
+#' @source BANZATTO; KRONKA (2013), Quadro 6.4.2, pág. 163.
#' @examples
#'
#' library(lattice)
@@ -807,7 +792,7 @@ NULL
#' experimento foi instalado em delineamento inteiramente
#' casualizado e foram estudados 7 níveis de gesso, de 0 a 300,
#' igualmente espaçados em 50 kg ha\eqn{^{-1}}.
-#' @format Um \code{data.frame} com 28 observações e 3 variáveis.
+#' @format Um \code{data.frame} com 28 observações e 3 variáveis, em que
#'
#' \describe{
#'
@@ -818,10 +803,8 @@ NULL
#' \item{\code{peso}}{Peso de 1000 sementes de feijão, em gramas.}
#'
#' }
-#' @keywords DIC
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#' Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 7.2.1,
-#' pág. 170)
+#' @keywords DIC REG
+#' @source BANZATTO; KRONKA (2013), Quadro 7.2.1, pág. 170.
#'
#' Ragazzi, D. (1979). Efeito de doses de gesso na cultura do feijoeiro
#' (\emph{Phaseolus vulgaris} L.). Trabalho de Conclusão de Curso
@@ -843,13 +826,14 @@ NULL
NULL
#' @name BanzattoQd7.3.1
-#' @title Di\enc{â}{a}metro e Altura de Tubetes na Forma\enc{çã}{ca}o de Mudas de Eucalipto
+#' @title Di\enc{â}{a}metro e Altura de Tubetes na Forma\enc{çã}{ca}o de
+#' Mudas de Eucalipto
#' @description Experimento fatorial 3 \eqn{\times} 3 que avaliou o
#' efeito das dimensões do tubete (diâmetro e altura, 3 níveis cada)
#' na produção de mudas de eucalipto. O experimento foi instalado em
#' delineamento de blocos casualizados e a resposta medida foi a
#' altura das mudas 75 dias após a semeadura.
-#' @format Um \code{data.frame} com 27 observações e 4 variáveis.
+#' @format Um \code{data.frame} com 27 observações e 4 variáveis, em que
#'
#' \describe{
#'
@@ -864,9 +848,7 @@ NULL
#'
#' }
#' @keywords DBC FAT2
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#' Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 7.3.1,
-#' pág. 177)
+#' @source BANZATTO; KRONKA (2013), Quadro 7.3.1, pág. 177.
#' @examples
#'
#' library(lattice)
@@ -877,7 +859,8 @@ NULL
#'
#' xtabs(~at + dt, data = BanzattoQd7.3.1)
#'
-#' with(BanzattoQd7.3.1, addmargins(tapply(alt, list(at, dt), FUN = mean)))
+#' with(BanzattoQd7.3.1,
+#' addmargins(tapply(alt, list(at, dt), FUN = mean)))
#'
#' xyplot(alt ~ at, data = BanzattoQd7.3.1,
#' groups = dt, type = c("p", "a", "g"),
@@ -894,7 +877,7 @@ NULL
#' fator qualitativo e outro quantitativo. O experimento está em
#' delineamento de blocos casualizados e a resposta é a produção da
#' cultura.
-#' @format Um \code{data.frame} com 32 observações e 4 variáveis.
+#' @format Um \code{data.frame} com 32 observações e 4 variáveis, em que
#'
#' \describe{
#'
@@ -909,9 +892,7 @@ NULL
#'
#' }
#' @keywords DBC FAT2
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#' Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 7.3.3,
-#' pág. 182)
+#' @source BANZATTO; KRONKA (2013), Quadro 7.3.3, pág. 182.
#' @examples
#'
#' library(lattice)
@@ -941,7 +922,8 @@ NULL
#' Guaíra - SP. Os ensaios foram instalados no delineamento de
#' blocos casualizados com 4 repetições. A variável resposta é a
#' produção de tubérculos, em t ha\eqn{^{-1}}.
-#' @format Um \code{data.frame} com 160 observações e 4 variáveis.
+#' @format Um \code{data.frame} com 160 observações e 4 variáveis, em
+#' que
#'
#' \describe{
#'
@@ -957,10 +939,8 @@ NULL
#' \item{\code{prod}}{Produção de tubérculos, em tom ha\eqn{^{-1}}.}
#'
#' }
-#' @keywords DBC GE
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#' Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 8.2.1,
-#' pág. 190)
+#' @keywords GE
+#' @source BANZATTO; KRONKA (2013), Quadro 8.2.1, pág. 190.
#'
#' Filgueira, F. A. R. (1991). Interação genótipo ambiente em batata
#' (\emph{Solanum tuberosum} L. spp \emph{tuberosum}). Tese
@@ -990,13 +970,14 @@ NULL
NULL
#' @name BanzattoQd8.3.1
-#' @title Grupo de Ensaios de Competi\enc{çã}{ca}o de Gen\enc{ó}{o}tipos de Batata
+#' @title Grupo de Ensaios de Competi\enc{çã}{ca}o de Gen\enc{ó}{o}tipos
+#' de Batata
#' @description Grupo de ensaios de competição de genótipos de batata
#' realizado por Filgueira (1991) em Anápolis - GO. Cada experimento
#' foi instalado em delineamento de blocos casualizados com 4
#' repetições. A variável resposta foi a produção, em t
#' ha\eqn{^{-1}}, de batata.
-#' @format Um \code{data.frame} com 40 observações e 3 variáveis.
+#' @format Um \code{data.frame} com 40 observações e 3 variáveis, em que
#'
#' \describe{
#'
@@ -1017,10 +998,8 @@ NULL
#' em cada um dos experimentos. As estimativas dos quadrados médios
#' residuais em cada experimento estão disponíveis no atributo
#' \code{"qmr"} do objeto.
-#' @keywords GE DBC
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#' Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 8.3.1,
-#' pág. 196)
+#' @keywords GE
+#' @source BANZATTO; KRONKA (2013), Quadro 8.3.1, pág. 196.
#'
#' Filgueira, F. A. R. (1991). Interação genótipo ambiente em batata
#' (\emph{Solanum tuberosum} L. spp \emph{tuberosum}). Tese
@@ -1051,11 +1030,12 @@ NULL
NULL
#' @name BanzattoQd8.4.1
-#' @title Grupo de Ensaios de Competi\enc{çã}{ca}o de Gen\enc{ó}{o}tipos de Cebola
+#' @title Grupo de Ensaios de Competi\enc{çã}{ca}o de Gen\enc{ó}{o}tipos
+#' de Cebola
#' @description Grupo de experimentos de competição de genótipos de
#' cebola realizado por Santos (2003). O delineamento considerado em
#' cada ensaio não foi informado.
-#' @format Um \code{data.frame} com 60 observações e 3 variáveis.
+#' @format Um \code{data.frame} com 60 observações e 3 variáveis, em que
#'
#' \describe{
#'
@@ -1070,9 +1050,7 @@ NULL
#'
#' }
#' @keywords GE
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#' Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 8.4.1,
-#' pág. 200)
+#' @source BANZATTO; KRONKA (2013), Quadro 8.4.1, pág. 200.
#'
#' Santos, G. M. (2003). Adaptabilidade e estabilidade de genótipos de
#' cebola. Tese (Doutorado em Genética e Melhoramento de
@@ -1101,12 +1079,13 @@ NULL
NULL
#' @name BanzattoQd8.4.3
-#' @title Grupo de Experimentos de Aduba\enc{çã}{ca}o Nitrogenada em Milho
+#' @title Grupo de Experimentos de Aduba\enc{çã}{ca}o Nitrogenada em
+#' Milho
#' @description Dados referentes à produção de milho em grãos de ensaios
#' fatoriais \eqn{3^3} de adubação NPK na cultura do milho. Os
#' experimentos foram realizados em 8 locais. O delineamento
#' experimental não foi informado.
-#' @format Um \code{data.frame} com 24 observações e 3 variáveis.
+#' @format Um \code{data.frame} com 24 observações e 3 variáveis, em que
#'
#' \describe{
#'
@@ -1126,9 +1105,7 @@ NULL
#' O \code{data.frame} possui um atributo com os quadrados médios
#' residuais em cada experimento.
#' @keywords GE
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#' Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 8.4.3,
-#' pág. 202)
+#' @source BANZATTO; KRONKA (2013), Quadro 8.4.3, pág. 202.
#' @examples
#'
#' library(lattice)
@@ -1156,7 +1133,7 @@ NULL
#' de cultivares de milho. O experimento foi instalado em
#' delineamento de blocos casualizados. Além da produção em cada
#' parcela, contou-se o número de plantas por parcela (stand)
-#' @format Um \code{data.frame} com 24 observações e 6 variáveis.
+#' @format Um \code{data.frame} com 24 observações e 6 variáveis, em que
#'
#' \describe{
#'
@@ -1184,9 +1161,7 @@ NULL
#' níveis.
#'
#' @keywords DBC COV
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#' Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 9.2.1,
-#' pág. 206)
+#' @source BANZATTO; KRONKA (2013), Quadro 9.2.1, pág. 206.
#' @examples
#'
#' library(lattice)
@@ -1205,4 +1180,3 @@ NULL
#' ylab = expression("Produção"~(g~parcela^{-1})))
#'
NULL
-
diff --git a/R/Barbin.R b/R/Barbin.R
index 1dd3be559e41f2bd228a1456365e7c38af9603a4..f66c20b57a9ec28d946be06c73ca03d0e9089dc1 100644
--- a/R/Barbin.R
+++ b/R/Barbin.R
@@ -5,9 +5,7 @@
#' no espaçamento 2\eqn{\times}2,5 metros.
#' @format Um vetor com 50 elementos de valor numérico.
#' @keywords AAS
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#' Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#' Mecenas. (Exercício 1, pág. 199)
+#' @source BARBIN (2013), Exercício 1, pág. 199.
#' @examples
#'
#' library(latticeExtra)
@@ -56,12 +54,13 @@
NULL
#' @name BarbinEx13
-#' @title Di\enc{â}{a}metro M\enc{é}{e}dio do Tronco de Esp\enc{é}{e}cies de Eucalipto
+#' @title Di\enc{â}{a}metro M\enc{é}{e}dio do Tronco de
+#' Esp\enc{é}{e}cies de Eucalipto
#' @description Diâmetro médio (cm), aos 5 anos de idade, de plantas
#' úteis da parcela de um ensaio fatorial 2 \eqn{\times} 4, em
#' blocos casualizados com 3 repetições, conduzido por H. A. Mello e
#' outros, Mogi-Guaçu (1966-1971).
-#' @format Um \code{data.frame} com 24 observações e 4 variáveis.
+#' @format Um \code{data.frame} com 24 observações e 4 variáveis, em que
#'
#' \describe{
#'
@@ -77,9 +76,7 @@ NULL
#'
#' }
#' @keywords DBC FAT2
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#' Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#' Mecenas. (Exercício 13, pág. 206)
+#' @source BARBIN (2013), Exercício 13, pág. 206.
#' @examples
#'
#' library(lattice)
@@ -103,7 +100,7 @@ NULL
#' @description Ensaio fatorial de adubação NPK, fatorial \eqn{2^3}, com
#' resultados referentes à produção de milho (kg ha\eqn{^{-1}}),
#' conduzido em delineamento de blocos casualizados em Limoeiro, PE.
-#' @format Um \code{data.frame} com 24 observações e 5 variáveis.
+#' @format Um \code{data.frame} com 24 observações e 5 variáveis, em que
#'
#' \describe{
#'
@@ -122,9 +119,7 @@ NULL
#'
#' }
#' @keywords DBC FAT3
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#' Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#' Mecenas. (Exercício 14, pág. 206)
+#' @source BARBIN (2013), Exercício 14, pág. 206.
#' @examples
#'
#' library(lattice)
@@ -154,7 +149,7 @@ NULL
#' delineamento inteiramente casualizado, portanto este é o fator da
#' parcela. O corte é o fator da subparcela porque são medidas
#' repetidas (no tempo, inclusive) na mesma unidade experimental.
-#' @format Um \code{data.frame} com 40 observações e 4 variáveis.
+#' @format Um \code{data.frame} com 40 observações e 4 variáveis, em que
#'
#' \describe{
#'
@@ -174,9 +169,7 @@ NULL
#'
#' }
#' @keywords PS FAT2
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#' Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#' Mecenas. (Exercício 16, pág. 208)
+#' @source BARBIN (2013), Exercício 16, pág. 208.
#' @examples
#'
#' library(lattice)
@@ -200,7 +193,8 @@ NULL
NULL
#' @name BarbinEx17
-#' @title Efeito do Espa\enc{ç}{c}amento na Produtividade de Laranjeira Val\enc{ê}{e}ncia
+#' @title Efeito do Espa\enc{ç}{c}amento na Produtividade de Laranjeira
+#' Val\enc{ê}{e}ncia
#' @description Dados de produtividade de laranja, em kg por planta, de
#' um ensaio em blocos casualizados estudando o efeito do
#' espaçamento de plantio de laranjeira Valência (clone novo) sobre
@@ -225,9 +219,7 @@ NULL
#'
#' }
#' @keywords DBC PS FAT2
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#' Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#' Mecenas. (Exercício 17, pág. 209)
+#' @source BARBIN (2013), Exercício 17, pág. 209.
#' @examples
#'
#' library(lattice)
@@ -257,7 +249,8 @@ NULL
NULL
#' @name BarbinEx18
-#' @title Altura de Plantas de Esp\enc{é}{e}cies de Eucalipto em V\enc{á}{a}rios Locais
+#' @title Altura de Plantas de Esp\enc{é}{e}cies de Eucalipto em
+#' V\enc{á}{a}rios Locais
#' @description Dados referentes à altura de plantas de eucalipto, com 3
#' anos de idade, em ensaios inteiramente casualizados estudando o
#' efeito da espécie de eucalipto em vários municípios (grupo de
@@ -283,9 +276,7 @@ NULL
#'
#' }
#' @keywords GE DIC
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#' Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#' Mecenas. (Exercício 18, pág. 210)
+#' @source BARBIN (2013), Exercício 18, pág. 210.
#' @examples
#'
#' library(lattice)
@@ -304,25 +295,25 @@ NULL
NULL
#' @name BarbinEx3
-#' @title Podrid\enc{ã}{a}o Mole de Manga em Fun\enc{çã}{ca}o do Tratamento T\enc{é}{e}rmico
+#' @title Podrid\enc{ã}{a}o Mole de Manga em Fun\enc{çã}{ca}o do
+#' Tratamento T\enc{é}{e}rmico
#' @description Os dados referem-se as notas (médias de 6 frutos)
#' atribuídas a podridão mole de manga (fruto) sob diferentes
#' tratamentos térmicos, de um experimento inteiramente ao acaso
#' realizado pelo Prof. Vladimir R. Sampaio, do Departamento de
#' Horticultura, ESALQ-USP.
-#' @format Um \code{data.frame} com 28 observações e 2 variáveis.
+#' @format Um \code{data.frame} com 28 observações e 2 variáveis, em que
#' \describe{
#'
-#' \item{\code{tterm}}{Fator categórico que indica o tratamento térmico.}
+#' \item{\code{tterm}}{Fator categórico que indica o tratamento
+#' térmico.}
#'
#' \item{\code{nota}}{Nota atribuída a podridão mole de manga, valor
#' resultante da média de 6 frutos avaliados.}
#'
#' }
#' @keywords DIC
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#' Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#' Mecenas. (Exercício 3, pág. 119)
+#' @source BARBIN (2013), Exercício 3, pág. 119.
#' @examples
#'
#' library(lattice)
@@ -344,7 +335,7 @@ NULL
#' \emph{E. saligna} Sm., de um ensaio inteiramente casualizado, de
#' controle químico de "Damping-off" conduzido por Krugner (1971).
#'
-#' @format Um \code{data.frame} com 45 observações e 3 variáveis.
+#' @format Um \code{data.frame} com 45 observações e 3 variáveis, em que
#'
#' \describe{
#'
@@ -360,9 +351,7 @@ NULL
#'
#' }
#' @keywords DBC
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#' Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#' Mecenas. (Exercício 8, pág. 202)
+#' @source BARBIN (2013), Exercício 8, pág. 202.
#'
#' Krugner, T. L. Controle químico do "damping-off" em
#' eucalipto. Piracicaba, 1971. 60p. Dissertação (Mestrado) - Escola
@@ -387,14 +376,15 @@ NULL
#' @name BarbinEx9
#' @aliases BarbinEx10
-#' @title Ensaio de Competi\enc{çã}{ca}o de Clones de Laranja Pera-do-Rio
+#' @title Ensaio de Competi\enc{çã}{ca}o de Clones de Laranja
+#' Pera-do-Rio
#' @description Ensaio de competição de 13 clones de laranja Pera-do-Rio
#' onde foram obtidos os resultados de produção, em kg de frutos
#' planta, para o ano de 1987, em que as plantas estavam com 16 anos
#' de idade. O ensaio foi conduzido pelo Dr. Joaquim Teófilo Sobrino
#' em delineamento de blocos ao acaso na Estação Experimental de
#' Limeira, do IAC.
-#' @format Um \code{data.frame} com 78 observações e 4 variáveis.
+#' @format Um \code{data.frame} com 78 observações e 4 variáveis, em que
#'
#' \describe{
#'
@@ -413,9 +403,7 @@ NULL
#' @details O dataset \code{BarbinEx10} resulta de uma agregação dos
#' dados do \code{BarbinEx9} que está disponível na seção Examples.
#' @keywords DBC
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#' Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#' Mecenas. (Exercício 9, pág. 203)
+#' @source BARBIN (2013), Exercício 9, pág. 203.
#' @examples
#'
#' library(latticeExtra)
@@ -469,9 +457,7 @@ NULL
#'
#' }
#' @keywords DQL
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#' Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#' Mecenas. (pág. 104)
+#' @source BARBIN (2013), pág. 104.
#' @examples
#'
#' library(lattice)
@@ -503,7 +489,8 @@ NULL
NULL
#' @name BarbinPg114
-#' @title Influ\enc{ê}{e}ncia do Aparelho e Operador na Medi\enc{çã}{ca}o de \enc{Á}{A}rvores
+#' @title Influ\enc{ê}{e}ncia do Aparelho e Operador na
+#' Medi\enc{çã}{ca}o de \enc{Á}{A}rvores
#' @description Dados de um experimento fatorial 5 \eqn{\times} 4, em
#' delineamento de blocos casualizados, sobre e influência do
#' aparelho e do operador na determinação de altura de árvores, aos
@@ -520,7 +507,8 @@ NULL
#' sorteio continuava até as combinações fossem realizadas na
#' árvore, então passava-se para a próxima árvore. Evidentemente, a
#' medida feita com o trena ficava sempre para o final (testemunha).
-#' @format Um \code{data.frame} com 200 observações e 4 variáveis.
+#' @format Um \code{data.frame} com 200 observações e 4 variáveis, em
+#' que
#'
#' \describe{
#'
@@ -541,9 +529,7 @@ NULL
#'
#' }
#' @keywords DBC FAT2
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#' Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#' Mecenas. (pág. 114)
+#' @source BARBIN (2013), pág. 114.
#'
#' Simões, J. W., Mello, H. A., Barbin, D. (1967). Eficiência dos
#' aparelhos e e influência do operador na medição de altura total
@@ -584,7 +570,7 @@ NULL
#' com dois níveis (fatorial \eqn{2^3}), na produção de café
#' coco. Os níveis dos fertilizantes foram codificados para 0 e 1 e
#' não foi informada as doses reais de cada um deles.
-#' @format Um \code{data.frame} com 48 observações e 5 variáveis.
+#' @format Um \code{data.frame} com 48 observações e 5 variáveis, em que
#'
#' \describe{
#'
@@ -593,7 +579,8 @@ NULL
#'
#' \item{\code{P}}{Inteiro que codifica dois níveis de fósforo (0 e 1).}
#'
-#' \item{\code{K}}{Inteiro que codifica dois níveis de potássio (0 e 1).}
+#' \item{\code{K}}{Inteiro que codifica dois níveis de potássio (0 e
+#' 1).}
#'
#' \item{\code{bloc}}{Fator de níveis categóricos considerado para
#' controle local.}
@@ -604,9 +591,7 @@ NULL
#'
#' }
#' @keywords DBC FAT3
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#' Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#' Mecenas. (pág. 125)
+#' @source BARBIN (2013), pág. 125).
#' @examples
#'
#' library(lattice)
@@ -627,13 +612,14 @@ NULL
NULL
#' @name BarbinPg137
-#' @title Aduba\enc{çã}{ca}o NPK na Produ\enc{çã}{ca}o de Algod\enc{ã}{a}o Herb\enc{á}{a}ceo
+#' @title Aduba\enc{çã}{ca}o NPK na Produ\enc{çã}{ca}o de
+#' Algod\enc{ã}{a}o Herb\enc{á}{a}ceo
#' @description Produção de algodão herbáceo de um ensaio de adubação
#' NPK \eqn{3^3} com confundimento (grupo W) de dois graus de
#' liberdade da interação tripla. Cada combinação NPK teve duas
#' repetições por bloco e o ensaio foi conduzido por Cavalcanti
#' (1977) em Pernambuco.
-#' @format Um \code{data.frame} com 54 observações e 6 variáveis.
+#' @format Um \code{data.frame} com 54 observações e 6 variáveis, em que
#' \describe{
#'
#' \item{\code{N}}{Dose de nitrogênio (kg ha\eqn{^{-1}}) usada na
@@ -656,9 +642,7 @@ NULL
#'
#' }
#' @keywords DBC FAT3 confundimento
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#' Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#' Mecenas. (pág. 137)
+#' @source BARBIN (2013), pág. 137.
#'
#' Cavalcanti, F. B. (1977). A adubação mineral na cultura do algodão
#' (\emph{Gossypium hirsutum} L.) no Estado de
@@ -703,7 +687,8 @@ NULL
NULL
#' @name BarbinPg156
-#' @title Aplica\enc{çã}{ca}o de Aduba\enc{çã}{ca}o Fosfatada na Produ\enc{çã}{ca}o de Milho
+#' @title Aplica\enc{çã}{ca}o de Aduba\enc{çã}{ca}o Fosfatada na
+#' Produ\enc{çã}{ca}o de Milho
#' @description Dados de um ensaio de adubação fosfatada em milho,
#' realizado no esquema de parcelas subdivididas em delineamento de
#' blocos ao acaso, que avaliou o efeito da forma de aplicação da
@@ -727,9 +712,7 @@ NULL
#'
#' }
#' @keywords PS DBC
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#' Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#' Mecenas. (pág. 156)
+#' @source BARBIN (2013), pág. 156.
#' @examples
#'
#' library(lattice)
@@ -748,7 +731,8 @@ NULL
NULL
#' @name BarbinPg167
-#' @title Produ\enc{çã}{ca}o de Porta-enxertos para Laranjeira em V\enc{á}{a}rias Safras
+#' @title Produ\enc{çã}{ca}o de Porta-enxertos para Laranjeira em
+#' V\enc{á}{a}rias Safras
#' @description Dados de produção de laranja de um ensaio de competição
#' de porta-enxertos para laranjeira Valência realizado na Estação
#' Experimental de Limeira, em delineamento de blocos casualizados.
@@ -770,9 +754,7 @@ NULL
#'
#' }
#' @keywords PS DBC
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#' Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#' Mecenas. (pág. 167)
+#' @source BARBIN (2013), pág. 167.
#' @examples
#'
#' library(latticeExtra)
@@ -796,7 +778,8 @@ NULL
NULL
#' @name BarbinPg177
-#' @title Altura de Prog\enc{ê}{e}nies de \emph{E. grandis} em Tr\enc{ê}{e}s Locais
+#' @title Altura de Prog\enc{ê}{e}nies de \emph{E. grandis} em
+#' Tr\enc{ê}{e}s Locais
#' @description Dados de experimento que mediu a altura (m) de árvores
#' seis progênies de \emph{Eucaliptus grandis} em experimentos
#' instalados em 3 locais sob o delineamento de blocos casualizados.
@@ -818,9 +801,7 @@ NULL
#'
#' }
#' @keywords GE DBC
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#' Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#' Mecenas. (pág. 177)
+#' @source BARBIN (2013), pág. 177.
#' @examples
#'
#' library(latticeExtra)
@@ -843,7 +824,7 @@ NULL
#' foram comparadas quatro cultivares de pêssego quando ao
#' enraizamento de estacas. Experimento foi instalado em
#' delineamento inteiramente casualizado.
-#' @format Um \code{data.frame} com 20 observações e 2 variáveis.
+#' @format Um \code{data.frame} com 20 observações e 2 variáveis, em que
#'
#' \describe{
#'
@@ -859,9 +840,7 @@ NULL
#' posição das observações consideradas perdidas para se ilustrar a
#' análise do experimento com número não igual de repetições.
#' @keywords DIC
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#' Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#' Mecenas. (pág. 25)
+#' @source BARBIN (2013), pág. 25.
#'
#' Sambão, J. C., Sampaio, V. R., Barbin, D. (1982). Enraizamento de
#' estacas herbáceas de pessegueiro (\emph{Prunus persica}
@@ -886,7 +865,7 @@ NULL
#' @description Dados de produção de laranjeira aos 12 anos de idade sob
#' diferentes porta-enxertos. O experimento foi instalado em
#' delineamento de blocos casualizados.
-#' @format Um \code{data.frame} com 27 observações e 3 variáveis.
+#' @format Um \code{data.frame} com 27 observações e 3 variáveis, em que
#'
#' \describe{
#'
@@ -904,9 +883,7 @@ NULL
#' consideradas como perdidas para ilustrar como fazer a análise do
#' experimento desbalanceado.
#' @keywords DBC
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#' Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#' Mecenas. (pág. 72)
+#' @source BARBIN (2013), pág. 72.
#'
#' Teófilo Sobrinho, J. (1972). Comportamento da laranjeira valência
#' (\emph{Citrus sinensis} L., Osbeck) sob diferentes
@@ -926,4 +903,3 @@ NULL
#' ylab = "Número médio de frutos por planta")
#'
NULL
-
diff --git a/R/Costa.R b/R/Costa.R
index 26153fe289952c0bf1e6450ec6dfa421c7f3c724..1c9e6ff2980c63638823b4f178598fde41b4464f 100644
--- a/R/Costa.R
+++ b/R/Costa.R
@@ -1,5 +1,6 @@
#' @name CostaEx5.7.2
-#' @title Densidade do Solo ao Longo do Perfil em Zonas de Compacta\enc{çã}{ca}o
+#' @title Densidade do Solo ao Longo do Perfil em Zonas de
+#' Compacta\enc{çã}{ca}o
#' @description Os dados são resultados de um estudo feito em zonas de
#' compactação e referem-se a valores de densidade do solo em
#' amostras retiradas de diferentes profundidades no perfil do solo.
@@ -14,10 +15,8 @@
#' amostra retirada do perfil do solo.}
#'
#' }
-#' @keywords TODO
-#' @source Costa, J. R. (2003). Técnicas experimentais aplicadas às
-#' ciências agrárias (Documentos 163). Seropédica, RJ: Embrapa
-#' Agrobiologia. (Exemplo 5.7.2.1, pág. 90)
+#' @keywords RL
+#' @source Costa (2013), Exemplo 5.7.2.1, pág. 90.
#' @examples
#'
#' library(lattice)
@@ -51,9 +50,7 @@ NULL
#'
#' }
#' @keywords DIC RegSeg
-#' @source Costa, J. R. (2003). Técnicas experimentais aplicadas às
-#' ciências agrárias (Documentos 163). Seropédica, RJ: Embrapa
-#' Agrobiologia. (Exemplo 5.7.3.1, pág. 95)
+#' @source Costa (2013), Exemplo 5.7.3.1, pág. 95.
#' @examples
#'
#' library(lattice)
@@ -90,9 +87,7 @@ NULL
#'
#' }
#' @keywords DIC
-#' @source Costa, J. R. (2003). Técnicas experimentais aplicadas às
-#' ciências agrárias (Documentos 163). Seropédica, RJ: Embrapa
-#' Agrobiologia. (Tabela 4, pág. 58)
+#' @source Costa (2013), Tabela 4, pág. 58.
#' @examples
#'
#' library(lattice)
@@ -130,9 +125,7 @@ NULL
#'
#' }
#' @keywords DBC
-#' @source Costa, J. R. (2003). Técnicas experimentais aplicadas às
-#' ciências agrárias (Documentos 163). Seropédica, RJ: Embrapa
-#' Agrobiologia. (Tabela 6 pág. 63)
+#' @source Costa (2013), Tabela 6 pág. 63.
#' @examples
#'
#' library(lattice)
@@ -176,9 +169,7 @@ NULL
#'
#' }
#' @keywords DBC FAT2
-#' @source Costa, J. R. (2003). Técnicas experimentais aplicadas às
-#' ciências agrárias (Documentos 163). Seropédica, RJ: Embrapa
-#' Agrobiologia. (Tabela 7, pág. 68)
+#' @source Costa (2013), Tabela 7, pág. 68.
#' @examples
#'
#' library(lattice)
@@ -205,7 +196,8 @@ NULL
NULL
#' @name CostaTb8
-#' @title Irriga\enc{çã}{ca}o no Tamanho de Frutos de Variedades de Banana
+#' @title Irriga\enc{çã}{ca}o no Tamanho de Frutos de Variedades de
+#' Banana
#' @description Experimento em parcelas subdivididas que estudou o
#' comprimento de frutos de variedades de banana em função do nível
#' de irrigação fornecido.
@@ -231,9 +223,7 @@ NULL
#'
#' }
#' @keywords DBC PS
-#' @source Costa, J. R. (2003). Técnicas experimentais aplicadas às
-#' ciências agrárias (Documentos 163). Seropédica, RJ: Embrapa
-#' Agrobiologia. (Tabela 8, pág. 76)
+#' @source Costa (2013), Tabela 8, pág. 76.
#' @examples
#'
#' library(lattice)
@@ -258,4 +248,3 @@ NULL
#' ylab = expression("Comprimento do fruto"~(cm)))
#'
NULL
-
diff --git a/R/Dias.R b/R/Dias.R
index a85fdb7ac159f064e80f481bb4875840b2ac48e2..3a630036cf3dd71e4117b91cf2a78423874d066e 100644
--- a/R/Dias.R
+++ b/R/Dias.R
@@ -1,6 +1,6 @@
#' @name DiasEg10.1
-#' @title Subst\enc{â}{a}ncias Alelo\enc{á}{a}ticas no Percentual de Germina\enc{çã}{ca}o de
-#' Sementes
+#' @title Subst\enc{â}{a}ncias Alelo\enc{á}{a}ticas no Percentual de
+#' Germina\enc{çã}{ca}o de Sementes
#' @description Experimento em delineamento inteiramente casualizado
#' onde foram avaliados os percentuais de germinação de sementes de
#' 2 cultivares, submetidas a 5 tratamentos com substâncias
@@ -22,8 +22,7 @@
#'
#' }
#' @keywords DIC FAT2
-#' @source Dias, L. A. S., Barros, W. S. (2009). Biometria
-#' Experimental. Viçosa, MG: UFV. (Exemplo 10.1, pág. 269)
+#' @source BARROS; DIAS (2009), Exemplo 10.1, pág. 269.
#' @examples
#'
#' library(lattice)
@@ -65,8 +64,7 @@ NULL
#'
#' }
#' @keywords DIC PS
-#' @source Dias, L. A. S., Barros, W. S. (2009). Biometria
-#' Experimental. Viçosa, MG: UFV. (Exemplo 10.2, pág. 286)
+#' @source BARROS; DIAS (2009), Exemplo 10.2, pág. 286.
#' @examples
#'
#' library(lattice)
@@ -108,8 +106,7 @@ NULL
#' }
#'
#' @keywords DBC GE
-#' @source Dias, L. A. S., Barros, W. S. (2009). Biometria
-#' Experimental. Viçosa, MG: UFV. (Exemplo 11.1, pág. 305)
+#' @source BARROS; DIAS (2009), Exemplo 11.1, pág. 305.
#' @examples
#'
#' library(lattice)
@@ -138,8 +135,7 @@ NULL
#' @format Vetor com 43 observações que são o número de frutos
#' produzidos por plantas de cacaueiro.
#' @keywords AAS
-#' @source Dias, L. A. S., Barros, W. S. (2009). Biometria
-#' Experimental. Viçosa, MG: UFV.
+#' @source BARROS; DIAS (2009), Exemplo 3.2.
#' @examples
#'
#' stem(DiasEg3.2)
@@ -160,8 +156,7 @@ NULL
#' @description Amostras aleatória da alturas de plantas de milho.
#' @format Vetor com 100 observações da altura (cm).
#' @keywords AAS
-#' @source Dias, L. A. S., Barros, W. S. (2009). Biometria
-#' Experimental. Viçosa, MG: UFV.
+#' @source BARROS; DIAS (2009), Exemplo 3.6.
#' @examples
#'
#' stem(DiasEg3.6)
@@ -180,8 +175,8 @@ NULL
NULL
#' @name DiasEg5.1
-#' @title N\enc{ú}{u}mero de Ovos Eclodidos de Nemat\enc{ó}{o}ides Ap\enc{ó}{o}s Aplica\enc{çã}{ca}o de
-#' Nematicidas Naturais
+#' @title N\enc{ú}{u}mero de Ovos Eclodidos de Nemat\enc{ó}{o}ides
+#' Ap\enc{ó}{o}s Aplica\enc{çã}{ca}o de Nematicidas Naturais
#' @description Resultados de um experimento em delineamento
#' inteiramente casualizado que avaliou o efeito de 5 nematicidas
#' naturais na eclosão de ovos de nematoides.
@@ -197,8 +192,7 @@ NULL
#'
#' }
#' @keywords DIC contagem
-#' @source Dias, L. A. S., Barros, W. S. (2009). Biometria
-#' Experimental. Viçosa, MG: UFV. (Exemplo 5.1, pág. 130)
+#' @source BARROS; DIAS (2009), Exemplo 5.1, pág. 130.
#' @examples
#'
#' library(lattice)
@@ -233,8 +227,7 @@ NULL
#'
#' }
#' @keywords DIC
-#' @source Dias, L. A. S., Barros, W. S. (2009). Biometria
-#' Experimental. Viçosa, MG: UFV. (Exercício 9, Cap. 11, pág. 321)
+#' @source BARROS; DIAS (2009), Exercício 9, Cap. 11, pág. 321.
#' @examples
#'
#' library(lattice)
@@ -252,7 +245,8 @@ NULL
NULL
#' @name DiasEg6.1
-#' @title Ganhos de Produ\enc{çã}{ca}o de Arroz nos Ciclos de Sele\enc{çã}{ca}o
+#' @title Ganhos de Produ\enc{çã}{ca}o de Arroz nos Ciclos de
+#' Sele\enc{çã}{ca}o
#' @description Amostra com 6 pares de observações representanto os
#' ciclos de seleção e ganhos percentuais de produção
#' correspondentes em arroz.
@@ -267,8 +261,7 @@ NULL
#'
#' }
#' @keywords DIC
-#' @source Dias, L. A. S., Barros, W. S. (2009). Biometria
-#' Experimental. Viçosa, MG: UFV. (Exemplo 6.1, pág. 157)
+#' @source BARROS; DIAS (2009), Exemplo 6.1, pág. 157.
#' @examples
#'
#' library(lattice)
@@ -283,7 +276,8 @@ NULL
NULL
#' @name DiasEg6.2
-#' @title Aduba\enc{çã}{ca}o NPK na Produ\enc{çã}{ca}o de Feij\enc{ã}{a}o
+#' @title Aduba\enc{çã}{ca}o NPK na Produ\enc{çã}{ca}o de
+#' Feij\enc{ã}{a}o
#' @description Experimento instalado em delineamento de blocos
#' casualizados para estudar o efeito da adubação NPK na
#' produtividade do feijoeiro.
@@ -302,8 +296,7 @@ NULL
#'
#' }
#' @keywords DBC RP
-#' @source Dias, L. A. S., Barros, W. S. (2009). Biometria
-#' Experimental. Viçosa, MG: UFV. (Exemplo 6.2, pág. 164)
+#' @source BARROS; DIAS (2009), Exemplo 6.2, pág. 164.
#' @examples
#'
#' library(lattice)
@@ -340,8 +333,7 @@ NULL
#'
#' }
#' @keywords AAS
-#' @source Dias, L. A. S., Barros, W. S. (2009). Biometria
-#' Experimental. Viçosa, MG: UFV. (Exemplo 6.3, pág. 173)
+#' @source BARROS; DIAS (2009), Exemplo 6.3, pág. 173.
#' @examples
#'
#' library(lattice)
@@ -366,15 +358,14 @@ NULL
#' \item{\code{luz}}{Fator métrico que identifica, em escala codificada,
#' a quantidade de luz aplicada.}
#'
-#' \item{\code{agua}}{Fator métrico que identifica, em escala codificada,
-#' a quantidade de água aplicada.}
+#' \item{\code{agua}}{Fator métrico que identifica, em escala
+#' codificada, a quantidade de água aplicada.}
#'
#' \item{\code{prod}}{Produção de tomateiros.}
#'
#' }
#' @keywords DIC RM
-#' @source Dias, L. A. S., Barros, W. S. (2009). Biometria
-#' Experimental. Viçosa, MG: UFV. (Exemplo 7.1, pág. 187)
+#' @source BARROS; DIAS (2009), Exemplo 7.1, pág. 187.
#' @examples
#'
#' library(lattice)
@@ -411,8 +402,7 @@ NULL
#'
#' }
#' @keywords DIC
-#' @source Dias, L. A. S., Barros, W. S. (2009). Biometria
-#' Experimental. Viçosa, MG: UFV. (Exemplo 9.1, pág. 222)
+#' @source BARROS; DIAS (2009), Exemplo 9.1, pág. 222.
#' @examples
#'
#' library(lattice)
@@ -450,8 +440,7 @@ NULL
#'
#' }
#' @keywords ClaHier
-#' @source Dias, L. A. S., Barros, W. S. (2009). Biometria
-#' Experimental. Viçosa, MG: UFV. (Exemplo 9.2, pág. 231)
+#' @source BARROS; DIAS (2009), Exemplo 9.2, pág. 231.
#' @examples
#'
#' library(lattice)
@@ -490,8 +479,7 @@ NULL
#'
#' }
#' @keywords DQL
-#' @source Dias, L. A. S., Barros, W. S. (2009). Biometria
-#' Experimental. Viçosa, MG: UFV. (Exemplo 9.4, pág.247)
+#' @source BARROS; DIAS (2009), Exemplo 9.4, pág. 247.
#' @examples
#'
#' library(lattice)
@@ -538,8 +526,7 @@ NULL
#'
#' }
#' @keywords DBC FAT2
-#' @source Dias, L. A. S., Barros, W. S. (2009). Biometria
-#' Experimental. Viçosa, MG: UFV. (Exercício 10, Cap. 10, pág. 296)
+#' @source BARROS; DIAS (2009), Exercício 10, Cap. 10, pág. 296.
#' @examples
#'
#' library(lattice)
@@ -580,9 +567,7 @@ NULL
#' }
#'
#' @keywords DBC
-#' @source Dias, L. A. S., Barros, W. S. (2009). Biometria
-#' Experimental. Viçosa, MG: UFV. (Exercício 10.4, Cap. 10,
-#' pág. 294)
+#' @source BARROS; DIAS (2009), Exercício 10.4, Cap. 10, pág. 294.
#' @examples
#'
#' library(lattice)
@@ -629,8 +614,7 @@ NULL
#'
#' }
#' @keywords DIC FAT3
-#' @source Dias, L. A. S., Barros, W. S. (2009). Biometria
-#' Experimental. Viçosa, MG: UFV. (Exercício 7, Cap. 10, pág. 295)
+#' @source BARROS; DIAS (2009), Exercício 7, Cap. 10, pág. 295.
#' @examples
#'
#' library(lattice)
@@ -651,7 +635,8 @@ NULL
NULL
#' @name DiasEx10.4.8
-#' @title Teores de Mat\enc{é}{e}ria Seca de Gramineas em Fun\enc{çã}{ca}o da Calagem
+#' @title Teores de Mat\enc{é}{e}ria Seca de Gramineas em
+#' Fun\enc{çã}{ca}o da Calagem
#' @description Em um ensaio em delineamento de blocos casualizados foi
#' analisado o efeito de doses de calcário no teor de matéria seca
#' de gramíneas forrageiras. Foi utilizado esquema fatorial 3
@@ -674,8 +659,7 @@ NULL
#'
#' }
#' @keywords DBC FAT2
-#' @source Dias, L. A. S., Barros, W. S. (2009). Biometria
-#' Experimental. Viçosa, MG: UFV. (Exercício 8, Cap. 10, pág. 295)
+#' @source BARROS; DIAS (2009), Exercício 8, Cap. 10, pág. 295.
#' @examples
#'
#' library(lattice)
@@ -712,8 +696,7 @@ NULL
#'
#' }
#' @keywords DBC
-#' @source Dias, L. A. S., Barros, W. S. (2009). Biometria
-#' Experimental. Viçosa, MG: UFV. (Exercício 8, Cap. 11, pág. 321
+#' @source BARROS; DIAS (2009), Exercício 8, Cap. 11, pág. 321.
#' @examples
#'
#' library(lattice)
@@ -760,8 +743,7 @@ NULL
#'
#' }
#' @keywords GE DIC
-#' @source Dias, L. A. S., Barros, W. S. (2009). Biometria
-#' Experimental. Viçosa, MG: UFV. (Exercício 9, Cap. 11, pág. 321)
+#' @source BARROS; DIAS (2009), Exercício 9, Cap. 11, pág. 321.
#' @examples
#'
#' library(lattice)
@@ -782,7 +764,8 @@ NULL
NULL
#' @name DiasEx3.6.7
-#' @title Percentual de Germina\enc{çã}{ca}o de Lotes de Sementes de Tomate
+#' @title Percentual de Germina\enc{çã}{ca}o de Lotes de Sementes de
+#' Tomate
#' @description Percentuais de germinação de 2 lotes de sementes de
#' tomate com 5 repetições com 100 sementes em cada repetição.
#' @format Um \code{data.frame} com 2 observações e 1 variável, em que
@@ -796,8 +779,7 @@ NULL
#'
#' }
#' @keywords AAS
-#' @source Dias, L. A. S., Barros, W. S. (2009). Biometria
-#' Experimental. Viçosa, MG: UFV. (Exercício 7, Cap. 7.6, pág.102)
+#' @source BARROS; DIAS (2009), (Exercício 7, Cap. 7.6, pág. 102.
#' @examples
#'
#' library(lattice)
@@ -825,8 +807,7 @@ NULL
#'
#' }
#' @keywords RL
-#' @source Dias, L. A. S., Barros, W. S. (2009). Biometria
-#' Experimental. Viçosa, MG: UFV. (Exercício 1, Cap. 6, pág. 179)
+#' @source BARROS; DIAS (2009), Exercício 1, Cap. 6, pág. 179.
#' @examples
#'
#' library(lattice)
@@ -852,9 +833,8 @@ NULL
#' \item{\code{diam}}{Diãmetro em centimetros.}
#'
#' }
-#' @keywords ASS RL
-#' @source Dias, L. A. S., Barros, W. S. (2009). Biometria
-#' Experimental. Viçosa, MG: UFV. (Exercício 10, Cap. 7, pág. 181)
+#' @keywords AAS RL
+#' @source BARROS; DIAS (2009), Exercício 10, Cap. 7, pág. 181.
#' @examples
#'
#' library(lattice)
@@ -880,8 +860,7 @@ NULL
#'
#' }
#' @keywords AAS RL
-#' @source Dias, L. A. S., Barros, W. S. (2009). Biometria
-#' Experimental. Viçosa, MG: UFV. (Exercício 9, Cap. 6, pág. 181)
+#' @source BARROS; DIAS (2009), Exercício 9, Cap. 6, pág. 181.
#'
#' library(lattice)
#'
@@ -913,8 +892,7 @@ NULL
#' }
#'
#' @keywords DQL
-#' @source Dias, L. A. S., Barros, W. S. (2009). Biometria
-#' Experimental. Viçosa, MG: UFV. (Exercício 10, Cap. 9, pág. 261)
+#' @source BARROS; DIAS (2009), Exercício 10, Cap. 9, pág. 261.
#' @examples
#'
#' library(lattice)
@@ -954,8 +932,7 @@ NULL
#'
#' }
#' @keywords DIC contagem
-#' @source Dias, L. A. S., Barros, W. S. (2009). Biometria
-#' Experimental. Viçosa, MG: UFV. (Exercício 4, Cap. 9, pág. 260)
+#' @source BARROS; DIAS (2009), Exercício 4, Cap. 9, pág. 260.
#' @examples
#'
#' library(lattice)
@@ -973,7 +950,8 @@ NULL
NULL
#' @name DiasEx9.6.6
-#' @title Teores de S\enc{ó}{o}lidos Sol\enc{ú}{u}veis Totais da Poupa de Frutos
+#' @title Teores de S\enc{ó}{o}lidos Sol\enc{ú}{u}veis Totais da Poupa
+#' de Frutos
#' @description Experimento em delineamento inteiramente casualizado,
#' com 5 repetições e 4 cultivares de tomateiro onde os totais de
#' sólidos solúveis na poupa dos frutos foram avaliados.
@@ -990,8 +968,7 @@ NULL
#'
#' }
#' @keywords DIC
-#' @source Dias, L. A. S., Barros, W. S. (2009). Biometria
-#' Experimental. Viçosa, MG: UFV. (Exercício 6, Cap. 9, pág. 260)
+#' @source BARROS; DIAS (2009), Exercício 6, Cap. 9, pág. 260.
#' @examples
#'
#' library(lattice)
@@ -1031,8 +1008,7 @@ NULL
#'
#' }
#' @keywords DBC
-#' @source Dias, L. A. S., Barros, W. S. (2009). Biometria
-#' Experimental. Viçosa, MG: UFV. (Exercício 7, Cap. 9, pág. 261)
+#' @source BARROS; DIAS (2009), Exercício 7, Cap. 9, pág. 261.
#' @examples
#'
#' library(lattice)
@@ -1048,4 +1024,3 @@ NULL
#' ylab = "Número de frutos na primeira colheita")
#'
NULL
-
diff --git a/R/Faria.R b/R/Faria.R
index 33dec29ef42cc350108d5b91072464e82f4f2819..c3785fb0740a0300b328adfa803179b655876dcf 100644
--- a/R/Faria.R
+++ b/R/Faria.R
@@ -1,5 +1,6 @@
#' @name FariaEg2.9.5
-#' @title Varia\enc{çã}{ca}o de M\enc{é}{e}todos para a Determina\enc{çã}{ca}o da CTC do Solo
+#' @title Varia\enc{çã}{ca}o de M\enc{é}{e}todos para a
+#' Determina\enc{çã}{ca}o da CTC do Solo
#' @description Dois métodos de CTC do solo são usados em uma amostra de
#' controle e fornecem os resultados em cmol kg\eqn{^{-1}}.
#' @format Um \code{data.frame} com 20 observações e 3 variáveis, em que
@@ -12,9 +13,8 @@
#' \item{\code{ctc}}{CTC da amostra de solo, em cmol kg\eqn{^{-1}}.}
#'
#' }
-#' @keywords ASS
-#' @source Faria, J. C. (2009). Notas de aulas expandidas (10th ed.)
-#' Ilhéus - BA: UESC. (Exemplo 2.9.5, pág 39)
+#' @keywords AAS
+#' @source FARIA (2009), Exemplo 2.9.5, pág 39.
#' @examples
#'
#' library(lattice)
@@ -49,8 +49,7 @@ NULL
#'
#' }
#' @keywords DIC
-#' @source Faria, J. C. (2009). Notas de aulas expandidas (10th ed.)
-#' Ilhéus, BA: UESC. (Tabela 3.2.4, pág 46)
+#' @source FARIA (2009), Tabela 3.2.4, pág 46.
#' @examples
#'
#' library(lattice)
@@ -68,12 +67,12 @@ NULL
NULL
#' @name FariaQd11.4
-#' @title Produ\enc{çã}{ca}o de Batatas em Fun\enc{çã}{ca}o da Calagem e Aduba\enc{çã}{ca}o
+#' @title Produ\enc{çã}{ca}o de Batatas em Fun\enc{çã}{ca}o da Calagem e
+#' Aduba\enc{çã}{ca}o
#' @description Experimento montado em delineamento inteiramente
#' casualizado para estudar o efeito da combibação dos fatores
#' irrigação e calagem da produção de batata.
-#' @format Um \code{data.frame} com 16 observações e 4 variáveis, em
-#' que
+#' @format Um \code{data.frame} com 16 observações e 4 variáveis, em que
#'
#' \describe{
#'
@@ -90,8 +89,7 @@ NULL
#'
#' }
#' @keywords DIC FAT2
-#' @source Faria, J. C. (2009). Notas de aulas expandidas (10th ed.)
-#' Ilhéus - BA: UESC. (Quadro 11.4, pág. 134)
+#' @source FARIA (2009), Quadro 11.4, pág. 134.
#' @examples
#'
#' library(lattice)
@@ -111,7 +109,8 @@ NULL
NULL
#' @name FariaQd11.9
-#' @title Qualidade de Mudas em Fun\enc{çã}{ca}o do Recipiente da Esp\enc{é}{e}cie
+#' @title Qualidade de Mudas em Fun\enc{çã}{ca}o do Recipiente da
+#' Esp\enc{é}{e}cie
#' @description Experimento montado no delineamento inteiramente
#' casualizado cujo resultado é a qualidade de mudas em função do
#' recipiente utilizado e para cada espécie cultiavda.
@@ -132,8 +131,7 @@ NULL
#'
#' }
#' @keywords DIC FAT2
-#' @source Faria, J. C. (2009). Notas de aulas expandidas (10th ed.)
-#' Ilhéus - BA: UESC. (Quadro 11.9, pág 145)
+#' @source FARIA (2009), Quadro 11.9, pág 145.
#' @examples
#'
#' library(lattice)
@@ -182,8 +180,7 @@ NULL
#' As parcelas da testemunha, que não receberam aplicação de TVC,
#' exibiram um valor 0 para a colonização das vassouras-de-bruxa.
#' @keywords DBC PS
-#' @source Faria, J. C. (2009). Notas de aulas expandidas (10th ed.)
-#' Ilhéus - BA: UESC. ( Quadro 12.5, pág. 159)
+#' @source FARIA (2009), Quadro 12.5, pág. 159.
#' @examples
#'
#' library(lattice)
@@ -221,8 +218,7 @@ NULL
#'
#' }
#' @keywords DIC RL
-#' @source Faria, J. C. (2009). Notas de aulas expandidas (10th ed.)
-#' Ilhéus - BA: UESC. (Quadro 14.2 pág. 198)
+#' @source FARIA (2009), Quadro 14.2 pág. 198.
#' @examples
#'
#' library(lattice)
@@ -238,8 +234,8 @@ NULL
NULL
#' @name FariaQd14.3
-#' @title Aduba\enc{çã}{ca}o com F\enc{ó}{o}sforo na Produ\enc{çã}{ca}o de Mat\enc{é}{e}ria Seca de Parte
-#' A\enc{é}{e}rea de Milho
+#' @title Aduba\enc{çã}{ca}o com F\enc{ó}{o}sforo na Produ\enc{çã}{ca}o
+#' de Mat\enc{é}{e}ria Seca de Parte A\enc{é}{e}rea de Milho
#' @description Os dados abaixo são provenientes de um ensaio
#' experimental realizado em casa de vegetação, montado no
#' delineamento em blocos casualizados, com 5 repetições, para
@@ -260,8 +256,7 @@ NULL
#'
#' }
#' @keywords DBC
-#' @source Faria, J. C. (2009). Notas de aulas expandidas (10th ed.)
-#' Ilhéus - BA: UESC. (Quadro 14.3 pág. 200)
+#' @source FARIA (2009), Quadro 14.3 pág. 200.
#' @examples
#'
#' library(lattice)
@@ -295,8 +290,7 @@ NULL
#'
#' }
#' @keywords DIC
-#' @source Faria, J. C. (2009). Notas de aulas expandidas (10th ed.)
-#' Ilhéus, BA: UESC. (Tabela 6.1 pág 76)
+#' @source FARIA (2009), Tabela 6.1 pág 76.
#' @examples
#'
#' library(lattice)
@@ -307,4 +301,3 @@ NULL
#' xyplot(prod ~ varied, data = FariaQd6.1)
#'
NULL
-
diff --git a/R/Ferreira.R b/R/Ferreira.R
index 49dff9f9bcd6cbc3dabbcae0b0d61c5d9aa4e1c0..13cf31c95dc259a7bfc81ca33f6967cb3d3671bd 100644
--- a/R/Ferreira.R
+++ b/R/Ferreira.R
@@ -256,7 +256,7 @@ NULL
#'
#' aggregate(peroxido ~ amostra, data = FerreiraEg7.1, summary)
#' aggregate(proteina ~ amostra, data = FerreiraEg7.1, summary)
-#'
+#'
#' par(mar = c(4, 5, 4, 5))
#' boxplot(proteina ~ amostra, data = FerreiraEg7.1,
#' xlim = c(0.5, 2.5), border = 4,
@@ -264,7 +264,7 @@ NULL
#' axes = FALSE)
#' box()
#' axis(side = 2, col.axis = 4)
-#' mtext(side = 2, text = "Proteínas em g/dl", line = 3, col = 4)
+#' mtext(side = 2, text = "Proteínas em g/dl", line = 3, col = 4)
#' par(new = TRUE, mar = c(4, 5, 4, 5))
#' boxplot(peroxido ~ amostra, data = FerreiraEg7.1,
#' xlim = c(0.5, 2.5), border = 2,
@@ -274,7 +274,7 @@ NULL
#' axis(side = 1, at = 1:2, labels = c("antes", "depois"))
#' mtext(side = 4, text = "Peróxidos em nmol/g de proteína",
#' line = 3, col = 2)
-#'
+#'
NULL
#' @name FerreiraEg7.4
@@ -282,7 +282,7 @@ NULL
#' @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.
-#'
+#'
#' @format Um \code{data.frame} com 11 observações e 3 variáveis.
#'
#' \describe{
@@ -306,7 +306,7 @@ NULL
#' aggregate(prod ~ varie, data = FerreiraEg7.4, summary)
#' aggregate(altura ~ varie, data = FerreiraEg7.4, summary)
#' by(FerreiraEg7.4[2:3], FerreiraEg7.4[1], cov)
-#'
+#'
#' with(FerreiraEg7.4, {
#' par(mar = c(4, 5, 4, 5))
#' plot.default(y = prod, xlab = "", ylab = "",
@@ -317,7 +317,7 @@ NULL
#' box()
#' axis(side = 2, col.axis = 4)
#' mtext(side = 2, text = "Produtividade em t/ha",
-#' line = 3, col = 4)
+#' line = 3, col = 4)
#' par(new = TRUE, mar = c(4, 5, 4, 5))
#' plot.default(y = altura, xlab = "", ylab = "",
#' x = jitter(as.numeric(varie), factor = 0.5) + 0.1,
@@ -533,7 +533,7 @@ 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{
@@ -555,9 +555,9 @@ NULL
#'
#' aggregate(peso ~ fase, data = FerreiraEx7.4.1, summary)
#' aggregate(teor ~ fase, data = FerreiraEx7.4.1, summary)
-#'
+#'
#' by(FerreiraEx7.4.1[2:3], FerreiraEx7.4.1[1], cov)
-#'
+#'
#' with(FerreiraEx7.4.1, {
#' par(mar = c(4, 5, 4, 5))
#' plot.default(y = peso, xlab = "", ylab = "",
@@ -567,7 +567,7 @@ NULL
#' axes = FALSE)
#' box()
#' axis(side = 2, col.axis = 4)
-#' mtext(side = 2, text = "Peso", line = 3, col = 4)
+#' mtext(side = 2, text = "Peso", line = 3, col = 4)
#' par(new = TRUE, mar = c(4, 5, 4, 5))
#' plot.default(y = teor, xlab = "", ylab = "",
#' x = jitter(as.numeric(fase), factor = 0.5) + 0.15,
@@ -661,7 +661,7 @@ NULL
#' 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 agrupamento
+#' @keywords AnaAgrup
#' @source Ferreira, D. F. (2011). Estatística Multivariada (2nd
#' ed.). Lavras, MG: Editora UFLA. (Exercício 9.7.2, pág. 409)
#' @references Bussab, W. O., Miazaki, É. S., Andrade,
@@ -685,4 +685,3 @@ NULL
#' legend = c("2 grupos (k=2)", "3 grupos (k=3)"))
#'
NULL
-
diff --git a/R/Manly.R b/R/Manly.R
index c0712a15158b4f961670fdfcc45e867585b13665..090d74f0b5459d42a1c5e8eb6ff9fd1a27dae41d 100644
--- a/R/Manly.R
+++ b/R/Manly.R
@@ -1,44 +1,44 @@
#' @name ManlyTb6.7
-#' @title Consumo de prote\enc{í}{i}na
+#' @title Consumo de prote\enc{í}{i}na
#'
#' @description Estimativas do consumo médio de proteínas de diferentes fontes de alimentos para os habitantes de 25 países europeus. Medida em gramas por pessoa por dia
#'
#' @format Um \code{data.frame} com 25 países em 9 variáveis.
-#'
+#'
#' \describe{
#'
#' \item{\code{pais}}{Identificação do país.}
-#'
+#'
#' \item{\code{cv}}{Consumo de carne vermelha medida em gramas por pessoa por dia.}
-#'
+#'
#' \item{\code{cb}}{Consumo de carne branca.}
#'
#' \item{\code{ovo}}{Consumo de ovos.}
-#'
+#'
#' \item{\code{leite}}{Consumo de leite.}
-#'
+#'
#' \item{\code{peixe}}{Consumo de peixe.}
-#'
+#'
#' \item{\code{cere}}{Consumo por cereais.}
-#'
+#'
#' \item{\code{carb}}{Consumo de carboidratos.}
-#'
+#'
#' \item{\code{gnso}}{Consumo de grãos, nozes e sementes oleaginosas.}
-#'
+#'
#' \item{\code{fv}}{Consumo de frutas e vegetais.}
-#'
+#'
#' \item{\code{total}}{Total de consumo do país.}
-#'
+#'
#' }
-#' @keywords CP
+#' @keywords AnaComPrin
#' @source Manly, B. J. F. (2005). Métodos Estatísticos Multivariados - uma introdução.
#' Porto Alegre, RS: Bookman (pg 103)
#' @examples
#'
#' data(ManlyTb6.7)
-#'
+#'
#' pairs(~ cv + cb + ovo + leite + peixe + cere + carb + gnso + fv,
-#' data = ManlyTb6.7,
+#' data = ManlyTb6.7,
#' main="Matriz das variáveis de consumo de proteína")
NULL
@@ -81,32 +81,32 @@ NULL
#' @name ManlyTb1.2
#' @title Cr\enc{â}{a}nios eg\enc{í}{i}pcios
#'
-#' @description Medidas de crânios egípcios masculinos em cinco períodos
+#' @description Medidas de crânios egípcios masculinos em cinco períodos
#' de tempo. Medidas tomadas em milímetros.
#'
-#' @format Um \code{data.frame} com os tamanhos de 30 crânios para cada
+#' @format Um \code{data.frame} com os tamanhos de 30 crânios para cada
#' período de tempo, com quatro variáveis.
-#'
+#'
#' \describe{
-#'
+#'
#' \item{\code{grup}}{Identificação do período}
#'
#' \item{\code{x1}}{Largura máxima.}
-#'
+#'
#' \item{\code{x2}}{Altura basibregamática.}
#'
#' \item{\code{x3}}{Comprimento basialveolar.}
#'
#' \item{\code{x4}}{Altura nasal.}
-#'
+#'
#' }
-#'
+#'
#' A figura abaixo descreve as medidas do crânio.
#' \if{html}{\figure{ManlyTb1-2.jpg}{options: width="250px"}}
-#' \if{latex}{\figure{ManlyTb1-2.jpg}{options: width=1.75in}}
-#'
-#' @keywords Afd
-#' @source Manly, B. J. F. (2005). Métodos Estatísticos Multivariados -
+#' \if{latex}{\figure{ManlyTb1-2.jpg}{options: width=1.75in}}
+#'
+#' @keywords AnaFat
+#' @source Manly, B. J. F. (2005). Métodos Estatísticos Multivariados -
#' uma introdução. Porto Alegre, RS: Bookman (pg 16)
#' @examples
#'
@@ -114,64 +114,64 @@ NULL
#' require(lattice)
#' require(reshape2)
#'
-#' splom(~ManlyTb1.2[2:5] | grup, data = ManlyTb1.2,
-#' layout=c(3,2),
+#' splom(~ManlyTb1.2[2:5] | grup, data = ManlyTb1.2,
+#' layout=c(3,2),
#' pscales = 0,
#' varnames = c("x1", "x2","x3", "x4"),
#' main = "Gráfico de dispersão das medidas de crânio para cada período")
-#'
+#'
#' ManlyTb1.2long <- melt(ManlyTb1.2, id.vars = "grup")
-#'
+#'
#' bwplot(value ~grup | variable, data = ManlyTb1.2long,
-#' scales = list(relation = "free"),
-#' ylab = "",
+#' scales = list(relation = "free"),
+#' ylab = "",
#' main = "Boxplot das medições de crânio em cada período" )
#'
-#'
+#'
NULL
#' @name ManlyTb1.3
#' @title Distribui\enc{ç}{c}ao de uma esp\enc{é}{e}cie de borboletas
#'
-#' @description Estudo de colônias de borboletas do tipo \emph{Euphydryas
-#' editha} na Califórnia e em Oregon, EUA, com variáveis ambientais e
+#' @description Estudo de colônias de borboletas do tipo \emph{Euphydryas
+#' editha} na Califórnia e em Oregon, EUA, com variáveis ambientais e
#' frequências gênicas.
#'
#' @format Um \code{data.frame} com 16 colônias de borboletas com 11 variáveis.
-#'
+#'
#' \describe{
#'
#' \item{\code{colo}}{Identificação da colônia.}
-#'
+#'
#' \item{\code{alt}}{Altitude (em pés).}
-#'
+#'
#' \item{\code{precip}}{Precipitação anual (em polegadas).}
#'
#' \item{\code{tempmax}}{Temperatura máxima.}
-#'
+#'
#' \item{\code{tempmin}}{Temperatura mínima.}
-#'
+#'
#' \item{\code{dg0.4}}{Frequência 0.4 em demobilidade gênica PGi (porcentagem).}
-#'
+#'
#' \item{\code{dg0.6}}{Frequência 0.6 em demobilidade gênica PGi.}
-#'
+#'
#' \item{\code{dg0.8}}{Frequência 0.8 em demobilidade gênica PGi.}
-#'
+#'
#' \item{\code{dg1}}{Frequência 1 em demobilidade gênica PGi.}
-#'
+#'
#' \item{\code{dg1.16}}{Frequência 1.16 em demobilidade gênica PGi.}
-#'
+#'
#'\item{\code{dg1.3}}{Frequência 1.3 em demobilidade gênica PGi.}
-#'
+#'
#' }
-#' @keywords CP
-#' @source Manly, B. J. F. (2005). Métodos Estatísticos Multivariados
+#' @keywords AnaComPrin
+#' @source Manly, B. J. F. (2005). Métodos Estatísticos Multivariados
#' - uma introdução. Porto Alegre, RS: Bookman (pg 19)
#' @examples
#'
#' data(ManlyTb1.3)
-#'
-#' pairs(~ alt + precip + tempmax + tempmin + dg0.4 + dg0.6 + dg0.8 +
+#'
+#' pairs(~ alt + precip + tempmax + tempmin + dg0.4 + dg0.6 + dg0.8 +
#' dg1 + dg1.16 + dg1.3, data = ManlyTb1.3, cex.labels = 1.4,
#' main="Matriz de gráficos de dispersão")
NULL
@@ -179,90 +179,90 @@ NULL
#' @name ManlyTb1.4
#' @title C\enc{ã}{a}es pr\enc{é}{e}-hist\enc{ó}{o}ricos da Tail\enc{â}{a}ndia
#'
-#' @description Estudo em ancestrais de cães da Tailândia,
+#' @description Estudo em ancestrais de cães da Tailândia,
#' através de medições das mandíbulas.
#'
-#' @format Um \code{data.frame} com 7 grupos caninos e 6 variáveis.
-#'
+#' @format Um \code{data.frame} com 7 grupos caninos e 6 variáveis.
+#'
#' \describe{
#'
#' \item{\code{grup}}{Grupo canino}
-#'
+#'
#' \item{\code{largm}}{Largura da mandíbula (mm)}
-#'
+#'
#' \item{\code{altm}}{Altura da mandíbula abaixo do primeiro molar (mm).}
#'
#' \item{\code{comppm}}{Comprimento do primeiro molar (mm).}
-#'
+#'
#' \item{\code{largpm}}{Largura do primeiro molar (mm).}
-#'
+#'
#' \item{\code{comppt}}{Comprimento do primeiro ao terceiro molar (mm).}
-#'
+#'
#' \item{\code{comppq}}{Comprimento do primeiro ao quarto molar (mm).}
#' }
#'
-#' @keywords AnaClust
+#' @keywords AnaAgrup
#' @source Manly, B. J. F. (2005). Métodos Estatísticos Multivariados- uma introdução.
#' Porto Alegre, RS: Bookman (pg 21)
#' @examples
#'
#'
#' data(ManlyTb1.4)
-#'
+#'
#' pairs(~largm + altm + comppm + largpm + comppt + comppq,
-#' data = ManlyTb1.4,
+#' data = ManlyTb1.4,
#' main="Gráfico de dispersão para as medições da mandíbula")
NULL
#' @name ManlyTb1.5
#' @title Emprego em paises europeus
#'
-#' @description Porcentagens da força de trabalho de empregados para nove
+#' @description Porcentagens da força de trabalho de empregados para nove
#' diferentes campos de trabalho em 30 países europeus
#'
#' @format Um \code{data.frame} com 30 registros em 11 variáveis.
-#'
+#'
#' \describe{
#'
#' \item{\code{pais}}{Identificação do país.}
-#'
-#' \item{\code{grup}}{Grupo econômico ao qual pertencente o país: União
+#'
+#' \item{\code{grup}}{Grupo econômico ao qual pertencente o país: União
#' Europeia (UE); Área europeia de livre comércio (AELC); Leste; Outro}
-#'
-#' \item{\code{afp}}{Porcentagem da população ativa empregada na agricultura,
+#'
+#' \item{\code{afp}}{Porcentagem da população ativa empregada na agricultura,
#' florestal e pesca.}
#'
#' \item{\code{mep}}{Porcentagem empregada na mineração e exploração de pedreiras.}
-#'
+#'
#' \item{\code{fab}}{Porcentagem empregada nas fábricas.}
-#'
-#' \item{\code{fea}}{Porcentagem empregada nas áreas de fornecimento de
+#'
+#' \item{\code{fea}}{Porcentagem empregada nas áreas de fornecimento de
#' energia e água.}
-#'
+#'
#' \item{\code{con}}{Porcentagem empregada na construção.}
-#'
+#'
#' \item{\code{ser}}{Porcentagem empregada na área de serviços.}
-#'
+#'
#' \item{\code{fin}}{Porcentagem empregada na área de finanças.}
-#'
+#'
#' \item{\code{ssp}}{Porcentagem empregada na área de serviços sociais e
#' pessoais.}
-#'
-#' \item{\code{tc}}{Porcentagem empregada nas áreas de transportes e
+#'
+#' \item{\code{tc}}{Porcentagem empregada nas áreas de transportes e
#' comunicações.}
-#'
+#'
#' }
#'
-#' @keywords AnaClust
-#' @source Manly, B. J. F. (2005). Métodos Estatísticos Multivariados-
+#' @keywords AnaAgrup
+#' @source Manly, B. J. F. (2005). Métodos Estatísticos Multivariados-
#' uma introdução. Porto Alegre, RS: Bookman (pg 22)
#' @examples
#'
#
#' data(ManlyTb1.5)
-#'
+#'
#' pairs(~afp + mep + fab + fea + con + ser + fin + ssp + tc,
-#' data = ManlyTb1.5,
+#' data = ManlyTb1.5,
#' main="Matriz das variáveis de força de trabalho"
#' )
NULL
@@ -270,111 +270,111 @@ NULL
#' @name ManlyTb10.2
#' @title Vari\enc{á}{a}veis solo e vegeta\enc{çã}{ca}o em Belize
#'
-#' @description Estudo no distrito de Corozal, em Belize, com 4 variáveis
-#' de solo e 4 variáveis de vegetação registradas para quadrados
+#' @description Estudo no distrito de Corozal, em Belize, com 4 variáveis
+#' de solo e 4 variáveis de vegetação registradas para quadrados
#' de 2,5 x 2,5 km.
#'
#' @format Um \code{data.frame} com 151 linhas e 8 variáveis.
-#'
+#'
#' \describe{
-#' \item{\code{ser}}{Porcentagem de solo com enriquecimento constante de
+#' \item{\code{ser}}{Porcentagem de solo com enriquecimento constante de
#' calcário.}
#'
-#' \item{\code{spc}}{Porcentagem de solo de prado com cálcio na água
+#' \item{\code{spc}}{Porcentagem de solo de prado com cálcio na água
#' subterrânea.}
-#'
-#' \item{\code{smc}}{Porcentagem de solo com matriz de coral sob
+#'
+#' \item{\code{smc}}{Porcentagem de solo com matriz de coral sob
#' condições de enriquecimento constante de calcário.}
-#'
-#' \item{\code{sao}}{Porcentagem de solos aluvial e orgânico adjacentes
+#'
+#' \item{\code{sao}}{Porcentagem de solos aluvial e orgânico adjacentes
#' a rios e solo orgânico salino na costa.}
#'
-#' \item{\code{dfe}}{Porcentagem de floresta decídua estacional com
+#' \item{\code{dfe}}{Porcentagem de floresta decídua estacional com
#' ervas de folhas largas.}
-#'
-#' \item{\code{flab}}{Porcentagem de floresta de locais altos e baixos
+#'
+#' \item{\code{flab}}{Porcentagem de floresta de locais altos e baixos
#' coberta com água e plantas herbáceas em lugares úmidos e pântano.}
-#'
+#'
#' \item{\code{fpc}}{Porcentagem de floresta palma de cohune.}
-#'
+#'
#' \item{\code{fm}}{Porcentagem de floresta mista.}
#' }
-#'
-#' @keywords ACC
-#' @source Manly, B. J. F. (2005). Métodos Estatísticos Multivariados -
+#'
+#' @keywords AnaCorCan
+#' @source Manly, B. J. F. (2005). Métodos Estatísticos Multivariados -
#' uma introdução.Porto Alegre, RS: Bookman (pg 167 à 170)
#' @examples
#'
#' data(ManlyTb10.2)
#' pairs(~ ser + spc + smc + sao + fde + flab + fpc + fm,
-#' data = ManlyTb10.2,
+#' data = ManlyTb10.2,
#' main="Matriz de gráficos para as variáveis de solo")
#'
-#'
+#'
NULL
#' @name ManlyTb10.4
#' @title Combina\enc{çã}{ca}o de tabelas 1.5 e 6.7
#'
-#' @description Dados referentes a consumo de proteína e força de trabalho
+#' @description Dados referentes a consumo de proteína e força de trabalho
#' em países europeus.
#'
#' @format Um \code{data.frame} com 22 países e 18 variáveis.
-#'
+#'
#' \describe{
#' \item{\code{pais}}{Identificação do país.}
-#'
-#' \item{\code{cv}}{Consumo de carne vermelha medida em gramas por
+#'
+#' \item{\code{cv}}{Consumo de carne vermelha medida em gramas por
#' pessoa por dia.}
-#'
+#'
#' \item{\code{cb}}{Consumo de carne branca.}
#'
#' \item{\code{ovo}}{Consumo de ovos.}
-#'
+#'
#' \item{\code{leite}}{Consumo de leite.}
-#'
+#'
#' \item{\code{peixe}}{Consumo de peixe.}
-#'
+#'
#' \item{\code{cere}}{Consumo por cereais.}
-#'
+#'
#' \item{\code{carb}}{Consumo de carboidratos.}
-#'
+#'
#' \item{\code{gnl}}{Consumo de grãos, nozes e sementes oleaginosas.}
-#'
+#'
#' \item{\code{fv}}{Consumo de frutas e vegetais.}
-#'
-#' \item{\code{agr}}{Porcentagem da população ativa empregada na
+#'
+#' \item{\code{agr}}{Porcentagem da população ativa empregada na
#' agricultura, florestal e pesca.}
#'
#' \item{\code{min}}{Mineração e exploração de pedreiras.}
-#'
+#'
#' \item{\code{fab}}{Fabricação.}
-#'
+#'
#' \item{\code{fea}}{Fornecimento de energia e água.}
-#'
+#'
#' \item{\code{con}}{Construção.}
-#'
+#'
#' \item{\code{ser}}{Serviços.}
-#'
+#'
#' \item{\code{fin}}{Finanças.}
-#'
+#'
#' \item{\code{ssp}}{Serviços sociais e pessoais.}
-#'
+#'
#' \item{\code{tc}}{Transportes e comunicações.}
-#'
+#'
#' }
#'
-#' @keywords ACC
-#' @source Manly, B. J. F. (2005). Métodos Estatísticos Multivariados-
+#' @keywords AnaCorCan
+#' @source Manly, B. J. F. (2005). Métodos Estatísticos Multivariados-
#' uma introdução. Porto Alegre, RS: Bookman (pg 175)
#' @examples
#'
#' data(ManlyTb10.4)
-#'
-#' pairs(~ cv + cb + ovo + leite + peixe + cere + carb + gnl+ agr +
+#'
+#' pairs(~ cv + cb + ovo + leite + peixe + cere + carb + gnl+ agr +
#' min + fab + fea + con + ser + fin + ssp + tc,
-#' data = ManlyTb10.4,
-#' main = "Matriz de gráficos para as variáveis de força de trabalho
+#' data = ManlyTb10.4,
+#' main = "Matriz de gráficos para as variáveis de força de trabalho
#' e consumo de proteínas diárias"
#' )
NULL
@@ -385,43 +385,43 @@ NULL
#' @description Distâncias rodoviárias (em milhas) entre cidades na ilha
#' Sul da Nova Zelândia
#'
-#' @format Uma matriz (13x13) com as distâncias rodoviárias entre as
+#' @format Uma matriz (13x13) com as distâncias rodoviárias entre as
#' cidades da ilha Sul da Nova Zelândia.
-#'
-#' @keywords EM
-#' @source Manly, B. J. F. (2005). Métodos Estatísticos Multivariados -
+#'
+#' @keywords TODO
+#' @source Manly, B. J. F. (2005). Métodos Estatísticos Multivariados -
#' uma introdução. Porto Alegre, RS: Bookman (pg 182)
-#'
+#'
#' @examples
#'
#' data(ManlyTb11.3)
-#'
+#'
#' require(lattice)
-#'
-#' levelplot(ManlyTb11.3, xlab = "", ylab = "", main = "Gráfico das
+#'
+#' levelplot(ManlyTb11.3, xlab = "", ylab = "", main = "Gráfico das
#' distâncias rodoviárias", scales = list(x = list(rot=90)))
NULL
#' @name ManlyTb11.5
#' @title Vota\enc{çõ}{co}es de parlamentares
#'
-#' @description Número de votos discordantes entre os parlamentares de
+#' @description Número de votos discordantes entre os parlamentares de
#' Nova Jersey em leis referentes a problemas ambientais
#'
#' @format Uma matriz com os números de votos discordantes entre 15
#' parlamentares de Nova Jersey.
-#'
-#' @keywords EM
-#' @source Manly, B. J. F. (2005). Métodos Estatísticos Multivariados
+#'
+#' @keywords TODO
+#' @source Manly, B. J. F. (2005). Métodos Estatísticos Multivariados
#' - uma introdução. Porto Alegre, RS: Bookman (pg 185)
-#'
+#'
#' @examples
#'
#' data(ManlyTb11.5)
-#'
+#'
#' require(lattice)
-#'
-#' levelplot(ManlyTb11.5, xlab = "", ylab = "", main = "Gráfico das
+#'
+#' levelplot(ManlyTb11.5, xlab = "", ylab = "", main = "Gráfico das
#' distâncias entre parlamentares", scales = list(x = list(rot=90)))
NULL
@@ -430,137 +430,137 @@ NULL
#'
#' @title Cães pré-históricos da Tailândia
#'
-#' @description Estudo em ancestrais de cães da Tailândia,
-#' através de medições da mandíbula.
+#' @description Estudo em ancestrais de cães da Tailândia,
+#' através de medições da mandíbula.
#'
#' @format Um \code{data.frame} com 5 grupo caninos e 10 variáveis.
-#'
+#'
#' \describe{
#'
#' \item{\code{grup}}{Grupo canino}
-#'
+#'
#' \item{\code{compm}}{Comprimento da mandíbula (mm)}
-#'
+#'
#'\item{\code{largmapm}}{Largura da mandíbula, abaixo do primeiro molar (mm)}
-#'
+#'
#'\item{\code{largca}}{Largura do côndilo aricular (mm)}
#'
#' \item{\code{altmapm}}{Altura da mandíbula, abaixo do primeiro molar (mm)}
-#'
+#'
#' \item{\code{comppm}}{Comprimento do primeiro molar (mm).}
-#'
+#'
#' \item{\code{largpm}}{Largura do primeiro molar (mm).}
-#'
+#'
#' \item{\code{compptm}}{Comprimento do primeiro ao terceiro molar (mm).}
-#'
+#'
#'\item{\code{comppqp}}{Comprimento do primeiro ao quarto pré-molar (mm).}
-#'
+#'
#'\item{\code{largci}}{Largura do canino inferior (mm).}
#'
-#'\item{\code{sexo}}{Código para sexo, (1 para masculino, 2 para feminino
+#'\item{\code{sexo}}{Código para sexo, (1 para masculino, 2 para feminino
#'e caso contrário é desconhecido}
#'
#' }
-#'
+#'
#' @keywords TS
-#' @source Manly, B. J. F. (2005). Métodos Estatísticos Multivariados -
+#' @source Manly, B. J. F. (2005). Métodos Estatísticos Multivariados -
#' uma introdução. Porto Alegre, RS: Bookman (pg 67 à 69)
#' @examples
#'
#' data(ManlyTb4.5)
#' require(lattice)
#' require(reshape2)
-#'
+#'
#' ManlyTb4.5long <- melt(ManlyTb4.5[,-11], id.vars = "grup")
#'
#' bwplot(value ~grup | variable, data = ManlyTb4.5long,
#' scales = c(list(relation = "free"), list(x=list(draw=FALSE))),
#' ylab = "",
#' main = "Boxplot de entre os grupo das medições da mandíbula",
-#' par.settings = list( box.umbrella=list(col = c(1,2,3,4,6)),
-#' box.dot=list(col = c(1,2,3,4,6)),
+#' par.settings = list( box.umbrella=list(col = c(1,2,3,4,6)),
+#' box.dot=list(col = c(1,2,3,4,6)),
#' box.rectangle = list(col = c(1,2,3,4,6))),
#' key = list(points = list(col=c(1,2,3,4,6), pch=19),
#' space = "top",
#' columns=2,
-#' text=list(c("Caes modernos da Tailandia", "Chacais dourados", "Cuons",
+#' text=list(c("Caes modernos da Tailandia", "Chacais dourados", "Cuons",
#' "Lobos indianos", "Caes pre-historicos tailandeses"))))
NULL
#' @name ManlyTb6.6
#' @title Ta\enc{ç}{c}as de cer\enc{â}{a}micas pr\enc{é}{e}-hist\enc{ó}{o}ricas
#'
-#' @description Dimensões de 25 taças de cerâmicas escavadas de lugares
+#' @description Dimensões de 25 taças de cerâmicas escavadas de lugares
#' pré-históricos na Tailândia.
#'
#' @format Um \code{data.frame} com 25 registros em 6 variáveis.
-#'
+#'
#' \describe{
#'
#' A figura apresentada descreve as cinco variáveis, correspondentes às
#' dimensões das taças.
-#'
+#'
#' \if{html}{\figure{ManlyTb6-6.jpg}{options: width="250px"}}
-#' \if{latex}{\figure{ManlyTb6-6.jpg}{options: width=1.75in}}
+#' \if{latex}{\figure{ManlyTb6-6.jpg}{options: width=1.75in}}
#'}
-#' @keywords AnaComp
-#'
-#' @source Manly, B. J. F. (2005). Métodos Estatísticos Multivariados-
+#' @keywords AnaComPrin
+#'
+#' @source Manly, B. J. F. (2005). Métodos Estatísticos Multivariados-
#' uma introdução. Porto Alegre, RS: Bookman (pg 101)
-#'
+#'
#' @examples
#'
#' data(ManlyTb6.6)
#'
#' pairs(~ x1 + x2 + x3 + x4 + x5 + x6,
-#' data = ManlyTb6.6,
+#' data = ManlyTb6.6,
#' main="Matriz de diapersão para as variáveis de medida das taças")
NULL
#' @name ManlyTb6.7
-#' @title Consumo de prote\enc{í}{i}na por habitantes de pa\enc{í}{i}ses europeus
+#' @title Consumo de prote\enc{í}{i}na por habitantes de pa\enc{í}{i}ses europeus
#'
-#' @description Estimativas dos consumos médios de proteínas de diferentes
-#' fontes de alimentos para habitantes de 25 países europeus.
+#' @description Estimativas dos consumos médios de proteínas de diferentes
+#' fontes de alimentos para habitantes de 25 países europeus.
#' Consumos registrados em gramas por pessoa por dia.
#'
#' @format Um \code{data.frame} com 25 países e 9 variáveis.
-#'
+#'
#' \describe{
#'
#' \item{\code{pais}}{Identificação do país.}
-#'
+#'
#' \item{\code{cv}}{Consumo de carne vermelha.}
-#'
+#'
#' \item{\code{cb}}{Consumo de carne branca.}
#'
#' \item{\code{ovo}}{Consumo de ovos.}
-#'
+#'
#' \item{\code{leite}}{Consumo de leite.}
-#'
+#'
#' \item{\code{peixe}}{Consumo de peixe.}
-#'
+#'
#' \item{\code{cere}}{Consumo por cereais.}
-#'
+#'
#' \item{\code{carb}}{Consumo de carboidratos.}
-#'
+#'
#' \item{\code{gnso}}{Consumo de grãos, nozes e sementes oleaginosas.}
-#'
+#'
#' \item{\code{fv}}{Consumo de frutas e vegetais.}
-#'
+#'
#' \item{\code{total}}{Total de consumo do país.}
-#'
+#'
#' }
-#' @keywords AnaComp
-#' @source Manly, B. J. F. (2005). Métodos Estatísticos Multivariados -
+#' @keywords AnaComPrin
+#' @source Manly, B. J. F. (2005). Métodos Estatísticos Multivariados -
#' uma introdução. Porto Alegre, RS: Bookman (pg 103)
-#'
+#'
#' @examples
#'
#' data(ManlyTb6.7)
-#'
+#'
#' pairs(~ cv + cb + ovo + leite + peixe + cere + carb + gnso + fv,
-#' data = ManlyTb6.7,
+#' data = ManlyTb6.7,
#' main="Matriz das variáveis de consumo de proteína")
NULL
@@ -568,65 +568,65 @@ NULL
#' @title Esp\enc{é}{e}cies de plantas em lotes
#'
#' @description Estudo de 25 espécies de plantas em 17 lotes de um prado
-#' de pastagem na Reserva Natural em Steneryd na Suécia. Cada valor na
-#' tabela é a soma dos valores cobertos em um intervalo de 0 a 5 por
-#' nove quadrantes de amostra, de modo que um valor 45 corresponde à
-#' completa cobertura pela espécie.
+#' de pastagem na Reserva Natural em Steneryd na Suécia. Cada valor na
+#' tabela é a soma dos valores cobertos em um intervalo de 0 a 5 por
+#' nove quadrantes de amostra, de modo que um valor 45 corresponde à
+#' completa cobertura pela espécie.
#'
-#' @format Um \code{data.frame} com 25 espécie de plantas com 18
+#' @format Um \code{data.frame} com 25 espécie de plantas com 18
#' variáveis
-#'
+#'
#' \describe{
#'
#' \item{\code{esp}}{Espécie}
-#'
+#'
#' \item{\code{l1}}{Medidas de abundância das espécies no lote 1.}
-#'
+#'
#' \item{\code{l2}}{Medidas de abundância das espécies no lote 2.}
-#'
+#'
#' \item{\code{l3}}{Medidas de abundância das espécies no lote 3.}
-#'
+#'
#' \item{\code{l4}}{Medidas de abundância das espécies no lote 4.}
-#'
+#'
#' \item{\code{l5}}{Medidas de abundância das espécies no lote 5.}
-#'
+#'
#' \item{\code{l6}}{Medidas de abundância das espécies no lote 6.}
-#'
+#'
#' \item{\code{l7}}{Medidas de abundância das espécies no lote 7.}
-#'
+#'
#' \item{\code{l8}}{Medidas de abundância das espécies no lote 8.}
-#'
+#'
#' \item{\code{l9}}{Medidas de abundância das espécies no lote 9.}
-#'
+#'
#' \item{\code{l10}}{Medidas de abundância das espécies no lote 10.}
-#'
+#'
#' \item{\code{l11}}{Medidas de abundância das espécies no lote 11.}
-#'
+#'
#' \item{\code{l12}}{Medidas de abundância das espécies no lote 12.}
-#'
+#'
#' \item{\code{l13}}{Medidas de abundância das espécies no lote 13.}
-#'
+#'
#' \item{\code{l14}}{Medidas de abundância das espécies no lote 14.}
-#'
+#'
#' \item{\code{l15}}{Medidas de abundância das espécies no lote 15.}
-#'
+#'
#' \item{\code{l16}}{Medidas de abundância das espécies no lote 16.}
-#'
+#'
#' \item{\code{l17}}{Medidas de abundância das espécies no lote 17.}
#' }
#'
-#' @keywords AnaClust
-#' @source Manly, B. J. F. (2005). Métodos Estatísticos Multivariados-
+#' @keywords AnaAgrup
+#' @source Manly, B. J. F. (2005). Métodos Estatísticos Multivariados-
#' uma introdução. Porto Alegre, RS: Bookman (pg 152)
#' @examples
#'
#' data(ManlyTb9.7)
-#'
+#'
#' euclid <- as.matrix(dist(ManlyTb9.7[,-1]))
-#'
-#' heatmap(euclid,
-#' margins= c(6,6),
-#' labRow = ManlyTb9.7$esp,
+#'
+#' heatmap(euclid,
+#' margins= c(6,6),
+#' labRow = ManlyTb9.7$esp,
#' labCol = ManlyTb9.7$esp,
#' main = "Heatmap para a matriz de distâncias para as 25 espécies")
NULL
@@ -634,114 +634,113 @@ NULL
#' @name ManlyTb9.8
#' @title Bens de t\enc{ú}{u}mulos
#'
-#' @description Conjunto de dados referentes a bens de túmulos de um
-#' cemitério em Bannadi, nordeste da Tailândia. São registros de
-#' presença ou ausência de 38 diferentes artigos em cada um dos 46
+#' @description Conjunto de dados referentes a bens de túmulos de um
+#' cemitério em Bannadi, nordeste da Tailândia. São registros de
+#' presença ou ausência de 38 diferentes artigos em cada um dos 46
#' túmulos, com informação adicional sobre se os restos mortais eram de
-#' um adulto masculino, feminino ou criança. Os sepultamentos estão na
+#' um adulto masculino, feminino ou criança. Os sepultamentos estão na
#' ordem de riqueza de diferentes bens (totais variando de 0 a 11), e os
-#' bens estão na ordem de frequência de ocorrência (totais variando de
+#' bens estão na ordem de frequência de ocorrência (totais variando de
#' 1 a 18).
-#'
+#'
#' @format Um \code{data.frame} com 45 linhas e 38 colunas.
-#'
+#'
#' \describe{
#'
#' \item{\code{sep}}{Identifica o sepultamento}
-#'
+#'
#' \item{\code{tipo}}{Identifica os restos Mortais (1 = Adulto masculino;
#' 2 = Adulto Feminino; 3 = Criança}
-#'
+#'
#' \item{\code{obj1}}{Presença (1) ou ausência (0) do objeto 1}
-#'
+#'
#' \item{\code{obj2}}{Presença (1) ou ausência (0) do objeto 2.}
-#'
+#'
#' \item{\code{obj3}}{Presença (1) ou ausência (0) do objeto 3.}
-#'
+#'
#' \item{\code{obj4}}{Presença (1) ou ausência (0) do objeto 4.}
-#'
+#'
#' \item{\code{obj5}}{Presença (1) ou ausência (0) do objeto 5.}
-#'
+#'
#' \item{\code{obj6}}{Presença (1) ou ausência (0) do objeto 6.}
-#'
+#'
#' \item{\code{obj7}}{Presença (1) ou ausência (0) do objeto 7.}
-#'
+#'
#' \item{\code{obj8}}{Presença (1) ou ausência (0) do objeto 8.}
-#'
+#'
#' \item{\code{obj9}}{Presença (1) ou ausência (0) do objeto 9.}
-#'
+#'
#' \item{\code{obj10}}{Presença (1) ou ausência (0) do objeto 10.}
-#'
+#'
#' \item{\code{obj11}}{Presença (1) ou ausência (0) do objeto 11.}
-#'
+#'
#' \item{\code{obj12}}{Presença (1) ou ausência (0) do objeto 12.}
-#'
+#'
#' \item{\code{obj13}}{Presença (1) ou ausência (0) do objeto 13.}
-#'
+#'
#' \item{\code{obj14}}{Presença (1) ou ausência (0) do objeto 14.}
-#'
+#'
#' \item{\code{obj15}}{Presença (1) ou ausência (0) do objeto 15.}
-#'
+#'
#' \item{\code{obj16}}{Presença (1) ou ausência (0) do objeto 16.}
-#'
+#'
#' \item{\code{obj17}}{Presença (1) ou ausência (0) do objeto 17.}
-#'
+#'
#' \item{\code{obj18}}{Presença (1) ou ausência (0) do objeto 18.}
#'
#' \item{\code{obj19}}{Presença (1) ou ausência (0) do objeto 19.}
-#'
+#'
#' \item{\code{obj20}}{Presença (1) ou ausência (0) do objeto 20.}
#'
#' \item{\code{obj21}}{Presença (1) ou ausência (0) do objeto 21.}
-#'
+#'
#' \item{\code{obj22}}{Presença (1) ou ausência (0) do objeto 22.}
-#'
+#'
#' \item{\code{obj23}}{Presença (1) ou ausência (0) do objeto 23.}
-#'
+#'
#' \item{\code{obj24}}{Presença (1) ou ausência (0) do objeto 24.}
-#'
+#'
#' \item{\code{obj25}}{Presença (1) ou ausência (0) do objeto 25.}
-#'
+#'
#' \item{\code{obj26}}{Presença (1) ou ausência (0) do objeto 26.}
-#'
+#'
#' \item{\code{obj27}}{Presença (1) ou ausência (0) do objeto 27.}
-#'
+#'
#' \item{\code{obj28}}{Presença (1) ou ausência (0) do objeto 28.}
-#'
+#'
#' \item{\code{obj29}}{Presença (1) ou ausência (0) do objeto 29.}
-#'
+#'
#' \item{\code{obj30}}{Presença (1) ou ausência (0) do objeto 30.}
-#'
+#'
#' \item{\code{obj31}}{Presença (1) ou ausência (0) do objeto 31.}
-#'
+#'
#' \item{\code{obj32}}{Presença (1) ou ausência (0) do objeto 32.}
-#'
+#'
#' \item{\code{obj33}}{Presença (1) ou ausência (0) do objeto 33.}
-#'
+#'
#' \item{\code{obj34}}{Presença (1) ou ausência (0) do objeto 34.}
-#'
+#'
#' \item{\code{obj35}}{Presença (1) ou ausência (0) do objeto 35.}
-#'
+#'
#' \item{\code{obj36}}{Presença (1) ou ausência (0) do objeto 36.}
-#'
+#'
#' \item{\code{obj37}}{Presença (1) ou ausência (0) do objeto 37.}
-#'
+#'
#' \item{\code{obj38}}{Presença (1) ou ausência (0) do objeto 38.}
-#'
+#'
#' }
#'
-#' @keywords AnaClust
-#' @source Manly, B. J. F. (2005). Métodos Estatísticos Multivariados-
+#' @keywords AnaAgrup
+#' @source Manly, B. J. F. (2005). Métodos Estatísticos Multivariados-
#' uma introdução. Porto Alegre, RS: Bookman (pg 153 e 154)
#' @examples
#'
#' data(ManlyTb9.8)
-#'
+#'
#' matdist <- as.matrix(dist(ManlyTb9.8[,-c(1,2)], method = "binary"))
#' ### Mapa de calor para a matriz de dissimilaridades.
-#' heatmap(matdist,
-#' margins= c(6,6),
-#' labRow = ManlyTb9.8$sep,
+#' heatmap(matdist,
+#' margins= c(6,6),
+#' labRow = ManlyTb9.8$sep,
#' labCol = ManlyTb9.8$sep)
NULL
-
diff --git a/R/Mingoti.R b/R/Mingoti.R
index 76ea5b3f45757cbc8ca17cc2d62a12cb608b8f97..bae0e87e5eb257f73c780a1dcd9ad1880233f3c9 100644
--- a/R/Mingoti.R
+++ b/R/Mingoti.R
@@ -131,7 +131,7 @@ NULL
#'
#' }
#'
-#' @keywords AnaComp
+#' @keywords AnaComPrin
#' @source Mingoti, S.A. (2005). Análise de dados através de métodos de
#' estatística multivariada - uma abordagem aplicada.
#' Belo Horizonte, MG: Editora UFMG. (pg 287).
@@ -174,7 +174,7 @@ NULL
#'
#' }
#'
-#' @keywords AnaComp
+#' @keywords AnaComPrin
#' @source Mingoti, S.A. (2005). Análise de dados através de métodos de
#' estatística multivariada - uma abordagem aplicada.
#' Belo Horizonte, MG: Editora UFMG. (pg 290).
@@ -267,7 +267,7 @@ NULL
#'
#' }
#'
-#' @keywords AnaComp
+#' @keywords AnaComPrin
#' @source Mingoti, S.A. (2005). Análise de dados através de métodos de
#' estatística multivariada - uma abordagem aplicada.
#' Belo Horizonte, MG: Editora UFMG. (pg 292).
@@ -401,7 +401,7 @@ NULL
#'
#' }
#'
-#' @keywords AnaComp
+#' @keywords AnaComPrin
#' @source Mingoti, S.A. (2005). Análise de dados através de métodos de
#' estatística multivariada - uma abordagem aplicada.
#' Belo Horizonte, MG: Editora UFMG. (pg 75).
@@ -480,7 +480,7 @@ NULL
#'
#' }
#'
-#' @keywords AnaComp
+#' @keywords AnaComPrin
#' @source Mingoti, S.A. (2005). Análise de dados através de métodos de
#' estatística multivariada - uma abordagem aplicada.
#' Belo Horizonte, MG: Editora UFMG. (pg 73).
@@ -513,7 +513,7 @@ NULL
#' \item{\code{idade}}{Idade do indivíduo.}
#'
#' }
-#' @keywords AnaClust
+#' @keywords AnaAgrup
#' @source Mingoti, S.A. (2005). Análise de dados através de métodos de
#' estatística multivariada - uma abordagem aplicada.
#' Belo Horizonte, MG: Editora UFMG. (pg 159).
@@ -558,7 +558,7 @@ NULL
#' desestabilização (tensões étnicas, conflito armado, etc).}
#'
#' }
-#' @keywords AnaClust
+#' @keywords AnaAgrup
#' @source Mingoti, S.A. (2005). Análise de dados através de métodos de
#' estatística multivariada - uma abordagem aplicada.
#' Belo Horizonte, MG: Editora UFMG. (pg 184).
diff --git a/R/Paula.R b/R/Paula.R
index 1e1ba46183bd17810b972e55874128839afae8a1..eaa2412b6b3cfaaa5971955d6b0fd1b99e18741f 100644
--- a/R/Paula.R
+++ b/R/Paula.R
@@ -1,24 +1,24 @@
#' @name PaulaEg1.12.2
#' @title Pacientes com Processo Infecioso Pulmonar
-#' @description Um total de 175 pacientes com processo infecioso
+#' @description Um total de 175 pacientes com processo infecioso
#' pulmonar atendidos no hospital no período acima foram classificados
-#' por algumas variáveis.
-#'
+#' por algumas variáveis.
+#'
#' @format Um \code{data.frame} com 175 observações e 5 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{tipo}}{Tipo de tumor (maligno, benigno).}
-#'
+#'
#' \item{\code{idade}}{Idade do paciente (em anos).}
-#'
+#'
#' \item{\code{sexo}}{Sexo do paciente (masculino, feminino).}
-#'
-#' \item{\code{hl}}{Intensidade da célula histiócitos-linfócitos (ausente,
+#'
+#' \item{\code{hl}}{Intensidade da célula histiócitos-linfócitos (ausente,
#' discreta, moderada, intensa).}
-#'
-#' \item{\code{ff}}{Intensidade da célula fibrose-frouxa (ausente,
+#'
+#' \item{\code{ff}}{Intensidade da célula fibrose-frouxa (ausente,
#' discreta, moderada, intensa).}
-#'
+#'
#' }
#' @keywords MLG
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
@@ -27,24 +27,24 @@
#' @examples
#'
#' data(PaulaEg1.12.2)
-#'
+#'
#' str(PaulaEg1.12.2)
-#'
+#'
#' library(lattice)
-#' bwplot(idade ~ hl | tipo,
+#' bwplot(idade ~ hl | tipo,
#' data = PaulaEg1.12.2,
#' ylab = "Idade",
#' xlab = "Intensidade da célula histiócitos-linfócitos")
-#'
-#' bwplot(idade ~ ff | tipo,
+#'
+#' bwplot(idade ~ ff | tipo,
#' data = PaulaEg1.12.2,
#' ylab = "Idade",
#' xlab = "Intensidade da célula fibrose-frouxa")
-#'
-#' barchart(table(PaulaEg1.12.2$tipo,PaulaEg1.12.2$hl),
-#' auto.key=list(space="top", columns=2,
+#'
+#' barchart(table(PaulaEg1.12.2$tipo,PaulaEg1.12.2$hl),
+#' auto.key=list(space="top", columns=2,
#' cex.title=1,
-#' rectangles = TRUE,
+#' rectangles = TRUE,
#' points=FALSE))
#'
NULL
@@ -104,25 +104,25 @@ NULL
#' @name PaulaEg1.12.5
#' @title Consumo de Combust\enc{í}{i}vel
-#' @description Dados referentes ao consumo de combustível em 48 estados
-#' norte-americanos. O interesse nesse estudo é tentar explicar o
+#' @description Dados referentes ao consumo de combustível em 48 estados
+#' norte-americanos. O interesse nesse estudo é tentar explicar o
#' consumo de combustível com base em variáveis econômicas.
-#'
+#'
#' @format Um \code{data.frame} com 48 observações e 6 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{est}}{Estado.}
-#'
+#'
#' \item{\code{taxa}}{Taxa do combustível no estado (em USD).}
-#'
+#'
#' \item{\code{licen}}{Proporção de motoristas licenciados.}
-#'
+#'
#' \item{\code{renda}}{Renda percapita (em USD).}
-#'
+#'
#' \item{\code{estr}}{Ajuda federal para as estradas (em 1000 USD).}
-#'
+#'
#' \item{\code{cons}}{Consumo de combustível por habitante.}
-#'
+#'
#' }
#' @keywords MLG
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
@@ -131,16 +131,16 @@ NULL
#' @examples
#'
#' data(PaulaEg1.12.5)
-#'
+#'
#' str(PaulaEg1.12.5)
-#'
+#'
#' library(lattice)
-#'
+#'
#' library(car)
-#'
+#'
#' scatterplotMatrix( ~ cons + taxa + licen + renda + estr,
#' data = PaulaEg1.12.5)
-#'
+#'
#' xyplot(cons ~ est,
#' ylab = "Consumo",
#' xlab = "Estados",
@@ -153,23 +153,23 @@ NULL
#' @name PaulaEg1.12.6
#' @title Sal\enc{á}{a}rio de Executivos
-#' @description Dados referentes ao salário anual de uma
-#' amostra aleatória de 220 executivos (145 homens e 75 mulheres). O
-#' salário será relacionado com as variáveis: sexo, anos de experiência
+#' @description Dados referentes ao salário anual de uma
+#' amostra aleatória de 220 executivos (145 homens e 75 mulheres). O
+#' salário será relacionado com as variáveis: sexo, anos de experiência
#' no cargo e posição na empresa.
-#'
+#'
#' @format Um \code{data.frame} com 220 observações e 4 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{sal}}{Salário anual (em mil USD).}
-#'
+#'
#' \item{\code{sexo}}{Sexo (masculino, feminino).}
-#'
+#'
#' \item{\code{pos}}{Posição na empresa (escore de 1 a 9).}
-#'
+#'
#' \item{\code{aexp}}{Experiência (em anos).}
-#'
-#'
+#'
+#'
#' }
#' @keywords MLG
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
@@ -178,11 +178,11 @@ NULL
#' @examples
#'
#' data(PaulaEg1.12.6)
-#'
+#'
#' str(PaulaEg1.12.6)
-#'
+#'
#' library(lattice)
-#'
+#'
#' xyplot(sal ~ aexp | sexo,
#' data = PaulaEg1.12.6,
#' type = c("p", "smooth"),
@@ -203,33 +203,33 @@ NULL
#' trimestre, latitude, longitude, dias de pesca, quantidade de
#' peixes capturados e a captura por unidade de esforço (definida
#' como divisão da quantidade de peixe capturado pelos dias de
-#' pesca).
+#' pesca).
#' @format Um \code{data.frame} com 156 observações e 8 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{frota}}{Fator com dois níveis que indica de qual frota é
#' a embarcação, \code{Santos} ou \code{Ubatuba}.}
-#'
+#'
#' \item{\code{ano}}{Fator com cinco níveis que representa o ano, de
#' \code{1995} a \code{1996}.}
-#'
+#'
#' \item{\code{trim}}{Fator com quatro níveis que representa o trimestre
#' em estudo, de \code{1} a \code{4}.}
-#'
+#'
#' \item{\code{lat}}{Latitude, definida como distância ao Equador medida
#' ao longo do meridiano de Greenwich.}
-#'
+#'
#' \item{\code{long}}{Longitude, definida como distância ao meridiano de
#' Greenwich medida ao longo do Equador.}
-#'
+#'
#' \item{\code{dias}}{Dias de pesca.}
-#'
+#'
#' \item{\code{captura}}{Quantidade de peixes-batata capturados, em kg.}
-#'
+#'
#' \item{\code{cpue}}{Captura por unidade de esforço, calculada como
#' razão da quantidade de peixes-batata capturados (\code{captura})
#' pelo número de dias de pesca \code{dias}.}
-#'
+#'
#' }
#' @keywords positivo-assimétrico
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
@@ -240,30 +240,30 @@ NULL
#' Esforço de Peixe-Batata na Frota Paulista. RAE-CEA0102, IME-USP.
#' @examples
#' data(PaulaEg2.4.2)
-#'
+#'
#' str(PaulaEg2.4.2)
-#'
+#'
#' # Separando as covariáveis numéricas
#' index <- sapply(PaulaEg2.4.2, is.numeric)
-#'
+#'
#' # Número de observações em cada combinação das covariáveis
#' # não numéricas
#' ftable(table(PaulaEg2.4.2[, !index]))
-#'
+#'
#' library(lattice)
-#'
+#'
#' # Relação marginal da variável resposta com as covariáveis
#' # não numéricas
#' bwplot(cpue ~ frota, data = PaulaEg2.4.2)
#' bwplot(cpue ~ ano, data = PaulaEg2.4.2)
#' bwplot(cpue ~ trim, data = PaulaEg2.4.2)
-#'
+#'
#' # Relação da variável resposta com as combinações das
#' # covariáveis não numéricas
#' ue <- with(PaulaEg2.4.2, paste(ano, trim, sep = "-"))
#' bwplot(cpue ~ ue | frota, data = PaulaEg2.4.2,
#' scales = list(x = list(rot = 90)))
-#'
+#'
#' # Verificando a suposição de coeficiente de variação constante,
#' # desconsiderando as covariáveis tri e numéricas
#' resumo <- aggregate(cpue ~ frota + ano, data = PaulaEg2.4.2,
@@ -274,7 +274,7 @@ NULL
#' "n" = length(x))
#' })
#' ftable(xtabs(cpue ~ frota + ano, data = resumo))
-#'
+#'
#' # Relação das covariáveis numéricas
#' splom(~PaulaEg2.4.2[, index], groups = frota,
#' data = PaulaEg2.4.2,
@@ -288,26 +288,26 @@ NULL
#' individuais por danos com acidentes pessoais no período de
#' janeiro de 1998 a junho de 1999 (18 meses). O estudo completo
#' (Jong e Heller, 2008) contém o acompanhamento dos seguros desde
-#' 1989. No período considerado aqui foram pagos 769 seguros, sendo
+#' 1989. No período considerado aqui foram pagos 769 seguros, sendo
#' armazenadas as informações: se houve representação
#' legal, tempo operacional para pagamento e mês em que ocorreu o
#' acidente.
#' @format Um \code{data.frame} com 769 observações e 4 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{valor}}{Valor pago do seguro, em dólares australianos.}
-#'
+#'
#' \item{\code{rl}}{Fator com dois níveis que indica, se no seguro em
#' análise, há representação legal do indivíduo.}
-#'
+#'
#' \item{\code{mes}}{Fator com 15 níveis que indica o mês de ocorrência
#' do acidente. Os níveis deste fator são codificados e não
#' informou-se quais os meses que eles representam.}
-#'
+#'
#' \item{\code{to}}{Tempo operacional para pagamento do seguro. Essa
#' variável assume valores de 0,1 a 31,9, pois são considerados
#' apenas os 18 últimos meses do estudo.}
-#'
+#'
#' }
#' @keywords positivo-assimétrico
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
@@ -315,19 +315,19 @@ NULL
#'
#' @references De Jong, P., Heller, G. Z. (2008). Generalized linear
#' models for insurance data (Vol. 136). Cambridge: Cambridge
-#' University Press.
+#' University Press.
#' @examples
#' data(PaulaEg2.4.3)
-#'
+#'
#' str(PaulaEg2.4.3)
-#'
+#'
#' # Número de seguros pagos em cada combinação de mês e
#' # representação legal
#' ftable(table(PaulaEg2.4.3[, c("mes", "rl")]))
#' table(PaulaEg2.4.3[, c("rl")])
-#'
+#'
#' library(lattice)
-#'
+#'
#' xyplot(log(valor) ~ to | rl,
#' data = PaulaEg2.4.3,
#' type = c("p", "g", "smooth"),
@@ -336,7 +336,7 @@ NULL
#' strip.names = TRUE,
#' var.name = "Representação Legal",
#' sep = ": "))
-#'
+#'
#' densityplot(~valor | rl,
#' data = PaulaEg2.4.3,
#' grid = TRUE,
@@ -399,23 +399,23 @@ NULL
#' ácidos graxos, foram comparados ao longo de 20 semanas. Nesse
#' novo produto a gordura vegetal hidrogenada, responsável pela
#' fixação do aroma do produto, foi substituída, totalmente ou
-#' parcialmente, por óleo de canola. Ao todo foram produzidas 750
-#' observações, referentes a 15 avaliações para cada tipo de snack
+#' parcialmente, por óleo de canola. Ao todo foram produzidas 750
+#' observações, referentes a 15 avaliações para cada tipo de snack
#' a cada 2 semanas.
#' @format Um \code{data.frame} com 750 observações e 3 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{semana}}{Semana da avaliação.}
-#'
-#' \item{\code{tipo}}{Tipo de snack avaliado. Os níveis representam as
+#'
+#' \item{\code{tipo}}{Tipo de snack avaliado. Os níveis representam as
#' seguintes configurações:
#' \code{A}: 22\% de gordura, 0\% de óleo de canola, \code{B}: 0\%
#' de gordura, 22\% de óleo de canola, \code{C}: 17\% de gordura,
#' 5\% de óleo de canola, \code{D}: 11\% de gordura, 11\% de óleo de
#' canola e \code{E}: 5\% de gordura, 17\% de óleo de canola.}
-#'
+#'
#' \item{\code{fnpc}}{Força necessária para o cisalhamento.}
-#'
+#'
#' }
#' @keywords positivo-assimétrico
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
@@ -424,21 +424,21 @@ NULL
#'
#' @examples
#' data(PaulaEg2.8.1)
-#'
+#'
#' str(PaulaEg2.8.1)
-#'
+#'
#' # Experimento balanceado, 15 observações para cada tipo em cada
#' # semana
#' ftable(PaulaEg2.8.1[, c("tipo", "semana")])
#' xtabs(fnpc ~ tipo + semana, data = PaulaEg2.8.1)
-#'
+#'
#' library(lattice)
#' bwplot(fnpc ~ tipo | factor(semana),
#' data = PaulaEg2.8.1,
#' as.table = TRUE,
#' strip = strip.custom(strip.names = TRUE,
#' var.name = "semana"))
-#'
+#'
#' # Estatísticas descritivas
#' resumo <- aggregate(fnpc ~ tipo + semana,
#' data = PaulaEg2.8.1,
@@ -449,7 +449,7 @@ NULL
#' "n" = length(x))
#' })
#' ftable(xtabs(fnpc ~ tipo + semana, data = resumo))
-#'
+#'
#' xyplot(fnpc[, "Média"] ~ semana,
#' groups = tipo,
#' data = resumo,
@@ -465,18 +465,18 @@ NULL
#' @name PaulaEg3.5.1
#' @title Associa\enc{çã}{ca}o entre fungicida e desenvolvimento de tumor
#' @description Dados de um experimento realizado para avaliar
-#' o possível efeito cancerígeno do fungicida Avadex. Foram utilizados
-#' 403 camundongos. Desses, 65 receberam o fungicida e foram acompanhados
-#' durante 85 semanas, verificando-se o desenvolvimento ou não de tumor
-#' cancerígeno. Os demais animais não receberam o fungicida (grupo controle)
+#' o possível efeito cancerígeno do fungicida Avadex. Foram utilizados
+#' 403 camundongos. Desses, 65 receberam o fungicida e foram acompanhados
+#' durante 85 semanas, verificando-se o desenvolvimento ou não de tumor
+#' cancerígeno. Os demais animais não receberam o fungicida (grupo controle)
#' e também foram acompanhados pelo mesmo período.
-#'
+#'
#' @format Um \code{data.frame} com 4 observações e 4 variáveis, em que
#'
#' \describe{
#'
#' \item{sexo}{Sexo do camundongo (macho = 1 e fêmea = 0).}
-#'
+#'
#' \item{trat}{Identifica a presença ou não do tratamento (sim = 1 e não = 0).}
#'
#' \item{casos}{Número inteiro que identifica a quantidade de casos
@@ -485,9 +485,9 @@ NULL
#' \item{exp}{Quantidade de camundongos expostos.}
#'
#' }
-#'
-#' @keywords GLM binarios
-#' @source Paula, G. A. (2004). Modelos de regressão: com apoio computacional.
+#'
+#' @keywords MLG binarios
+#' @source Paula, G. A. (2004). Modelos de regressão: com apoio computacional.
#' São Paulo, SP: IME-USP. (Eg 3.5.1 pág. 201)
#' @examples
#'
@@ -498,9 +498,9 @@ NULL
#' barchart(casos/exp ~ trat | sexo, data = PaulaEg3.5.1,
#' xlab="Grupo", ylab="Proporção de casos",
#' scales=list(x=list(labels=c("Controle","Tratado"))),
-#' strip=strip.custom(var.name="Sexo",
+#' strip=strip.custom(var.name="Sexo",
#' factor.levels=c(" Fêmea", "Macho"),
-#' strip.levels=rep(TRUE,2)),
+#' strip.levels=rep(TRUE,2)),
#' main="Associação entre fungicida e desenvolvimento de tumor")
NULL
@@ -509,14 +509,14 @@ NULL
#' @name PaulaEg3.5.2
#' @title Efeito de extrato vegetal
-#' @description Dados de um experimento conduzido para avaliar o efeito de
-#' diversos extratos vegetais na mortalidade de embriões de
-#' \emph{Biomphalaria Glabrata}. Para o extrato vegetal aquoso frio de
+#' @description Dados de um experimento conduzido para avaliar o efeito de
+#' diversos extratos vegetais na mortalidade de embriões de
+#' \emph{Biomphalaria Glabrata}. Para o extrato vegetal aquoso frio de
#' folhas de \emph{P. Hyrsiflora} foram consideradas 7 amostras, sendo
-#' que em cada uma delas 50 embriões foram submetidos a uma particular
-#' dose do extrato vegetal, registrando-se, após o vigésimo dia, o
+#' que em cada uma delas 50 embriões foram submetidos a uma particular
+#' dose do extrato vegetal, registrando-se, após o vigésimo dia, o
#' número de embriões mortos.
-#'
+#'
#' @format Um \code{data.frame} com 2 observações e 3 variáveis, em que
#'
#' \describe{
@@ -524,10 +524,10 @@ NULL
#' \item{dose}{Dose de extrato vegetal aplicada (em partes por milhão).}
#'
#' \item{emb}{Número observado de embriões mortos.}
-#'
+#'
#' }
-#' @keywords GLM binarios
-#' @source Paula, G. A. (2004). Modelos de regressão: com apoio computacional.
+#' @keywords MLG binarios
+#' @source Paula, G. A. (2004). Modelos de regressão: com apoio computacional.
#' São Paulo, SP: IME-USP. (Eg 3.5.2 pág. 203)
#' @examples
#'
@@ -536,72 +536,72 @@ NULL
#' data(PaulaEg3.5.2)
#'
#' str(PaulaEg3.5.2)
-#'
-#' barchart(emb/(sum(emb)) ~ dose, data = PaulaEg3.5.2,
+#'
+#' barchart(emb/(sum(emb)) ~ dose, data = PaulaEg3.5.2,
#' stack=TRUE, col= "lightblue",
-#' xlab="Dose (em ppm)", ylab="Proporção de embriões mortos",
+#' xlab="Dose (em ppm)", ylab="Proporção de embriões mortos",
#' main="Efeito de extrato vegetal")
-#'
+#'
NULL
#' @name PaulaEg3.6.11a
#' @title Exposi\enc{çã}{ca}o de besouros
-#' @description Dados de um estudo sobre o efeito da exposição de
-#' besouros adultos a diferentes doses de disulfeto de carbono gasoso
-#' \emph{(CS2)}, durante cinco horas. Foram registrados os números
-#' de besouros mortos.
-#'
+#' @description Dados de um estudo sobre o efeito da exposição de
+#' besouros adultos a diferentes doses de disulfeto de carbono gasoso
+#' \emph{(CS2)}, durante cinco horas. Foram registrados os números
+#' de besouros mortos.
+#'
#' @format Um \code{data.frame} com 8 observações e 3 variáveis, em que
#'
#' \describe{
#'
#' \item{mortos}{Quantidade observada de besouros mortos.}
-#'
+#'
#' \item{exp}{Quantidade de besouros expostos a cada dose.}
#'
#' \item{dose}{Dose de disulfeto de carbono gasoso à qual os besouros
#' foram expostos.}
-#'
+#'
#' }
-#' @keywords GLM binarios
-#' @source Paula, G. A. (2004). Modelos de regressão: com apoio computacional.
+#' @keywords MLG binarios
+#' @source Paula, G. A. (2004). Modelos de regressão: com apoio computacional.
#' São Paulo, SP: IME-USP. (Eg 3.6.11a pág. 237)
#' @examples
#'
#' library(lattice)
#'
#' data(PaulaEg3.6.11a)
-#'
+#'
#' str(PaulaEg3.6.11a)
#'
-#' xyplot(mortos/(sum(mortos)) ~ dose, data = PaulaEg3.6.11a,
+#' xyplot(mortos/(sum(mortos)) ~ dose, data = PaulaEg3.6.11a,
#' type = "o",
-#' xlab = "Dose de disulfeto de carbono gasoso",
-#' ylab = "Proporção de besouros mortos",
+#' xlab = "Dose de disulfeto de carbono gasoso",
+#' ylab = "Proporção de besouros mortos",
#' main = expression("Exposição de besouros a"~CS[2]))
-#'
+#'
NULL
#' @name PaulaEg3.6.11b
#' @title Idade do in\enc{í}{i}cio da menstrua\enc{çã}{ca}o em garotas de Vars\enc{ó}{o}via
-#' @description Dados de um estudo em que se investigou a idade do início
-#' da menstruação em 3918 garotas de Varsóvia. Para 25 médias de
+#' @description Dados de um estudo em que se investigou a idade do início
+#' da menstruação em 3918 garotas de Varsóvia. Para 25 médias de
#' idade foram observadas a ocorrência ou não do início de períodos
-#' de menstruação nas adolescentes.
-#'
+#' de menstruação nas adolescentes.
+#'
#' @format Um \code{data.frame} com 25 observações e 3 variáveis, em que
#'
#' \describe{
#'
#' \item{menst}{Número de garotas menstruando.}
-#'
+#'
#' \item{entre}{Número de garotas entrevistadas.}
#'
#' \item{idade}{Idade media.}
-#'
+#'
#' }
-#' @keywords GLM
-#' @source Paula, G. A. (2004). Modelos de regressão: com apoio computacional.
+#' @keywords MLG
+#' @source Paula, G. A. (2004). Modelos de regressão: com apoio computacional.
#' São Paulo, SP: IME-USP. (Eg 3.6.11b pág. 241)
#' @examples
#'
@@ -609,29 +609,29 @@ NULL
#'
#' data(PaulaEg3.6.11b)
#'
-#'
-#' xyplot((menst/entre) ~ idade, data = PaulaEg3.6.11b,
+#'
+#' xyplot((menst/entre) ~ idade, data = PaulaEg3.6.11b,
#' type = c("p","a"),
-#' xlab = "Idade média",
-#' ylab = "Meninas menstruando/Entrevistadas",
+#' xlab = "Idade média",
+#' ylab = "Meninas menstruando/Entrevistadas",
#' main = "Idade do início da menstruação em garotas de Varsóvia.")
NULL
#' @name PaulaEg3.6.9c
#' @title Prefer\enc{ê}{e}ncia de consumidores
#' @description Dados sobre a preferência de consumidores americanos com
-#' relação a automóveis. Uma amostra aleatória de 263 consumidores foi
-#' considerada. As seguintes variáveis foram observadas para cada
-#' comprador: preferência quanto ao tipo de automóvel, idade, sexo e
-#' estado civil.
-#'
+#' relação a automóveis. Uma amostra aleatória de 263 consumidores foi
+#' considerada. As seguintes variáveis foram observadas para cada
+#' comprador: preferência quanto ao tipo de automóvel, idade, sexo e
+#' estado civil.
+#'
#' @format Um \code{data.frame} com 263 observações e 4 variáveis, em que
#'
#' \describe{
#'
-#' \item{pref}{Preferência do comprador por um tipo de automóvel (1 = americano,
+#' \item{pref}{Preferência do comprador por um tipo de automóvel (1 = americano,
#' 0 = japonês).}
-#'
+#'
#' \item{idade}{Idade do comprador (em anos).}
#'
#' \item{sexo}{Sexo do comprador (0 = masculino; 1 = feminino).}
@@ -639,8 +639,8 @@ NULL
#' \item{est}{Estado civil do comprador (0 = casado, 1 = solteiro).}
#'
#' }
-#' @keywords GLM binarios
-#' @source Paula, G. A. (2004). Modelos de regressão: com apoio computacional.
+#' @keywords MLG binarios
+#' @source Paula, G. A. (2004). Modelos de regressão: com apoio computacional.
#' São Paulo, SP: IME-USP. (Eg 3.6.9c pág. 231)
#' @examples
#'
@@ -649,13 +649,13 @@ NULL
#' data(PaulaEg3.6.9c)
#'
#' str(PaulaEg3.6.9c)
-#'
-#' bwplot(idade ~ pref, data = PaulaEg3.6.9c,
+#'
+#' bwplot(idade ~ pref, data = PaulaEg3.6.9c,
#' type="p",
-#' xlab="Preferência - Japonês e Americano",
-#' ylab="Idade do Comprador",
+#' xlab="Preferência - Japonês e Americano",
+#' ylab="Idade do Comprador",
#' main="Preferência")
-#'
+#'
NULL
#' @name PaulaEg4.2.6
@@ -667,18 +667,18 @@ NULL
#' explicativas registradas
#' @format Um \code{data.frame} com 110 observações e 6 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{nclien}}{Número de clientes da loja na área.}
-#'
+#'
#' \item{\code{ndomic}}{Número de domicílios na área (em mil).}
-#'
+#'
#' \item{\code{renda}}{Renda média anual da área (em mil USD).}
-#'
+#'
#' \item{\code{idade}}{Idade média dos domicílios (em anos).}
-#'
+#'
#' \item{\code{distac}}{Distância entre a área e o concorrente mais
#' próximo (em milhas).}
-#'
+#'
#' \item{\code{distal}}{Distância entre a área e a loja (em milhas).}
#'
#' }
@@ -692,9 +692,9 @@ NULL
#' @examples
#'
#' data(PaulaEg4.2.6)
-#'
+#'
#' str(PaulaEg4.2.6)
-#'
+#'
#' library(lattice)
#' splom(PaulaEg4.2.6, type = c("p", "smooth"), lwd = 2)
#'
@@ -709,22 +709,22 @@ NULL
#' o aluno está cursando e desempenho escolar.
#' @format Um \code{data.frame} com 146 observações e 5 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{etnia}}{Fator com dois níveis que indica se o aluno é
#' aborígene da própria região (A) ou não aborígene (N).}
-#'
+#'
#' \item{\code{sexo}}{Fator com dois níveis que indica o sexo do
#' aluno: masculino (M) ou feminino (F).}
-#'
+#'
#' \item{\code{ano}}{Fator com quatro níveis que indica o ano que o aluno
#' está cursando: 8ª série (F0), 1º ano do ensino médio (F1), 2º ano
#' do ensino médio (F2) ou 3º ano do ensino médio (F3).}
-#'
+#'
#' \item{\code{desemp}}{Fator com dois níveis que indica o desempenho do
#' aluno: baixo (SL) ou normal (AL).}
-#'
+#'
#' \item{\code{ndias}}{Número de dias ausentes no ano letivo.}
-#'
+#'
#' }
#' @keywords contagem superdispersão
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
@@ -735,20 +735,20 @@ NULL
#' @examples
#'
#' data(PaulaEg4.3.6)
-#'
+#'
#' str(PaulaEg4.3.6)
-#'
+#'
#' # Número de observações em cada combinação. Para modelagem não será
#' # possível a estimação de algumas interações
#' ftable(PaulaEg4.3.6[, -5])
-#'
+#'
#' # Ausência escolar seccionadas pelas variáveis explicativas
#' xtabs(ndias ~ ., data = PaulaEg4.3.6)
-#'
+#'
#' # Relação média-variância
#' aggregate(ndias ~ ., FUN = function(x) c(mean(x), var(x)),
#' data = PaulaEg4.3.6)
-#'
+#'
#' library(latticeExtra)
#' fl1 <- c("Aborígene", "Não Aborígene")
#' fl2 <- c("Feminino", "Masculino")
@@ -768,48 +768,48 @@ NULL
#' @name PaulaEg5.2.8a
#' @title N\enc{ú}{u}mero de \enc{Á}{A}caros em Placas de Esterco de Gado
-#' @description Dados de um experimento desenvolvido para estudar
-#' a distribuição do número de ácaros em placas de esterco de gado
-#' bovino no estado de São Paulo, obtidos por Paula e Tavares, 1992.
-#' Essas placas são depósitos de ovos da mosca do chifre
-#' (\emph{Haematobia irritans}), uma das pragas mais importantes da
-#' pecuária brasileira. Os ácaros são inimigos naturais da mosca do
+#' @description Dados de um experimento desenvolvido para estudar
+#' a distribuição do número de ácaros em placas de esterco de gado
+#' bovino no estado de São Paulo, obtidos por Paula e Tavares, 1992.
+#' Essas placas são depósitos de ovos da mosca do chifre
+#' (\emph{Haematobia irritans}), uma das pragas mais importantes da
+#' pecuária brasileira. Os ácaros são inimigos naturais da mosca do
#' chifre, uma vez que se alimentam de ovos e larvas dessas moscas.
-#'
+#'
#' @format Um \code{data.frame} com 102 observações e 8 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{esp2}}{Número de ácaros coletados da espécie 2.}
-#'
+#'
#' \item{\code{esp3}}{Número de ácaros coletados da espécie 3.}
-#'
+#'
#' \item{\code{esp6}}{Número de ácaros coletados da espécie 6.}
-#'
+#'
#' \item{\code{esp14}}{Número de ácaros coletados da espécie 14.}
-#'
-#' \item{\code{placa}}{Número de partes da placa de esterco onde
+#'
+#' \item{\code{placa}}{Número de partes da placa de esterco onde
#' foram coletados os ácaros. (1 ou 6)}
-#'
-#' \item{\code{posic}}{Posição na placa de esterco onde foram coletados
+#'
+#' \item{\code{posic}}{Posição na placa de esterco onde foram coletados
#' os ácaros (central ou lateral).}
-#'
+#'
#' \item{\code{reg}}{Região onde a placa de esterco foi coletada (São
#' Roque, Pindamonhangaba, Nova Odessa ou Ribeirão Preto).}
-#'
+#'
#' \item{\code{temp}}{Temperatura no local da coleta, medida
#' \eqn{C^{\circ}}.}
-#'
+#'
#' }
#' @keywords quase-verossimilhança
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
#' computacional. São Paulo, SP: IME-USP. (Exemplo 5.2.8a, pág. 359)
-#'
+#'
#' @references Paula, G. A. e Tavares, H. R. (1992). Relatório de
#' Análise Estatística sobre o Projeto: Ácaros Associados ao Esterco
#' Bovino. Subsídios para Controle Biológico da Mosca do Chifre.
#' RAECEA 9206, IME-USP
#' @examples
-#'
+#'
#' data(PaulaEg5.2.8a)
#'
#' str(PaulaEg5.2.8a)
@@ -832,19 +832,19 @@ NULL
#'
#' @format Um \code{data.frame} com 90 observações e 3 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{incid}}{Proporção da área afetada na folha de cevada.}
-#'
+#'
#' \item{\code{local}}{Local onde foi realizado o experimento (1-9).}
-#'
+#'
#' \item{\code{varied}}{Variedade de cevada (1-10).}
-#'
+#'
#' }
-#'
+#'
#' @keywords quase-verossimilhança
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
#' computacional. São Paulo, SP: IME-USP. (Exemplo 5.2.8a, pág. 367)
-#'
+#'
#' @references McCullagh, P. e Nelder, J. A. (1989). Generalized Linear
#' Models, 2nd. Edition. Chapman and Hall, London. Tabela 9.2.
#' @examples
@@ -865,42 +865,42 @@ NULL
#' @name PaulaEg5.5.1
#' @title Ensaio Cl\enc{í}{i}nico com Indiv\enc{í}{i}duos Epil\enc{é}{e}pticos
-#' @description Dados apresentados em Diggle, Liang e Zeger (1994),
+#' @description Dados apresentados em Diggle, Liang e Zeger (1994),
#' referentes a um ensaio clínico com 59 indivíduos epilépticos,
#' aleatorizados de modo que cada um recebesse uma droga
#' antiepiléptica (progabide) ou placebo.
-#' Os dados de cada indivíduo consistem do número de ataques
+#' Os dados de cada indivíduo consistem do número de ataques
#' epilépticos num período de oito semanas antes do tratamento, além
#' do número de ataques em cada período de duas semanas, num total
#' de quatro períodos após o tratamento. O interesse do estudo é
#' verificar possível diminuição na taxa de ataques epilépticos.
-#'
+#'
#' @format Um \code{data.frame} com 295 observações e 5 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{indiv}}{Identificação do indivíduo.}
-#'
-#' \item{\code{period}}{Período de observação (1 = antes do tratamento,
-#' 2 = primeiro período após o tratamento, 3 = segundo período após
+#'
+#' \item{\code{period}}{Período de observação (1 = antes do tratamento,
+#' 2 = primeiro período após o tratamento, 3 = segundo período após
#' o tratamento e 4 = terceiro período após o tratamento).}
-#'
+#'
#' \item{\code{seman}}{Número de semanas em cada período.}
-#'
+#'
#' \item{\code{ataq}}{Número de ataques em cada período.}
-#'
+#'
#' \item{\code{trat}}{Tratamento aplicado a cada indivíduo (placebo ou
#' progabide).}
-#'
+#'
#' }
#' @keywords quase-verossimilhança
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
#' computacional. São Paulo, SP: IME-USP. (Exemplo 5.5.1, pág. 379)
-#'
+#'
#' @references Diggle, P. J.; Liang, K. Y. e Zeger, S. L. (1994).
#' Analysis of Longitudinal Data. Oxford University Press.
#' Seção 8.4.
#' @examples
-#'
+#'
#' data(PaulaEg5.5.1)
#'
#' str(PaulaEg5.5.1)
@@ -911,7 +911,7 @@ NULL
#' type = c("p", "a"),
#' xlab = "Período",
#' ylab = "Número de ataques epilépticos")
-#'
+#'
NULL
#' @name PaulaEg5.5.2
@@ -927,26 +927,26 @@ NULL
#' @format Um \code{data.frame} com 224 observações e 6 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{paci}}{Identificação do paciente.}
-#'
+#'
#' \item{\code{trat}}{Tratamento aplicado ao paciente (droga ativa ou
#' placebo).}
-#'
+#'
#' \item{\code{sexo}}{Sexo do paciente.}
-#'
+#'
#' \item{\code{idade}}{Idade (em anos).}
-#'
+#'
#' \item{\code{nivel}}{Pré-existência de um nível base (ausência ou
#' presença).}
-#'
+#'
#' \item{\code{cond}}{Condição respiratória do paciente (boa ou ruim).}
-#'
+#'
#' }
#' @keywords quase-verossimilhança
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
#' computacional. São Paulo, SP: IME-USP. (Exemplo 5.5.2, pág. 385)
-#'
+#'
#' @references Myers, R.H.; Montgomery, D. C.; Vining, G. G. (2002).
#' Generalized Linear Models: With Applications in Engineering and
#' the Sciences. John Wiley, New York. Seção 6.5.
@@ -955,7 +955,7 @@ NULL
#' data(PaulaEg5.5.2)
#'
#' str(PaulaEg5.5.2)
-#'
+#'
#' library(latticeExtra)
#'
#' tb <- with(PaulaEg5.5.2, table(nivel, trat, sexo, cond))
@@ -972,50 +972,50 @@ NULL
#' columns = 2, cex.title = 1)
#' )
#' )
-#'
+#'
NULL
#' @name PaulaEg5.5.3
#' @title Ensaio cl\enc{í}{i}nico da pr\enc{é}{e}-exist\enc{ê}{e}ncia de placa dent\enc{á}{a}ria
-#' @description Dados de um ensaio clínico realizado com 109 indivíduos,
+#' @description Dados de um ensaio clínico realizado com 109 indivíduos,
#' distribuídos de forma aleatória para receberem um líquido
#' tipo A (34 indivíduos), um líquido tipo B (36 indivíduos) ou um
-#' líquido controle (39 indivíduos). Placas dentárias foram
-#' avaliadas e classificadas segundo um escore no início do
+#' líquido controle (39 indivíduos). Placas dentárias foram
+#' avaliadas e classificadas segundo um escore no início do
#' tratamento, após 3 e 6 meses.
-#'
+#'
#' @format Um \code{data.frame} com 323 observações e 4 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{volunt}}{Identificação do paciente voluntário.}
-#'
+#'
#' \item{\code{period}}{Momento de avaliação: (1 = início do tratamento,
#' 2 = após 3 meses e 3 = após 6 meses.}
-#'
+#'
#' \item{\code{trat}}{Tipo de tratamento (1 = placebo, 2 = líquido A e
#' 3 = líquido B.}
-#'
+#'
#' \item{\code{escore}}{Escore atribuído às placas dentárias.}
-#'
+#'
#' }
#' @keywords quase-verossimilhança
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
#' computacional. São Paulo, SP: IME-USP. (Exemplo 5.5.3, pág. 390)
-#'
-#' @references Hadgu, A. e Koch, G. (1999). Application of generalized
-#' estimating equations to a dental randomized clinical trial. Journal
+#'
+#' @references Hadgu, A. e Koch, G. (1999). Application of generalized
+#' estimating equations to a dental randomized clinical trial. Journal
#' of Biopharmaceutical Statistics 9, 161-178.
-#'
+#'
#' @examples
-#'
+#'
#' data(PaulaEg5.5.3)
-#'
+#'
#' require(lattice)
-#'
+#'
#' xyplot(escore ~ period | trat, groups = volunt,
-#' xlab = 'Período', ylab = 'Escore', type = c("p", "a"),
+#' xlab = 'Período', ylab = 'Escore', type = c("p", "a"),
#' data = PaulaEg5.5.3)
-#'
+#'
NULL
#' @name PaulaEx1.13.19
@@ -1071,28 +1071,28 @@ NULL
#' @name PaulaEx1.13.20
#' @title Vendas de Telhados de Madeira
-#' @description Dados referentes a vendas de um tipo de telhado de madeira
+#' @description Dados referentes a vendas de um tipo de telhado de madeira
#' em 26 filiais de uma rede de lojas de construção. Um dos objetivos do
#' estudo é tentar prever o número esperado de telhados vendidos
#' dadas as demais variáveis registradas.
-#'
+#'
#' @format Um \code{data.frame} com 26 observações e 5 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{gasto}}{Gasto com publicidade do produto (em mil
#' dólares).}
-#'
+#'
#' \item{\code{ncli}}{Número de clientes cadastrados (em milhares).}
-#'
+#'
#' \item{\code{nmar}}{Número de marcas concorrentes do produto}
-#'
+#'
#' \item{\code{poten}}{Potencial da loja, informação advinda da rede de
#' lojas de construção (quanto maior o valor maior o potencial de
#' venda da filial).}
-#'
+#'
#' \item{\code{telha}}{Total de telhados vendidos (em mil metros
#' quadrados).}
-#'
+#'
#' }
#' @keywords TODO
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
@@ -1100,9 +1100,9 @@ NULL
#' pág. 110)
#' @examples
#' data(PaulaEx1.13.20)
-#'
+#'
#' str(PaulaEx1.13.20)
-#'
+#'
#' library(lattice)
#' splom(PaulaEx1.13.20,
#' type = c("p", "g", "smooth"),
@@ -1119,21 +1119,21 @@ NULL
#' produzida.
#' @format Um \code{data.frame} com 82 observações e 5 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{x1}}{Variável não nomeada. Imagina-se que se tenha
#' relação com o número de octanas da gasolina.}
-#'
+#'
#' \item{\code{x2}}{Variável não nomeada. Imagina-se que se tenha
#' relação com o número de octanas da gasolina.}
#'
#' \item{\code{x3}}{Variável não nomeada. Imagina-se que se tenha
#' relação com o número de octanas da gasolina.}
-#'
+#'
#' \item{\code{x4}}{Valores de uma combinação (não informada) das
#' variável \code{x1}, \code{x2} e \code{x3}.}
-#'
+#'
#' \item{\code{nocta}}{Número de octanas da gasolina produzida.}
-#'
+#'
#' }
#' @keywords TODO
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
@@ -1141,9 +1141,9 @@ NULL
#' pág. 110)
#' @examples
#' data(PaulaEx1.13.21)
-#'
+#'
#' str(PaulaEx1.13.21)
-#'
+#'
#' library(lattice)
#' splom(PaulaEx1.13.21,
#' type = c("p", "g", "smooth"),
@@ -1158,17 +1158,17 @@ NULL
#' no preço de venda de um imóvel.
#' @format Um \code{data.frame} com 27 observações e 5 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{impos}}{Valor cobrado de imposto, em 100 dólares.}
-#'
+#'
#' \item{\code{areat}}{Área do terreno, em 1000 pés quadrados.}
-#'
+#'
#' \item{\code{areac}}{Área construída, em 1000 pés quadrados.}
-#'
+#'
#' \item{\code{idade}}{Idade da residência, em anos.}
-#'
+#'
#' \item{\code{preco}}{Preço de venda do imóvel, em 1000 dólares.}
-#'
+#'
#' }
#' @keywords TODO
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
@@ -1176,9 +1176,9 @@ NULL
#' pág. 111)
#' @examples
#' data(PaulaEx1.13.22)
-#'
+#'
#' str(PaulaEx1.13.22)
-#'
+#'
#' library(lattice)
#' splom(PaulaEx1.13.22,
#' type = c("p", "g", "smooth"),
@@ -1194,15 +1194,15 @@ NULL
#' árvore a partir de sua altura e diâmetro.
#' @format Um \code{data.frame} com 31 observações e 3 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{diam}}{Diâmetro da cerejeira, em polegadas. Provavelmente
#' o diâmetro foi calculado à altura do peito (\eqn{\approx}
#' 1.30m).}
-#'
+#'
#' \item{\code{alt}}{Altura da cerejeira, em pés.}
-#'
+#'
#' \item{\code{vol}}{Volume da cerejeira, em pés cúbicos.}
-#'
+#'
#' }
#' @keywords TODO
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
@@ -1210,9 +1210,9 @@ NULL
#' pág. 111)
#' @examples
#' data(PaulaEx1.13.23)
-#'
+#'
#' str(PaulaEx1.13.23)
-#'
+#'
#' library(lattice)
#' splom(PaulaEx1.13.23,
#' type = c("p", "g", "smooth"),
@@ -1221,7 +1221,7 @@ NULL
NULL
#' @name PaulaEx1.13.24
-#' @title Porcentagens de Retorno de A\enc{çõ}{co}es
+#' @title Porcentagens de Retorno de A\enc{çõ}{co}es
#' @description Dados referentes aos retornos diários das ações das
#' empresas Microsoft, General Eletric (GE) e Ford no período de
#' janeiro de 2002 a abril de 2003. No registro dessas ações também
@@ -1229,19 +1229,19 @@ NULL
#' mercado, para padronizar as comparações.
#' @format Um \code{data.frame} com 311 observações e 5 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{tbill}}{Taxa de retorno livre de risco.}
-#'
+#'
#' \item{\code{sp500}}{Porcentagem de retorno do mercado.}
-#'
+#'
#' \item{\code{micro}}{Porcentagem de retorno das ações da empresa
#' Microsoft.}
-#'
+#'
#' \item{\code{ge}}{Porcentagem de retorno das ações da empresa General
#' Eletric (GE).}
-#'
+#'
#' \item{\code{ford}}{Porcentagem de retorno das ações da empresa Ford.}
-#'
+#'
#' }
#' @keywords TODO
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
@@ -1249,17 +1249,17 @@ NULL
#' pág. 112)
#' @examples
#' data(PaulaEx1.13.24)
-#'
+#'
#' str(PaulaEx1.13.24)
-#'
+#'
#' library(reshape)
#' da <- melt(PaulaEx1.13.24, measure.vars = c("micro", "ge", "ford"),
#' variable_name = "empresa")
-#'
+#'
#' library(lattice)
#' densityplot(~value, groups = empresa, data = da,
#' auto.key = list(corner = c(0.9, 0.9)))
-#'
+#'
#' xyplot((sp500 - tbill) ~ (value - tbill) | empresa,
#' data = da, type = c("p", "smooth", "g"))
#'
@@ -1273,11 +1273,11 @@ NULL
#' de venda registrados.
#' @format Um \code{data.frame} com 50 observações e 2 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{area}}{Área total do imóvel, em pés quadrados.}
-#'
+#'
#' \item{\code{preco}}{Preço de venda do imóvel, em mil dólares.}
-#'
+#'
#' }
#' @keywords TODO
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
@@ -1285,9 +1285,9 @@ NULL
#' pág. 112)
#' @examples
#' data(PaulaEx1.13.25)
-#'
+#'
#' str(PaulaEx1.13.25)
-#'
+#'
#' library(lattice)
#' xyplot(preco ~ area, data = PaulaEx1.13.25,
#' type = c("p", "smooth", "g"))
@@ -1298,16 +1298,16 @@ NULL
#' @title Consumo de Energia em Domic\enc{í}{i}lios
#' @description Dados referentes ao consumo de energia em 53 domicílios
#' e demanda de energia no horário de pico.
-#'
+#'
#' @format Um \code{data.frame} com 53 observações e 2 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{consu}}{Consumo de energia num determinado mês, em
#' quilowatts-hora.}
-#'
+#'
#' \item{\code{deman}}{Demanda de energia no horário de pico (unidade de
#' medida não informada).}
-#'
+#'
#' }
#' @keywords positivo-assimétrico
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
@@ -1320,9 +1320,9 @@ NULL
#'
#' @examples
#' data(PaulaEx2.10.15)
-#'
+#'
#' str(PaulaEx2.10.15)
-#'
+#'
#' library(lattice)
#' xyplot(deman ~ consu, data = PaulaEx2.10.15,
#' pch = 19, lwd = 2, type = c("p", "g", "smooth"))
@@ -1337,13 +1337,13 @@ NULL
#' publicidade.
#' @format Um \code{data.frame} com 30 observações e 2 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{fatura}}{Faturamento anual do restaurante, em mil
#' dólares.}
-#'
+#'
#' \item{\code{gastos}}{Gastos do restaurante com publicidade, em mil
#' dólares.}
-#'
+#'
#' }
#' @keywords positivo-assimétrico RS
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
@@ -1356,9 +1356,9 @@ NULL
#'
#' @examples
#' data(PaulaEx2.10.16)
-#'
+#'
#' str(PaulaEx2.10.16)
-#'
+#'
#' library(lattice)
#' xyplot(fatura ~ gastos,
#' data = PaulaEx2.10.16,
@@ -1420,7 +1420,7 @@ NULL
#' @name PaulaEx2.10.19
#' @title Estudo Sobre Leucemia e Caracter\enc{í}{i}stica Morfol\enc{ó}{o}gica nas C\enc{é}{e}lulas
-#' Brancas
+#' Brancas
#' @description Dados provenientes de um estudo em que pacientes com
#' leucemia foram classificados segundo a ausência ou presença de
#' uma característica morfológica nas células brancas. O objetivo do
@@ -1428,16 +1428,16 @@ NULL
#' tempo de sobrevivência dos pacientes.
#' @format Um \code{data.frame} com 32 observações e 3 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{ncel}}{Número de células brancas
#' na amostra do paciente.}
-#'
+#'
#' \item{\code{carac}}{Fator com dois níveis que representa a presença
#' (\code{AG positivo}) ou ausência (\code{AG negativo}) da
#' característica morfológica.}
-#'
+#'
#' \item{\code{tempo}}{Tempo de sobrevivência do paciente, em semanas.}
-#'
+#'
#' }
#' @keywords positivo-assimétrico
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
@@ -1450,9 +1450,9 @@ NULL
#'
#' @examples
#' data(PaulaEx2.10.19)
-#'
+#'
#' str(PaulaEx2.10.19)
-#'
+#'
#' library(latticeExtra)
#' xyplot(tempo ~ ncel,
#' groups = carac,
@@ -1482,31 +1482,31 @@ NULL
#' informações do veículo e do principal condutor).
#' @format Um \code{data.frame} com 996 observações e 9 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{valorv}}{Valor do veículo, em dez mil dólares
#' australianos.}
-#'
+#'
#' \item{\code{expos}}{Exposição do veículo (unidade de medida não
#' informada).}
-#'
+#'
#' \item{\code{tipov}}{Tipo de veículo (fator com onze níveis).}
-#'
+#'
#' \item{\code{idadev}}{Idade do veículo (fator com quatro níveis).}
-#'
+#'
#' \item{\code{sexoc}}{Sexo do principal condutor, fator com dois níveis
#' \code{M} masculino e \code{F} feminino.}
-#'
+#'
#' \item{\code{areac}}{Área de residência do principal condutor (fator
#' com seis níveis).}
-#'
+#'
#' \item{\code{idadec}}{Idade do principal condutor (fator com seis
#' níveis).}
-#'
+#'
#' \item{\code{nsinis}}{Número de sinistros no período.}
-#'
+#'
#' \item{\code{csinis}}{Custo total dos sinistros, em dólares
#' australianos.}
-#'
+#'
#' }
#' @keywords positivo-assimétrico quase-verossimilhança
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
@@ -1519,20 +1519,20 @@ NULL
#'
#' @examples
#' data(PaulaEx2.10.20)
-#'
+#'
#' str(PaulaEx2.10.20)
-#'
+#'
#' # Variável de interesse - custo médio de um sinistro
#' PaulaEx2.10.20$cmsinis <- with(PaulaEx2.10.20, csinis/nsinis)
#' PaulaEx2.10.20 <- PaulaEx2.10.20[, -c(8:9)]
-#'
+#'
#' # Separando as covariáveis numéricas
#' index <- sapply(PaulaEx2.10.20, is.numeric)
-#'
+#'
#' # Frequências dos níveis das variáveis categóricas
#' par(mfrow = c(2, 3), las = 2, mar = c(4, 3, 3, 1))
#' sapply(PaulaEx2.10.20[, !index], function(x) plot(table(x)))
-#'
+#'
#' # Dispersão das variáveis numéricas
#' library(lattice)
#' splom(PaulaEx2.10.20[, index],
@@ -1550,18 +1550,18 @@ NULL
#' e temperatura.)
#' @format Um \code{data.frame} com 32 observações e 3 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{tempo}}{Tempo de resistência do vidro, mensurado em
#' horas.}
-#'
+#'
#' \item{\code{volt}}{Fator com quatro níveis de voltagem considerados,
#' valores em quilovolts (kV).}
-#'
+#'
#' \item{\code{temp}}{Fator com dois níveis de temperatura considerados,
#' valores em graus Celsius.}
-#'
+#'
#' }
-#' @keywords positivos-assimétricos
+#' @keywords positivo-assimétrico
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
#' computacional. São Paulo, SP: IME-USP. (Exercício 2.10.7,
#' pág. 175)
@@ -1571,13 +1571,13 @@ NULL
#'
#' @examples
#' data(PaulaEx2.10.7)
-#'
+#'
#' str(PaulaEx2.10.7)
-#'
+#'
#' library(lattice)
#' xyplot(tempo ~ volt,
#' groups = temp,
-#' data = PaulaEx2.10.7,
+#' data = PaulaEx2.10.7,
#' type = c("p", "g", "a"),
#' auto.key = list(
#' corner = c(0.9, 0.9),
@@ -1585,7 +1585,7 @@ NULL
#' cex.title = 1,
#' title = "Temperatura"
#' ))
-#'
+#'
#' resumo <- aggregate(tempo ~ temp + volt,
#' data = PaulaEx2.10.7,
#' FUN = function(x) {
@@ -1595,7 +1595,7 @@ NULL
#' "n" = length(x))
#' })
#' ftable(xtabs(tempo ~ temp + volt, data = resumo))
-#'
+#'
#' trat <- with(resumo, paste(temp, volt, sep = "-"))
#' xyplot(tempo[, "C.Variação"] ~ factor(trat),
#' data = resumo,
@@ -1613,43 +1613,43 @@ NULL
#' @title Confiabilidade de equipamentos
#'
#' @description Dados referentes aos tempos de falhas de equipamentos.
-#'
+#'
#' @format Um \code{data.frame} com 4 variáveis.
-#'
+#'
#' \describe{
#'
#' \item{\code{temp}}{Tempo de operação (1 a 5).}
-#'
+#'
#' \item{\code{equip}}{Tipo de equipamento (A, B ou C).}
-#'
+#'
#' \item{\code{nit}}{Número de equipamentos que não falharam até o tempo t,
#' t = 1,2,3,4,5.}
#'
#' \item{\code{yit}}{Número de falhas no intervalo entre os tempos t-1 e t.}
#'
#' }
-#' @keywords RLAS
+#' @keywords sobrevivencia
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
-#' computacional. São Paulo, SP: IME-USP.
+#' computacional. São Paulo, SP: IME-USP.
#' (Exercício 3.7.14, página 272)
-#'
-#' @references Lawless, J. F. (1982). Statistical Models and Methods for
+#'
+#' @references Lawless, J. F. (1982). Statistical Models and Methods for
#' Lifetime Data. John Wiley & Sons, New York. (Página 389)
-#'
-#' @references Efron, B. (1988). Logistic regression, survival analysis,
+#'
+#' @references Efron, B. (1988). Logistic regression, survival analysis,
#' and the Kaplan-Meier curve. J. Amer. Stat. Assoc., 83.
#' (Páginas 414-425)
-#'
+#'
#' @examples
-#'
+#'
#' require(lattice)
-#'
+#'
#' data(PaulaEx3.7.14)
-#'
+#'
#' PaulaEx3.7.14$temp <- as.factor(PaulaEx3.7.14$temp)
-#'
-#' xyplot(nit~temp, groups = equip, data = PaulaEx3.7.14, type = "o",
-#' auto.key = TRUE, xlab = "Tempos",
+#'
+#' xyplot(nit~temp, groups = equip, data = PaulaEx3.7.14, type = "o",
+#' auto.key = TRUE, xlab = "Tempos",
#' ylab = "N° de equipamentos operantes",
#' main = "Confiabilidade dos equipamentos")
NULL
@@ -1660,73 +1660,73 @@ NULL
#' @description Estudo de caso-controle com emparelhamentos do tipo 1:1,
#' em que os casos foram mulheres com diagnóstico confirmado de tumor
#' benigno na mama. Os controles foram mulheres sadias diagnosticadas no
-#' mesmo hospital e período dos casos.
-#'
+#' mesmo hospital e período dos casos.
+#'
#' @format Um \code{data.frame} com 100 observações e 14 variáveis.
#'
#' \describe{
#'
#' \item{\code{est}}{Identificação do estrato (par).}
-#'
+#'
#' \item{\code{obs}}{Observação (1 = caso, 2 = controle).}
-#'
+#'
#' \item{\code{idade}}{Idade do paciente no momento da entrevista (em anos).}
#'
#' \item{\code{diag}}{Diagnóstico (1:caso, 0:controle).}
-#'
+#'
#' \item{\code{tesc}}{Tempo de escolaridade (em anos).}
#'
-#' \item{\code{gesc}}{Grau de escolaridade (0 = nenhum, 1 = segundo grau,
+#' \item{\code{gesc}}{Grau de escolaridade (0 = nenhum, 1 = segundo grau,
#' 2 = técnico, 3 = universitário, 4 = mestrado, 5 = doutorado).}
-#'
+#'
#' \item{\code{cur}}{Checkup Regular (1 = sim, 2 = não).}
-#'
+#'
#' \item{\code{ipg}}{Idade da primeira gravidez.}
-#'
+#'
#' \item{\code{iim}}{Idade do início da menstruação.}
-#'
+#'
#' \item{\code{numab}}{Número de abortos}
-#'
+#'
#' \item{\code{numfi}}{Número de filhos.}
-#'
+#'
#' \item{\code{peso}}{Peso (em libras).}
-#'
+#'
#' \item{\code{iupmen}}{Idade do último período menstrual.}
-#'
-#' \item{\code{ec}}{Estado civil (1 = casada, 2 = divorciada, 3 = separada,
+#'
+#' \item{\code{ec}}{Estado civil (1 = casada, 2 = divorciada, 3 = separada,
#' 4 = viúva, 5 = solteira).}
-#'
+#'
#' }
-#'
+#'
#' @keywords RL
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
#' computacional. São Paulo, SP: IME-USP. (Exercício 3.7.14, pág. 273)
-#'
-#'
-#' @references Hosmer, D. W. e Lemeshow, S. (1989).
+#'
+#'
+#' @references Hosmer, D. W. e Lemeshow, S. (1989).
#' Applied Logistic Regression. John Wiley, New York. (Capítulo.7)
-#'
+#'
#' @examples
#'
#' data(PaulaEx3.7.15)
-#'
+#'
#' # Transformar variáveis
-#'
+#'
#' str(PaulaEx3.7.15)
-#'
+#'
#' PaulaEx3.7.15 <- transform(
-#' PaulaEx3.7.15,
+#' PaulaEx3.7.15,
#' PaulaEx3.7.15$est <- as.factor(PaulaEx3.7.15$est),
#' PaulaEx3.7.15$diag <- as.factor(PaulaEx3.7.15$diag),
#' PaulaEx3.7.15$cur <- as.factor(PaulaEx3.7.15$cur),
#' PaulaEx3.7.15$ec <- as.factor(PaulaEx3.7.15$ec)
#' )
#' # Libra para Kg
-#' PaulaEx3.7.15$peso <- PaulaEx3.7.15$peso*0.453592
-#'
-#' pairs(~ idade + diag + tesc + gesc + cur + ipg + idmens
+#' PaulaEx3.7.15$peso <- PaulaEx3.7.15$peso*0.453592
+#'
+#' pairs(~ idade + diag + tesc + gesc + cur + ipg + idmens
#' + numab + numfi + peso + idupmens + ec,
-#' data = PaulaEx3.7.15,
+#' data = PaulaEx3.7.15,
#' main = "Matriz de gráficos de dispersão - tumor benigno na mama")
NULL
@@ -1738,36 +1738,36 @@ NULL
#' deguelin e mistura, essa última como uma mistura das duas pri-
#' meiras) é investigada. As concentrações foram testadas em insetos e
#' observado, para cada dose, o número de insetos mortos.
-#'
-#' @format Um \code{data.frame} com 4 variáveis.
+#'
+#' @format Um \code{data.frame} com 4 variáveis.
#'
#' \describe{
#'
-#' \item{\code{conc}}{Concentração (R = rotenine,
+#' \item{\code{conc}}{Concentração (R = rotenine,
#' D = deguelin e M = mistura).}
-#'
+#'
#' \item{\code{dose}}{Dose aplicada da concentração.}
-#'
+#'
#' \item{\code{exp}}{Número de insetos expostos.}
#'
#' \item{\code{mort}}{Número de insetos mortos.}
-#'
+#'
#' }
-#'
+#'
#' @keywords binomial
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
-#' computacional. São Paulo, SP: IME-USP.
+#' computacional. São Paulo, SP: IME-USP.
#' (Exercício 3.7.14, pág. 274 e 275)
-#'
-#' @references Morgan, B. J. T. (1992). Analysis of Quantal Response Data.
+#'
+#' @references Morgan, B. J. T. (1992). Analysis of Quantal Response Data.
#' Chapman and Hall, London. (Página 90)
-#'
+#'
#' @examples
-#'
+#'
#' data(PaulaEx3.7.16)
-#'
+#'
#' require(lattice)
-#'
+#'
#' xyplot(mort/exp ~ dose, groups = conc, data = PaulaEx3.7.16, type = 'o',
#' auto.key = TRUE, ylab = "Proporção de insetos mortos",
#' xlab = "Dose", main = "Sobrevivência dos insetos expostos a toxina")
@@ -1776,54 +1776,54 @@ NULL
#' @name PaulaEx3.7.19
#' @title Gestantes fumantes
#'
-#' @description Estudo com gestantes fumantes, no qual as participantes
-#' foram classificadas segundo os fatores de idade, número de cigarros
+#' @description Estudo com gestantes fumantes, no qual as participantes
+#' foram classificadas segundo os fatores de idade, número de cigarros
#' consumidos, tempo de gestação, e a condição (sobrevivência) da criança.
-#'
+#'
#' @format Um \code{data.frame} com 5 variáveis.
#'
#' \describe{
#'
#' \item{\code{idade}}{Idade (<30 anos ou +30).}
-#'
-#' \item{\code{ncigar}}{Número de cigarros consumidos por dia
+#'
+#' \item{\code{ncigar}}{Número de cigarros consumidos por dia
#' (< 5 ou +5).}
-#'
+#'
#' \item{\code{tgest}}{Tempo de gestação (<= 260 dias ou >260).}
#'
#' \item{\code{sobres}}{Número de crianças que sobreviveram.}
-#'
+#'
#' \item{\code{sobren}}{Número de crianças que não sobreviveram.}
-#'
+#'
#' }
-#'
+#'
#' @keywords ML
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
-#' computacional. São Paulo, SP: IME-USP.
+#' computacional. São Paulo, SP: IME-USP.
#' (Exercício 3.7.19, página 276)
-#'
-#'
-#' @references Agresti A. (1990). Categorical Data Analysis. John Wiley,
+#'
+#'
+#' @references Agresti A. (1990). Categorical Data Analysis. John Wiley,
#' New York. (página 253))
-#'
+#'
#' @examples
#'
#' data(PaulaEx3.7.19)
-#'
+#'
#' require(vcd)
-#'
-#' # Paciente que sobreviveram
+#'
+#' # Paciente que sobreviveram
#' ss <- xtabs(sobres ~ idade + ncigar + tgest, PaulaEx3.7.19)
-#'
+#'
#' # Paciente que não sobreviveram
#' ns <- xtabs(sobren ~ idade + ncigar + tgest, PaulaEx3.7.19)
-#'
+#'
#' mosaic(ss,
#' main = "Crianças que sobreviveram",
#' labeling_args = list(
#' set_varnames = c(ncigar = "Número de cigarros",
#' tgest = "Tempo de gestação")))
-#'
+#'
#' mosaic(ns,
#' main = "Crianças que não sobreviveram",
#' labeling_args = list(
@@ -1834,67 +1834,67 @@ NULL
#' @name PaulaEx3.7.20
#' @title Pacientes com leucemia
#'
-#' @description Estudo com 51 pacientes adultos,
-#' previamente diagnosticados com um tipo agudo de leucemia, que
-#' receberam um tipo de tratamento sendo verificada, após certo
+#' @description Estudo com 51 pacientes adultos,
+#' previamente diagnosticados com um tipo agudo de leucemia, que
+#' receberam um tipo de tratamento sendo verificada, após certo
#' período, a eficiência ou não do tratamento.
-#'
-#' @format Um \code{data.frame} com 51 pacientes e
+#'
+#' @format Um \code{data.frame} com 51 pacientes e
#'
#' \describe{
#'
#' \item{\code{idade}}{Idade do paciente (em anos).}
#'
-#' \item{\code{mdd}}{Mancha diferencial da doença (em porcentagem).}
-#'
+#' \item{\code{mdd}}{Mancha diferencial da doença (em porcentagem).}
+#'
#' \item{\code{if}}{Infiltração na medula (em porcentagem).}
#'
#' \item{\code{cl}}{Células com leucemia (em porcentagem).}
-#'
+#'
#' \item{\code{md}}{Malignidade da doença (*10^3).}
-#'
+#'
#' \item{\code{tmax}}{Temperatura máxima antes do tratamento (*10 F°).}
-#'
+#'
#' \item{\code{trat}}{Tratamento (1 = satisfatório, 0 = não satisfatório).}
-#'
-#' \item{\code{tsobre}}{Tempo de sobrevivência (em meses).}
#'
-#' \item{\code{sit}}{Situação (1 = sobrevivente, 0 = não sobrevivente).}
+#' \item{\code{tsobre}}{Tempo de sobrevivência (em meses).}
+#'
+#' \item{\code{sit}}{Situação (1 = sobrevivente, 0 = não sobrevivente).}
#' }
-#'
+#'
#' @keywords ML
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
-#' computacional. São Paulo, SP: IME-USP.
+#' computacional. São Paulo, SP: IME-USP.
#' (Exercício 3.7.19, página 276)
-#'
-#' @references Everitt, B. S. (1994).
-#' A Handbook of Statistical Analysis using S-Plus.
+#'
+#' @references Everitt, B. S. (1994).
+#' A Handbook of Statistical Analysis using S-Plus.
#' Chapman and Hall, London. (Página 253)
-#'
+#'
#' @examples
#'
#' data(PaulaEx3.7.20)
-#'
+#'
#' # Transformar variáveis
-#'
+#'
#' str(PaulaEx3.7.20)
-#'
+#'
#' PaulaEx3.7.20 <- transform(
#' PaulaEx3.7.20,
#' PaulaEx3.7.20$trat <- as.factor(PaulaEx3.7.20$trat),
#' PaulaEx3.7.20$sit <- as.factor(PaulaEx3.7.20$sit)
#' )
-#'
-#'
+#'
+#'
#' require(car)
-#'
-#' scatterplotMatrix(~ idade + mdd + im + cl + md + tmax + trat
+#'
+#' scatterplotMatrix(~ idade + mdd + im + cl + md + tmax + trat
#' + tsobre + sit,
-#' spread = FALSE,
-#' pch = 20,
+#' spread = FALSE,
+#' pch = 20,
#' lwd = 2,
-#' smooth = TRUE,
-#' data = PaulaEx3.7.20,
+#' smooth = TRUE,
+#' data = PaulaEx3.7.20,
#' cex = 1.5,
#' main = "Matriz de gráficos de dispersão - Leucemia")
NULL
@@ -2128,20 +2128,20 @@ NULL
#' @name PaulaEx3.7.7a
#' @title Influ\enc{ê}{e}ncia de Extrato Vegetal e Qu\enc{í}{i}mico
-#' @description Experimento de dose-resposta conduzido para avaliar a
+#' @description Experimento de dose-resposta conduzido para avaliar a
#' influência dos extratos vegetais "aquoso frio de folhas", "aquoso
-#' frio de frutos" e de um extrato químico, respectivamente, na morte
-#' de um determinado tipo de caramujo.
-#'
+#' frio de frutos" e de um extrato químico, respectivamente, na morte
+#' de um determinado tipo de caramujo.
+#'
#' @format Um \code{data.frame} com 7 observações e 3 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{dose}}{Dose.}
-#'
+#'
#' \item{\code{cexp}}{Caramujos expostos.}
-#'
+#'
#' \item{\code{cmort}}{Caramujos mortos.}
-#'
+#'
#' }
#' @keywords MLG
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
@@ -2150,17 +2150,17 @@ NULL
#' @examples
#'
#' data(PaulaEx3.7.7a)
-#'
+#'
#' str(PaulaEx3.7.7a)
-#'
+#'
#' library(lattice)
-#'
+#'
#' xyplot(PaulaEx3.7.7a$cmort/PaulaEx3.7.7a$cexp ~ dose,
#' data = PaulaEx3.7.7a,
#' xlab = "Dose",
#' type = c("o"),
#' ylab = "Proporção de mortos",
-#' auto.key = list(space="top", columns=2,
+#' auto.key = list(space="top", columns=2,
#' title="Caramujos", cex.title=1,
#' lines=TRUE, points=FALSE))
#'
@@ -2168,20 +2168,20 @@ NULL
#' @name PaulaEx3.7.7b
#' @title Influ\enc{ê}{e}ncia de Extrato Vegetal e Qu\enc{í}{i}mico
-#' @description Experimento de dose-resposta conduzido para avaliar a
+#' @description Experimento de dose-resposta conduzido para avaliar a
#' influência dos extratos vegetais "aquoso frio de folhas", "aquoso
-#' frio de frutos" e de um extrato químico, respectivamente, na morte
-#' de um determinado tipo de caramujo.
-#'
+#' frio de frutos" e de um extrato químico, respectivamente, na morte
+#' de um determinado tipo de caramujo.
+#'
#' @format Um \code{data.frame} com 7 observações e 3 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{dose}}{Dose.}
-#'
+#'
#' \item{\code{cexp}}{Caramujos expostos.}
-#'
+#'
#' \item{\code{cmort}}{Caramujos mortos.}
-#'
+#'
#' }
#' @keywords MLG
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
@@ -2190,17 +2190,17 @@ NULL
#' @examples
#'
#' data(PaulaEx3.7.7b)
-#'
+#'
#' str(PaulaEx3.7.7b)
-#'
+#'
#' library(lattice)
-#'
+#'
#' xyplot(PaulaEx3.7.7b$cmort/PaulaEx3.7.7b$cexp ~ dose,
#' data = PaulaEx3.7.7b,
#' xlab = "Dose",
#' type = c("o"),
#' ylab = "Proporção de mortos",
-#' auto.key = list(space="top", columns=2,
+#' auto.key = list(space="top", columns=2,
#' title="Caramujos", cex.title=1,
#' lines=TRUE, points=FALSE))
#'
@@ -2209,20 +2209,20 @@ NULL
#' @name PaulaEx3.7.7c
#' @title Influ\enc{ê}{e}ncia de Extrato Vegetal e Qu\enc{í}{i}mico
-#' @description Experimento de dose-resposta conduzido para avaliar a
+#' @description Experimento de dose-resposta conduzido para avaliar a
#' influência dos extratos vegetais "aquoso frio de folhas", "aquoso
-#' frio de frutos" e de um extrato químico, respectivamente, na morte
-#' de um determinado tipo de caramujo.
-#'
+#' frio de frutos" e de um extrato químico, respectivamente, na morte
+#' de um determinado tipo de caramujo.
+#'
#' @format Um \code{data.frame} com 7 observações e 3 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{dose}}{Dose.}
-#'
+#'
#' \item{\code{cexp}}{Caramujos expostos.}
-#'
+#'
#' \item{\code{cmort}}{Caramujos mortos.}
-#'
+#'
#' }
#' @keywords MLG
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
@@ -2231,43 +2231,43 @@ NULL
#' @examples
#'
#' data(PaulaEx3.7.7c)
-#'
+#'
#' str(PaulaEx3.7.7c)
-#'
+#'
#' library(lattice)
-#'
+#'
#' xyplot(PaulaEx3.7.7c$cmort/PaulaEx3.7.7c$cexp ~ dose,
#' data = PaulaEx3.7.7c,
#' xlab = "Dose",
#' type = c("o"),
#' ylab = "Proporção de mortos",
-#' auto.key = list(space="top", columns=2,
+#' auto.key = list(space="top", columns=2,
#' title="Caramujos", cex.title=1,
#' lines=TRUE, points=FALSE))
#'
-#'
+#'
#'
NULL
#' @name PaulaEx3.7.8
#' @title Sal\enc{á}{a}rio de Executivos
#' @description Dados referentes a um experimento desenvolvido para avaliar
-#' a germinação de um determinado tipo de semente. A tabela abaixo
-#' apresenta o número de sementes que germinaram após cinco dias para
+#' a germinação de um determinado tipo de semente. A tabela abaixo
+#' apresenta o número de sementes que germinaram após cinco dias para
#' cada 100 sementes submetidas a cada condição experimental.
-#'
+#'
#' @format Um \code{data.frame} com 18 observações e 4 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{temp}}{Temperatura da germinação.}
-#'
+#'
#' \item{\code{numid}}{Nível da umidade.}
-#'
+#'
#' \item{\code{ntemp}}{Nível da temperatura.}
-#'
+#'
#' \item{\code{sgerm}}{Número de sementes que germinaram.}
-#'
-#'
+#'
+#'
#' }
#' @keywords MLG
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
@@ -2276,13 +2276,13 @@ NULL
#' @examples
#'
#' data(PaulaEx3.7.8)
-#'
+#'
#' str(PaulaEx3.7.8)
-#'
+#'
#' library(lattice)
-#'
+#'
#' PaulaEx3.7.8$ntemp <- as.factor(PaulaEx3.7.8$ntemp)
-#'
+#'
#' PaulaEx3.7.8$numid <- as.factor(PaulaEx3.7.8$numid)
#' xyplot(sgerm ~ numid | ntemp,
#' data = PaulaEx3.7.8,
@@ -2295,27 +2295,27 @@ NULL
#' @title N\enc{ú}{u}mero de Infec\enc{çõ}{co}es de Ouvido em Recrutas Americanos
#' @description Dados referentes a um estudo realizado em 1990 com
#' recrutas americanos em que a variável de interesse era o número de
-#' infecções de ouvido. Além disso, foram coletadas as seguintes
-#' informações sobre os recrutas: hábito de nadar, local em que
+#' infecções de ouvido. Além disso, foram coletadas as seguintes
+#' informações sobre os recrutas: hábito de nadar, local em que
#' costuma nadar, idade e sexo.
-#'
+#'
#' @format Um \code{data.frame} com 287 observações e 5 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{habito}}{Fator com dois níveis que indica o hábito em
#' nadar do recruta (\code{ocasional} ou \code{frequente}).}
-#'
+#'
#' \item{\code{local}}{Fator com dois níveis que indica o local onde o
#' recruta costuma nadar, (\code{praia} ou \code{piscina}).}
-#'
+#'
#' \item{\code{idade}}{Idade do recruta, em anos categorizados em três
#' níveis (\code{15-19}, \code{20-24} e \code{25-29}).}
-#'
+#'
#' \item{\code{sexo}}{Sexo (\code{F} para feminino e \code{M} para masculino).}
-#'
+#'
#' \item{\code{ninfec}}{Número de infecções de ouvido diagnosticadas
#' pelo próprio recruta.}
-#'
+#'
#' }
#' @keywords contagem superdispersão
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
@@ -2328,18 +2328,18 @@ NULL
#' @examples
#'
#' data(PaulaEx4.6.15)
-#'
+#'
#' str(PaulaEx4.6.15)
-#'
+#'
#' xt <- xtabs(ninfec ~ ., data = PaulaEx4.6.15)
#' ftable(prop.table(xt))
#' plot(xt, xlab = "Hábito", main = "")
-#'
+#'
#' mv <- aggregate(ninfec ~ ., FUN = function(x)
#' c(mu = mean(x), var = var(x)), data = PaulaEx4.6.15)
-#'
+#'
#' library(lattice)
-#'
+#'
#' # Relação Média Variância
#' xyplot(ninfec[, "var"] ~ ninfec[, "mu"],
#' data = mv,
@@ -2349,9 +2349,9 @@ NULL
#' panel.xyplot(x, y, type = c("p", "r"), grid = TRUE)
#' panel.abline(a = 0, b = 1, lty = 2)
#' })
-#'
+#'
#' library(latticeExtra)
-#' useOuterStrips(
+#' useOuterStrips(
#' xyplot(ninfec ~ idade | habito + local,
#' groups = sexo,
#' data = PaulaEx4.6.15,
@@ -2373,22 +2373,22 @@ NULL
#' preferência e maciez da água.
#' @format Um \code{data.frame} com 24 observações e 5 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{temp}}{Temperatura da água, mensurada em dois níveis
#' (\code{alta} e \code{baixa}).}
-#'
+#'
#' \item{\code{usom}}{Uso anterior do detergente da marca \code{M}
#' (\code{sim} ou \code{não}).}
-#'
+#'
#' \item{\code{prefer}}{Detergente de preferência (\code{M} ou
#' \code{X}).}
-#'
+#'
#' \item{\code{maciez}}{Maciez da água, mensurada em três níveis
#' (\code{forte}, code{leve} e \code{média}).}
-#'
+#'
#' \item{\code{nind}}{Número de pessoas que tiveram respostas conforme
#' combinação de \code{temp}, \code{usom}, \code{prefer} e \code{maciez}.}
-#'
+#'
#' }
#' @keywords contagem
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
@@ -2401,15 +2401,15 @@ NULL
#' @examples
#'
#' data(PaulaEx4.6.17)
-#'
+#'
#' str(PaulaEx4.6.17)
-#'
+#'
#' xt <- xtabs(nind ~ ., data = PaulaEx4.6.17)
#' ftable(xt)
#' plot(xt)
-#'
+#'
#' library(latticeExtra)
-#' useOuterStrips(
+#' useOuterStrips(
#' xyplot(nind ~ maciez | prefer + usom,
#' groups = temp,
#' data = PaulaEx4.6.17,
@@ -2432,11 +2432,11 @@ NULL
#' de ovos eclodidos.
#' @format Um \code{data.frame} com 50 observações e 2 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{dose}}{Dosagem de \emph{Nitrofen} aplicada, em mg/l.}
-#'
+#'
#' \item{\code{novos}}{Número de ovos de \emph{Ceriodaphnia dubia}
-#' eclodidos após 3 ninhadas.}
+#' eclodidos após 3 ninhadas.}
#'
#' }
#'
@@ -2454,12 +2454,12 @@ NULL
#' @examples
#'
#' data(PaulaEx4.6.20)
-#'
+#'
#' str(PaulaEx4.6.20)
-#'
+#'
#' aggregate(novos ~ dose, FUN = function(x) c(mean(x), var(x)),
#' data = PaulaEx4.6.20)
-#'
+#'
#' library(lattice)
#' xyplot(novos ~ dose,
#' data = PaulaEx4.6.20,
@@ -2478,23 +2478,23 @@ NULL
#' realizada, sexo e escores de balanço e força. O objetivo do
#' estudo é relacionar o número médio de quedas com o tipo de intervenção
#' e as demais variáveis explicativas coletadas.
-#'
+#'
#' @format Um \code{data.frame} com 100 observações e 5 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{nquedas}}{Número de quedas no período de seis meses.}
-#'
+#'
#' \item{\code{interv}}{Fator com dois níveis que indica a intervenção
#' realizada (\code{E}: somente educação, \code{EF}: educação e
#' exercícios físicos.)}
-#'
+#'
#' \item{\code{sexo}}{Fator com dois níveis que indica o sexo do
#' indivíduo (\code{F}: feminino e \code{M}: masculino).}
-#'
+#'
#' \item{\code{balan}}{Escore do balanço do indivíduo, escala de 0 a 100.}
-#'
+#'
#' \item{\code{forca}}{Escore da força do indivíduo, escala de 0 a 100.}
-#'
+#'
#' }
#' @keywords contagem
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
@@ -2506,11 +2506,11 @@ NULL
#' @examples
#'
#' data(PaulaEx4.6.5)
-#'
+#'
#' str(PaulaEx4.6.5)
-#'
+#'
#' library(lattice)
-#'
+#'
#' xyplot(nquedas ~ balan + forca | interv,
#' groups = sexo,
#' data = PaulaEx4.6.5,
@@ -2520,7 +2520,7 @@ NULL
#' scales = list(x = list(rot = 45, relation = "free")),
#' auto.key = list(cex.title = 1, columns = 2,
#' title = "Sexo"))
-#'
+#'
#' splom(~ PaulaEx4.6.5[, c("nquedas", "balan", "forca")],
#' type = c("p", "smooth"))
#'
@@ -2537,24 +2537,24 @@ NULL
#' desde o primeiro emprego.
#' @format Um \code{data.frame} com 72 observações e 5 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{idade}}{Fator com quatro níveis referente à idade (em anos)
#' do trabalhador no seu primeiro emprego, com níveis
#' \code{<20}, \code{20-27}, \code{27.5-34.9} e \code{>35}.}
-#'
+#'
#' \item{\code{ano}}{Fator com quatro níveis referente ao ano do
#' primeiro emprego (\code{<1910}, \code{1910-1914},
#' \code{1915-1919} e \code{1920-1924}).}
-#'
+#'
#' \item{\code{tempo}}{Fator com cinco níveis que indica o tempo
#' decorrido desde o primeiro emprego, em anos, categorizados nos
#' níveis \code{0-19}, \code{20-39}, \code{30-39}, \code{40-49} e
#' \code{>50}.}
-#'
+#'
#' \item{\code{ncasos}}{Número de casos de câncer nasal.}
-#'
+#'
#' \item{\code{tpessoas}}{Total de pessoas|ano de observação.}
-#'
+#'
#' }
#' @keywords contagem
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
@@ -2566,28 +2566,28 @@ NULL
#' @examples
#'
#' data(PaulaEx4.6.6)
-#'
+#'
#' str(PaulaEx4.6.6)
-#'
+#'
#' # Número de observações em cada combinação das variáveis explicativas
#' # Para modelagem não será possível a estimação de algumas interações
#' ftable(PaulaEx4.6.6[, c("idade", "ano", "tempo")])
-#'
+#'
#' # Casos de câncer seccionados pelas variáveis explicativas
#' ftable(xtabs(ncasos ~ idade + ano + tempo, data = PaulaEx4.6.6))
#' xt <- xtabs((ncasos/tpessoas)*100 ~ ., data = PaulaEx4.6.6)
#' ftable(xt)
#' plot(xt)
-#'
+#'
#' library(lattice)
-#'
+#'
#' xyplot((ncasos/tpessoas) ~ tempo | ano,
#' groups = idade,
#' data = PaulaEx4.6.6,
#' type = c("p", "g", "a"),
#' auto.key = list(space = "right", cex.title = 1,
#' title = "Idade"))
-#'
+#'
#' # Retirando a observação que domina a escala do eixo y
#' index <- with(PaulaEx4.6.6, which.max(ncasos/tpessoas))
#' xyplot((ncasos/tpessoas) ~ tempo | ano,
@@ -2606,11 +2606,11 @@ NULL
#' produzida e o número de falhas encontradas.
#' @format Um \code{data.frame} com 32 observações e 2 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{comp}}{Comprimento da peça de tecido produzida, em metros.}
-#'
+#'
#' \item{\code{nfalhas}}{Número de falhas encontradas na peça.}
-#'
+#'
#' }
#' @keywords contagem superdispersão
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
@@ -2621,52 +2621,52 @@ NULL
#' @examples
#'
#' data(PaulaEx4.6.7)
-#'
+#'
#' str(PaulaEx4.6.7)
#'
#' library(lattice)
#' xyplot(nfalhas ~ comp, data = PaulaEx4.6.7,
-#' type = c("p", "g", "smooth"), xlab = "Comprimento", ylab =
+#' type = c("p", "g", "smooth"), xlab = "Comprimento", ylab =
#' "Número de falhas")
-#'
-#' histogram( ~nfalhas/comp, data = PaulaEx4.6.7,
+#'
+#' histogram( ~nfalhas/comp, data = PaulaEx4.6.7,
#' xlab = "Número de falhas por metro de tecido", ylab = "Frequência")
#'
NULL
#' @name PaulaEx5.6.13
#' @title An\enc{á}{a}lise da dispers\enc{ã}{a}o de um pigmento na pintura
-#' @description Um experimento foi conduzido para avaliar a dispersão
-#' de quatro diferentes pigmentos numa pintura. O procedimento
-#' consistiu em preparar cada mistura e aplicá-las num painel usando
-#' três métodos diferentes. O experimento é repetido em três dias distintos
+#' @description Um experimento foi conduzido para avaliar a dispersão
+#' de quatro diferentes pigmentos numa pintura. O procedimento
+#' consistiu em preparar cada mistura e aplicá-las num painel usando
+#' três métodos diferentes. O experimento é repetido em três dias distintos
#' e a resposta é a porcentagem de reflectância do pigmento.
-#'
+#'
#' @format Um \code{data.frame} com 36 observações e 5 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{painel}}{Número do painel.}
-#'
+#'
#' \item{\code{dia}}{Dia de aplicação (1, 2 ou 3).}
-#'
-#' \item{\code{metod}}{Método utilizado: (1 = pincel, 2 = rolo e
+#'
+#' \item{\code{metod}}{Método utilizado: (1 = pincel, 2 = rolo e
#' 3 = spray.}
-#'
+#'
#' \item{\code{mistur}}{Tipo de mistura do pigmento (1, 2, 3 ou 4).}
-#'
+#'
#' \item{\code{reflec}}{Porcetagem de reflectância do pigmento.}
-#'
+#'
#' }
#' @keywords quase-verossimilhança
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
#' computacional. São Paulo, SP: IME-USP. (Exercício 5.6.13, pág. 400)
-#'
+#'
#' @references Myers, R.H.; Montgomery, D. C. e Vining, G. G. (2002).
-#' Generalized Linear Models: With Applications in Engineering and the
+#' Generalized Linear Models: With Applications in Engineering and the
#' Sciences. John Wiley, New York.
-#'
+#'
#' @examples
-#'
+#'
#' library(lattice)
#'
#' data(PaulaEx5.6.13)
@@ -2680,93 +2680,93 @@ NULL
#' @name PaulaEx5.6.14
#' @title Compara\enc{çã}{ca}o de drogas para tratamento de leucemia
#' @description Dados referentes a um experimento em que 30 ratos tiveram
-#' uma condição de leucemia induzida, sendo submetidos, posteriormente,
-#' a três drogas quimioterápicas. Foram coletadas de cada animal a
-#' quantidade de células brancas, a quantidade de células vermelhas
+#' uma condição de leucemia induzida, sendo submetidos, posteriormente,
+#' a três drogas quimioterápicas. Foram coletadas de cada animal a
+#' quantidade de células brancas, a quantidade de células vermelhas
#' e o número de colônias de células cancerosas, em três períodos diferentes.
-#'
+#'
#' @format Um \code{data.frame} com 120 observações e 5 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{rato}}{Número de identificação do rato.}
-#'
+#'
#' \item{\code{period}}{Período de avaliação (1, 2, 3 ou 4).}
-#'
+#'
#' \item{\code{trat}}{Droga quimioterápica utilizada (1, 2 ou 3).}
-#'
+#'
#' \item{\code{celubran}}{Quantidade de células brancas.}
-#'
+#'
#' \item{\code{celuverm}}{Quantidade de células vermelhas.}
-#'
+#'
#' \item{\code{celucanc}}{Número de colônias de células cancerosas.}
-#'
+#'
#' }
#' @keywords quase-verossimilhança
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
#' computacional. São Paulo, SP: IME-USP. (Exercício 5.6.14, pág. 401)
-#'
+#'
#' @references Myers, R.H.; Montgomery, D. C. e Vining, G. G. (2002).
-#' Generalized Linear Models: With Applications in Engineering and the
+#' Generalized Linear Models: With Applications in Engineering and the
#' Sciences. John Wiley, New York.
-#'
+#'
#' @examples
-#'
+#'
#' library(lattice)
#'
#' data(PaulaEx5.6.14)
-#'
+#'
#' xyplot(celucanc ~ period, groups = rato,
#' type = c("p", "g", "a"), data = PaulaEx5.6.14)
-#'
+#'
NULL
#' @name PaulaEx5.6.15
#' @title Ensaio cl\enc{í}{i}nico em pacientes com artrite
-#' @description Ensaio clínico em que 20 pacientes com artrite
+#' @description Ensaio clínico em que 20 pacientes com artrite
#' foram aleatorizados, de modo que 10 receberam o medicamento
#' auronofin e os outros 10 receberam placebo. São consideradas como
-#' variáveis explicativas sexo e idade, além do tipo do tratamento. Os
+#' variáveis explicativas sexo e idade, além do tipo do tratamento. Os
#' pacientes foram consultados e avaliados em 4 ocasiões.
-#'
+#'
#' @format Um \code{data.frame} com 80 observações e 6 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{pacient}}{Identificação do paciente.}
-#'
-#' \item{\code{period}}{Momento em que o paciente foi avaliado (1 = início
+#'
+#' \item{\code{period}}{Momento em que o paciente foi avaliado (1 = início
#' do mês, 2 = após 1 mês, 3 = após 2 meses e 4 = após 3 meses.}
-#'
+#'
#' \item{\code{sexo}}{Sexo (1 = masculino e 0 = feminino).}
-#'
+#'
#' \item{\code{idade}}{Idade (em anos).}
-#'
+#'
#' \item{\code{trat}}{Tratamento aplicado placebo ou Auronofin).}
-#'
-#' \item{\code{result}}{Avaliação do paciente classificada em
+#'
+#' \item{\code{result}}{Avaliação do paciente classificada em
#' bom e regular ou ruim.}
-#'
+#'
#' }
#' @keywords quase-verossimilhança
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
#' computacional. São Paulo, SP: IME-USP. (Exercício 5.6.14, pág. 401)
-#'
+#'
#' @references Myers, R.H.; Montgomery, D. C. e Vining, G. G. (2002).
-#' Generalized Linear Models: With Applications in Engineering and the
+#' Generalized Linear Models: With Applications in Engineering and the
#' Sciences. John Wiley, New York.
-#'
+#'
#' @examples
-#'
+#'
#' library(lattice)
-#'
+#'
#' data(PaulaEx5.6.15)
-#'
-#' barchart(table(PaulaEx5.6.15$result,PaulaEx5.6.15$trat, PaulaEx5.6.15$period),
-#' auto.key = list(space="top",
-#' columns = 4, cex.title = 1, rectangles = TRUE, points=FALSE,
+#'
+#' barchart(table(PaulaEx5.6.15$result,PaulaEx5.6.15$trat, PaulaEx5.6.15$period),
+#' auto.key = list(space="top",
+#' columns = 4, cex.title = 1, rectangles = TRUE, points=FALSE,
#' title = "Período"),
#' scales = list(y = list(relation = "free"),
#' x = list(alternating = FALSE)),
-#' horizontal = FALSE, beside = FALSE, stack = FALSE,
+#' horizontal = FALSE, beside = FALSE, stack = FALSE,
#' xlab = "Resultado", ylab = "Frequência absoluta")
#'
NULL
@@ -2776,16 +2776,16 @@ NULL
#' @description Conjunto de dados que apresenta para cada unidade da
#' federação o número médio de anos de estudo e a renda média mensal
#' do chefe ou chefes de domicílio.
-#'
+#'
#' @format Um \code{data.frame} com 27 observações e 3 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{est}}{Estado (unidade da federação).}
-#'
+#'
#' \item{\code{esc}}{Número médio de anos de estudo.}
-#'
+#'
#' \item{\code{rendm}}{Renda média mensal (em reais).}
-#'
+#'
#' }
#' @keywords MLG
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
@@ -2794,11 +2794,11 @@ NULL
#' @examples
#'
#' data(PaulaTb1.6)
-#'
+#'
#' str(PaulaTb1.6)
-#'
+#'
#' library(lattice)
-#'
+#'
#' xyplot(rendm ~ est,
#' ylab = "Renda",
#' xlab = "Estados",
@@ -2806,7 +2806,7 @@ NULL
#' type = 'h',
#' main = "Renda Média Mensal em Estado",
#' grid = TRUE)
-#'
+#'
#' xyplot(rendm ~ esc,
#' ylab = "Renda",
#' xlab = "Número médio de anos de estudo",
@@ -2818,17 +2818,17 @@ NULL
#' @name PaulaTb1.9
#' @title Bact\enc{é}{e}rias Sobreviventes em Amostras
-#' @description Número de bactérias sobreviventes em amostras de um
+#' @description Número de bactérias sobreviventes em amostras de um
#' produto alimentício segundo o tempo de exposição do produto a uma
#' temperatura de 300°F.
-#'
+#'
#' @format Um \code{data.frame} com 12 observações e 2 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{num}}{Número de bactérias sobreviventes.}
-#'
+#'
#' \item{\code{temp}}{Tempo de exposição (em minutos).}
-#'
+#'
#' }
#' @keywords MLG
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
@@ -2837,11 +2837,11 @@ NULL
#' @examples
#'
#' data(PaulaTb1.9)
-#'
+#'
#' str(PaulaTb1.9)
-#'
+#'
#' library(lattice)
-#'
+#'
#' xyplot(num ~ temp,
#' ylab = "Número de bactérias",
#' xlab = "Tempo de exposição",
@@ -2861,13 +2861,13 @@ NULL
#' equivalentemente, a duração do motor.
#' @format Um \code{data.frame} com 50 observações e 2 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{turb}}{Fator com cinco níveis que indica o tipo de
#' turbina.}
-#'
+#'
#' \item{\code{tempo}}{Tempo até a perda de velocidade, ou seja, duração
#' do motor, mensurado em unidades de milhões de ciclos.}
-#'
+#'
#' }
#' @keywords positivo-assimétrico
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
@@ -2877,19 +2877,19 @@ NULL
#' Lifetime Data. John Wiley, New York.
#' @examples
#' data(PaulaTb2.1)
-#'
+#'
#' str(PaulaTb2.1)
-#'
+#'
#' # Dados no formato "largo", conforme tabela 2.1 (Paula, 2004)
#' unstack(PaulaTb2.1, tempo ~ turb)
-#'
+#'
#' aggregate(tempo ~ turb, summary, data = PaulaTb2.1)
-#'
+#'
#' library(lattice)
#' xyplot(tempo ~ turb,
#' data = PaulaTb2.1,
#' type = c("p", "g", "smooth"))
-#'
+#'
#' densityplot(~tempo, groups = turb, data = PaulaTb2.1,
#' auto.key = list(corner = c(0.9, 0.9),
#' title = "Tipos de turbina",
@@ -2904,11 +2904,11 @@ NULL
#' obtidos.
#' @format Um \code{data.frame} com 20 observações e 2 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{proj}}{Valor projetado de venda.}
-#'
+#'
#' \item{\code{real}}{Valor real de venda.}
-#'
+#'
#' }
#' @keywords positivo-assimétrico
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
@@ -2916,9 +2916,9 @@ NULL
#'
#' @examples
#' data(PaulaTb2.6)
-#'
+#'
#' str(PaulaTb2.6)
-#'
+#'
#' library(lattice)
#' xyplot(real ~ proj, data = PaulaTb2.6,
#' grid = TRUE, pch = 19, cex = 1.2,
@@ -2931,26 +2931,26 @@ NULL
#' @name PaulaTb3.12
#' @title Ocorr\enc{ê}{e}ncia de vaso-constri\enc{çã}{ca}o
-#' @description Dados de um experimento desenvolvido para
+#' @description Dados de um experimento desenvolvido para
#' avaliar a influência da quantidade de ar inspirado na ocorrência
#' de vaso-constrição na pele dos dedos da mão. A resposta é a ocorrência
-#' (1) ou ausência (0) de compressão de vasos e as covariáveis são o
-#' volume e a razão de ar inspirado.
-#'
+#' (1) ou ausência (0) de compressão de vasos e as covariáveis são o
+#' volume e a razão de ar inspirado.
+#'
#' @format Um \code{data.frame} com 39 observações e 3 variáveis, em que
#'
#' \describe{
#'
#' \item{vol}{Logaritmo do volume de ar inspirado.}
-#'
+#'
#' \item{razao}{Logaritmo da razão de ar inspirado.}
#'
#' \item{resp}{Ocorrência ou não de compressão de vaso (ocorrência = 1
#' e ausência = 0).}
-#'
+#'
#' }
-#' @keywords GLM binarios
-#' @source Paula, G. A. (2004). Modelos de regressão: com apoio computacional.
+#' @keywords MLG binarios
+#' @source Paula, G. A. (2004). Modelos de regressão: com apoio computacional.
#' São Paulo, SP: IME-USP. (Tb 3.12 pág. 227)
#' @examples
#'
@@ -2959,17 +2959,17 @@ NULL
#' data(PaulaTb3.12)
#'
#' str(PaulaTb3.12)
-#'
-#' bwplot(vol ~ resp, data = PaulaTb3.12,
+#'
+#' bwplot(vol ~ resp, data = PaulaTb3.12,
#' type=c("p","a"),
#' xlab="Vaso-constrição", ylab="Volume de ar inspirado",
-#' scales=list(x=list(labels=c("Ausência","Ocorrência"))),
+#' scales=list(x=list(labels=c("Ausência","Ocorrência"))),
#' main="Ocorrência de vaso-constrição")
-#'
-#' bwplot(razao ~ resp, data = PaulaTb3.12,
+#'
+#' bwplot(razao ~ resp, data = PaulaTb3.12,
#' type=c("p","a"),
#' xlab=" Vaso-constrição", ylab="Razão de ar inspirado",
-#' scales=list(x=list(labels=c("Ausência","Ocorrência"))),
+#' scales=list(x=list(labels=c("Ausência","Ocorrência"))),
#' main="Ocorrência de vaso-constrição")
NULL
@@ -2977,23 +2977,23 @@ NULL
#' @title Aplica\enc{çã}{ca}o de inseticidas em insetos
#' @description Dados de um experimento em que três
#' inseticidas foram aplicados em determinada espécie de inseto, sendo
-#' verificado o número de sobreviventes para cada dose aplicada.
-#'
+#' verificado o número de sobreviventes para cada dose aplicada.
+#'
#' @format Um \code{data.frame} com 18 observações e 7 variáveis, em que
#'
#' \describe{
#'
#' \item{mortos}{Número de insetos mortos.}
-#'
+#'
#' \item{exp}{Número de insetos expostos aos inseticidas.}
#'
#' \item{dose}{Dose aplicada dos inseticidas.}
-#'
+#'
#' \item{inset}{Tipo de inseticida.}
#'
#' }
-#' @keywords GLM
-#' @source Paula, G. A. (2004). Modelos de regressão: com apoio computacional.
+#' @keywords MLG
+#' @source Paula, G. A. (2004). Modelos de regressão: com apoio computacional.
#' São Paulo, SP: IME-USP. (Tb 3.20 pág. 246)
#' @examples
#'
@@ -3002,32 +3002,32 @@ NULL
#' data(PaulaTb3.20)
#'
#' str(PaulaTb3.20)
-#'
+#'
#' xyplot(mortos/(sum(mortos)) ~ dose, data = PaulaTb3.20, auto.key = TRUE,
#' type = c("p","a"), groups= inset,
-#' xlab = "Dose de inseticida aplicada",
-#' ylab = "Proporção de insetos mortos",
+#' xlab = "Dose de inseticida aplicada",
+#' ylab = "Proporção de insetos mortos",
#' main = "Aplicações de inseticidas")
NULL
#' @name PaulaTb3.21
#' @title Distribui\enc{çã}{ca}o de Rotifers das Duas Esp\enc{é}{e}cies
-#' @description Experimento com duas espécies de *rotifers*, um tipo
-#' microscópio de invertebrado aquático. São apresentados pra cada
+#' @description Experimento com duas espécies de *rotifers*, um tipo
+#' microscópio de invertebrado aquático. São apresentados pra cada
#' espécie a densidade relativa da substância, o número de *rotifers*
#' expostos e o número de *rotifers* em suspensão.
-#'
+#'
#' @format Um \code{data.frame} com 40 observações e 4 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{dens}}{Densidade.}
-#'
+#'
#' \item{\code{susp}}{Rotifers suspensos.}
-#'
+#'
#' \item{\code{exp}}{Rotifers expostos.}
-#'
+#'
#' \item{\code{esp}}{Espécie (Polyarthra, Keratella).}
-#'
+#'
#' }
#' @keywords MLG
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
@@ -3036,11 +3036,11 @@ NULL
#' @examples
#'
#' data(PaulaTb3.21)
-#'
+#'
#' str(PaulaTb3.21)
-#'
+#'
#' library(lattice)
-#'
+#'
#' xyplot(PaulaTb3.21$susp/PaulaTb3.21$exp ~ dens,
#' groups = esp,
#' data = PaulaTb3.21,
@@ -3048,7 +3048,7 @@ NULL
#' ylab = "Proporção de rotifers suspensos",
#' type = c("p"),
#' auto.key = TRUE)
-#'
+#'
NULL
#' @name PaulaTb4.12
@@ -3057,22 +3057,22 @@ NULL
#' classificados segundo sua renda anual e grau informado de
#' satisfação no emprego. O interesse no estudo é relacionar a renda
#' anual e satisfação no emprego.
-#'
+#'
#' @format Um \code{data.frame} com 16 observações e 3 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{renda}}{Fator com quatro níveis representando a renda do
#' indivíduo. Expressos em mil USD os níveis são: menor que 6
#' (\code{<6}), entre 6 e 12 (\code{6-15}), entre 15 e 25
#' (\code{15-25}) e maior que 25 (\code{>25}).}
-#'
+#'
#' \item{\code{satis}}{Fator com quatro níveis que representa o grau de
#' satisfação do indivíduo no emprego (\code{alto}, \code{bom},
#' \code{médio} e \code{baixo}).}
-#'
+#'
#' \item{\code{nind}}{Número de indivíduos na combinação das variáveis
#' \code{renda} e \code{satis}.}
-#'
+#'
#' }
#' @keywords contagem
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
@@ -3083,12 +3083,12 @@ NULL
#' @examples
#'
#' data(PaulaTb4.12)
-#'
+#'
#' str(PaulaTb4.12)
-#'
+#'
#' (xt <- xtabs(nind ~ ., data = PaulaTb4.12))
#' plot(xt)
-#'
+#'
#' library(lattice)
#' xyplot(nind ~ renda,
#' groups = satis,
@@ -3107,27 +3107,27 @@ NULL
#' pacientes segundo três fatores: ocorrência de doença das
#' coronárias, nível de colesterol e pressão arterial. O interesse
#' é analisar a associação entre essas variáveis.
-#'
+#'
#' @format Um \code{data.frame} com 32 observações e 4 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{doenca}}{Fator com dois níveis que indica a ocorrência
#' (\code{sim}) ou não ocorrência (\code{não}) de doença das
#' coronárias.}
-#'
+#'
#' \item{\code{colest}}{Fator com quatro níveis que indica o nível de
#' colesterol do paciente. A unidade de medida adotada é
#' \eqn{mg/100cm^3} com classes \code{<200}, \code{200-219},
#' \code{220-259} e \code{>259}.}
-#'
+#'
#' \item{\code{pa}}{Fator com quatro níveis referente à pressão
#' arterial do paciente. A unidade de medida adotada é mm Hg
#' (milímetro-mercúrio) com classes \code{<127}, \code{127-146},
#' \code{147-166} e \code{>166}.}
-#'
+#'
#' \item{\code{nind}}{Número de indivíduos para cada combinação das categorias
#' das variáveis \code{doenca}, \code{colest} e \code{pa}.}
-#'
+#'
#' }
#' @keywords contagem
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
@@ -3138,13 +3138,13 @@ NULL
#' @examples
#'
#' data(PaulaTb4.14)
-#'
+#'
#' str(PaulaTb4.14)
-#'
+#'
#' xt <- xtabs(nind ~ ., data = PaulaTb4.14)
#' ftable(xt)
#' plot(xt)
-#'
+#'
#' library(lattice)
#' xyplot(nind ~ colest | doenca,
#' groups = pa,
@@ -3167,19 +3167,19 @@ NULL
#' consumo médio diário de cigarro e a faixa-etária.
#' @format Um \code{data.frame} com 16 observações e 4 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{nmortes}}{Número de casos de morte por câncer de
#' pulmão.}
-#'
-#' \item{\code{tpessoas}}{Total de anos de exposição (somado para toda a
+#'
+#' \item{\code{tpessoas}}{Total de anos de exposição (somado para toda a
#' amostra).}
-#'
+#'
#' \item{\code{cmdc}}{Consumo médio diário de cigarros, dividido em
#' quatro níveis 0, 1-9, 10-30 ou +30 cigarros consumidos.}
-#'
+#'
#' \item{\code{idade}}{Idade, registrada em faixas-etárias de 40- 49,
#' 50-59, 60-79 e 70-80 anos.}
-#'
+#'
#' }
#' @keywords contagem
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
@@ -3187,13 +3187,13 @@ NULL
#' @examples
#'
#' data(PaulaTb4.2)
-#'
+#'
#' str(PaulaTb4.2)
-#'
+#'
#' xtabs(nmortes ~ cmdc + idade, data = PaulaTb4.2)
#' (xt <- xtabs((nmortes/tpessoas)*100 ~ cmdc + idade, data = PaulaTb4.2))
#' plot(xt)
-#'
+#'
#' library(lattice)
#' xyplot((nmortes/tpessoas)*100 ~ cmdc,
#' xlab = "Consumo médio de cigarros",
@@ -3213,27 +3213,27 @@ NULL
#' variáveis registradas tem por objetivo explicar esta contagem.
#' @format Um \code{data.frame} com 40 observações e 8 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{nass}}{Número de assinantes de TV a cabo (em milhares).}
-#'
+#'
#' \item{\code{domic}}{Número de domicílios na área (em milhares).}
-#'
+#'
#' \item{\code{perc}}{Percentagem de domicílios com TV a cabo.}
-#'
+#'
#' \item{\code{renda}}{Renda per capita por domicílio com TV a cabo (em
#' USD).}
-#'
+#'
#' \item{\code{taxa}}{Valor da taxa de instalação de TV a cabo (em
#' USD).}
-#'
+#'
#' \item{\code{custo}}{Custo médio mensal de manutenção de TV a cabo (em
#' USD).}
-#'
+#'
#' \item{\code{ncabo}}{Número de canais a cabo disponíveis na área.}
-#'
+#'
#' \item{\code{ntv}}{Número de canais não pagos com sinal de boa
#' qualidade na área.}
-#'
+#'
#' }
#' @keywords contagem superdispersão
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
@@ -3241,9 +3241,9 @@ NULL
#' @examples
#'
#' data(PaulaTb4.7)
-#'
+#'
#' str(PaulaTb4.7)
-#'
+#'
#' library(lattice)
#' splom(PaulaTb4.7, type = c("p", "smooth"), lwd = 2)
#'
@@ -3259,23 +3259,23 @@ NULL
#' navios com um maior tempo em operação).
#' @format Um \code{data.frame} com 34 observações e 5 variáveis.
#' \describe{
-#'
+#'
#' \item{\code{tipo}}{Fator com cinco níveis que representa o tipo de
#' navio (A, B, C, D e E).}
-#'
+#'
#' \item{\code{ano}}{Fator com quatro níveis que representa o ano de
#' fabricação do navio (entre 1960 e 1964 (\code{60-64}), entre 1965
-#' e 1969 (\code{65-69}), entre 1970 e 1974 (\code{70-74}) e
+#' e 1969 (\code{65-69}), entre 1970 e 1974 (\code{70-74}) e
#' entre 1975 e 1979 (\code{75-79})).}
-#'
+#'
#' \item{\code{peri}}{Fator com dois níveis que representa o período de
#' operação do navio (entre 1960 e 1974 (\code{60-74}) e entre 1975
#' e 1979 (\code{75-79})).}
-#'
+#'
#' \item{\code{meses}}{Tempo, em meses, em que o navio esteve em operação.}
-#'
+#'
#' \item{\code{avarias}}{Número de avarias no navio.}
-#'
+#'
#' }
#' @keywords contagem superdispersão
#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
@@ -3283,18 +3283,18 @@ NULL
#' @examples
#'
#' data(PaulaTb4.9)
-#'
+#'
#' str(PaulaTb4.9)
-#'
+#'
#' # Número de observações em cada combinação das variáveis explicativas
#' ftable(PaulaTb4.9[, c("tipo", "ano", "peri")])
-#'
+#'
#' # Número de avarias e número de avarias por mês observada em cada
#' # combinação das variáveis explicativas
#' xtabs(avarias ~ tipo + ano + peri, data = PaulaTb4.9)
#' xt <- xtabs(avarias/meses ~ ., data = PaulaTb4.9)
#' plot(xt)
-#'
+#'
#' library(lattice)
#' xyplot(avarias/meses ~ tipo | peri,
#' groups = ano,
@@ -3305,4 +3305,3 @@ NULL
#' title = "Ano de\nfabricação"))
#'
NULL
-
diff --git a/R/Pimentel.R b/R/Pimentel.R
index b4d51f8cbae74e25d1bbf82c67125200bcfcedae..af3bef967108285bce8b6ba0dff933b5a58250af 100644
--- a/R/Pimentel.R
+++ b/R/Pimentel.R
@@ -1,5 +1,5 @@
#' @name PimentelEg4.2
-#' @title Alimenta\enc{çã}{ca}o de porcos
+#' @title Alimenta\enc{çã}{ca}o de Porcos
#' @description Experimento (fictício) de alimentação de porcos em que
#' se usaram quatro rações (A, B, C, D), cada uma fornecida a cinco
#' animais escolhidos ao acaso. A tabela apresenta os aumentos de
@@ -16,8 +16,7 @@
#'
#' }
#' @keywords DIC
-#' @source Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
-#' (15th ed.). Piracicaba, SP: FEALQ.
+#' @source PIMENTEL-GOMES (2009).
#' @examples
#'
#' plot(PimentelEg4.2,
@@ -62,7 +61,8 @@ NULL
NULL
#' @name PimentelEg6.2
-#' @title Ensaio de Competi\enc{çã}{ca}o de Variedades de Cana-de-a\enc{çú}{cu}car
+#' @title Ensaio de Competi\enc{çã}{ca}o de Variedades de
+#' Cana-de-a\enc{çú}{cu}car
#' @description Experimento de competição de variedades de
#' cana-de-açúcar no qual foram usadas cinco variedades dispostas
#' em um delineamento quadrado latino 5 \eqn{\times} 5.
@@ -84,8 +84,7 @@ NULL
#'
#' }
#' @keywords DQL
-#' @source Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
-#' (15th ed.). Piracicaba, SP: FEALQ. (Exemplo 6.2, pág. 96)
+#' @source PIMENTEL-GOMES (2009), Exemplo 6.2, pág. 96.
#' @examples
#'
#' data(PimentelEg6.2)
@@ -111,7 +110,8 @@ NULL
NULL
#' @name PimentelEg7.3
-#' @title Experimento Fatorial de Aduba\enc{çã}{ca}o Mineral e com Vinha\enc{ç}{c}a
+#' @title Experimento Fatorial de Aduba\enc{çã}{ca}o Mineral e com
+#' Vinha\enc{ç}{c}a
#' @description Experimento fatorial, \eqn{2^{2}}, em que os fatores
#' eram adubação mineral completa e adubação com vinhaça. As
#' parcelas foram dispostas em blocos ao acaso.
@@ -134,8 +134,7 @@ NULL
#'
#' }
#' @keywords FAT2
-#' @source Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
-#' (15th ed.). Piracicaba, SP: FEALQ. (Exemplo 7.3, pág. 119)
+#' @source PIMENTEL-GOMES (2009), Exemplo 7.3, pág. 119.
#' @examples
#'
#' library(lattice)
@@ -157,7 +156,8 @@ NULL
NULL
#' @name PimentelEg7.4
-#' @title Experimento de Aduba\enc{çã}{ca}o com Torta de Filtro e Adubo Mineral
+#' @title Experimento de Aduba\enc{çã}{ca}o com Torta de Filtro e Adubo
+#' Mineral
#' @description Experimento fatorial 2\eqn{^{2}} em que os fatores eram
#' adubo mineral e torta dos filtros de Oliver de usinas de açúcar.
#' @format Um \code{data.frame} com 16 observações e 4 variáveis, em que
@@ -181,8 +181,7 @@ NULL
#'
#' }
#' @keywords FAT2
-#' @source Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
-#' (15th ed.). Piracicaba, SP: FEALQ. (Exemplo 7.4, pág. 120)
+#' @source PIMENTEL-GOMES (2009), Exemplo 7.4, pág. 120.
#' @examples
#'
#' library(lattice)
@@ -202,7 +201,8 @@ NULL
NULL
#' @name PimentelEx5.8.4
-#' @title Dados de Produ\enc{çã}{ca}o de Cana-planta em Ensaio de Variedades
+#' @title Dados de Produ\enc{çã}{ca}o de Cana-planta em Ensaio de
+#' Variedades
#' @description Experimento em blocos casualizados realizado pela
#' Cooperativa dos Usineiros do Oeste do Estado de São Paulo,
#' referente à produção de cana-planta de um ensaio de variedades
@@ -216,13 +216,12 @@ NULL
#'
#' \item{\code{variedade}}{Fator de 7 níveis qualitativos, que são as
#' variedades cana-de-açúcar.}
-#'
+#'
#' \item{\code{prod}}{Dados de produção de cana-planta.}
#'
#' }
#' @keywords DBC
-#' @source Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
-#' (15th ed.). Piracicaba, SP: FEALQ.
+#' @source PIMENTEL-GOMES (2009).
#' @examples
#'
#' library(lattice)
@@ -251,13 +250,12 @@ NULL
#'
#' \item{\code{variedade}}{Fator de 6 níveis qualitativos, que são os
#' diferentes tipos de mandioca.}
-#'
+#'
#' \item{\code{prod}}{Produção de mandioca, em t ha\eqn{^{-1}}.}
#'
#' }
#' @keywords DBC
-#' @source Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
-#' (15th ed.). Piracicaba, SP: FEALQ.
+#' @source PIMENTEL-GOMES (2009).
#' @examples
#'
#' library(lattice)
@@ -271,7 +269,8 @@ NULL
NULL
#' @name PimentelEx6.6.3
-#' @title Efeito da Idade de Castra\enc{çã}{ca}o no Ganho de Peso de Su\enc{í}{i}nos
+#' @title Efeito da Idade de Castra\enc{çã}{ca}o no Ganho de Peso de
+#' Su\enc{í}{i}nos
#' @description Ensaio de alimentação de suínos, no qual foi usado um
#' quadrado latino de 4 x 4, com os resultados referentes aos ganhos
#' de peso ao fim de 252 dias.
@@ -296,8 +295,7 @@ NULL
#'
#' }
#' @keywords DQL
-#' @source Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
-#' (15th ed.). Piracicaba, SP: FEALQ. (Exercício 6.6.3, página 110)
+#' @source PIMENTEL-GOMES (2009), Exercício 6.6.3, página 110.
#' @examples
#'
#' data(PimentelEx6.6.3)
@@ -324,7 +322,8 @@ NULL
NULL
#' @name PimentelPg142
-#' @title Grupo de Experimentos Fatoriais de Aduba\enc{çã}{ca}o de Algod\enc{ã}{a}o
+#' @title Grupo de Experimentos Fatoriais de Aduba\enc{çã}{ca}o de
+#' Algod\enc{ã}{a}o
#' @description Grupo de experimentos de adubação de algodão, todos em
#' delineamento inteiramente casualiado com 4 repetições cada. As
#' combinações de NPK formam em ensaio fatorial com um tratamento
@@ -362,8 +361,7 @@ NULL
#' e a porção fatorial é a combinação das doses 1 e 2 de NK tendo o
#' P fixo em 1.
#' @keywords GE DIC FATADI
-#' @source Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
-#' (15th ed.). Piracicaba, SP: FEALQ. (Página 142)
+#' @source PIMENTEL-GOMES (2009), página 142.
#' @examples
#'
#' library(lattice)
@@ -425,7 +423,8 @@ NULL
NULL
#' @name PimentelPg267
-#' @title Percentual de Sorgo na Ra\enc{çã}{ca}o para Desenvolvimento de Pintos
+#' @title Percentual de Sorgo na Ra\enc{çã}{ca}o para Desenvolvimento de
+#' Pintos
#' @description Ensaio de Torres e Pimentel-Gomes (1959) em que foram
#' estudadas 4 rações para pintos dos dois sexos (machos e fêmeas),
#' instalado um delineamento inteiramente casualizado com duas
@@ -472,7 +471,8 @@ NULL
NULL
#' @name PimentelPg269
-#' @title Influ\enc{ê}{e}ncia da Case\enc{í}{i}na Iodada na Nutri\enc{çã}{ca}o de Vacas Leiteiras
+#' @title Influ\enc{ê}{e}ncia da Case\enc{í}{i}na Iodada na
+#' Nutri\enc{çã}{ca}o de Vacas Leiteiras
#' @description Ensaio realizado pelo Departamento de Produção Animal da
#' Secretaria de Agricultura paulista, que teve por objetivo estudar
#' a influência da caseína iodada na nutrição de vacas leiteiras.
@@ -503,10 +503,9 @@ NULL
#'
#' A observação da testemunha (0 de caseina) no bloco 3 foi perdida. O
#' valor correspondente foi estimado por métodos de imputação de
-#' parcela perdida discutido na seção 5.4 de Pimentel-Gomes (2009).
+#' parcela perdida discutido na seção 5.4 de PIMENTEL-GOMES (2009).
#' @keywords DBC
-#' @source Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
-#' (15th ed.). Piracicaba, SP: FEALQ. (Página 269)
+#' @source PIMENTEL-GOMES (2009), página 269.
#' @examples
#'
#' library(lattice)
@@ -550,8 +549,7 @@ NULL
#'
#' }
#' @keywords DIC
-#' @source Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
-#' (15th ed.). Piracicaba, SP: FEALQ. (Página 382)
+#' @source PIMENTEL-GOMES (2009), página 382.
#' @examples
#'
#' library(lattice)
@@ -580,16 +578,15 @@ NULL
#'
#' \describe{
#'
-#' \item{\code{feno}}{Fator de 2 níveis qualitativos, que são os diferentes
-#' tipos de feno.}
+#' \item{\code{feno}}{Fator de 2 níveis qualitativos, que são os
+#' diferentes tipos de feno.}
#'
#' \item{\code{ganhopeso}}{Aumento do peso das leitoas, observado em
#' quilogramas.}
#'
#' }
#' @keywords DIC
-#' @source Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
-#' (15th ed.). Piracicaba, SP: FEALQ.
+#' @source PIMENTEL-GOMES (2009).
#' @examples
#'
#' library(lattice)
@@ -615,14 +612,13 @@ NULL
#'
#' \item{\code{bloco}}{Fator de 6 níveis qualitativos, usado para
#' controle local.}
-#'
+#'
#' \item{\code{prod}}{Produção de milho, em kg por parcela de
#' 200\eqn{m^{2}}.}
#'
#' }
#' @keywords DBC
-#' @source Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
-#' (15th ed.). Piracicaba, SP: FEALQ.
+#' @source PIMENTEL-GOMES (2009).
#' @examples
#'
#' library(lattice)
@@ -662,8 +658,7 @@ NULL
#'
#' }
#' @keywords DBI
-#' @source Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
-#' (15th ed.). Piracicaba, SP: FEALQ. (Tabela 10.3.1, pág. 190)
+#' @source PIMENTEL-GOMES (2009), Tabela 10.3.1, pág. 190.
#' @examples
#'
#' data(PimentelTb10.3.1)
@@ -708,8 +703,7 @@ NULL
#'
#' }
#' @keywords DBI
-#' @source Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
-#' (15th ed.). Piracicaba, SP: FEALQ. (Tabela 10.4.1, pág. 192)
+#' @source PIMENTEL-GOMES (2009), Tabela 10.4.1, pág. 192.
#' @examples
#'
#' data(PimentelTb10.4.1)
@@ -731,8 +725,8 @@ NULL
NULL
#' @name PimentelTb10.6.1
-#' @title Experimento do Tipo III com recupera\enc{çã}{ca}o da informa\enc{çã}{ca}o
-#' interblocos
+#' @title Experimento do Tipo III com recupera\enc{çã}{ca}o da
+#' informa\enc{çã}{ca}o interblocos
#' @description Experimento em blocos incompletos equilibrados do Tipo
#' III com recuperação da informação interblocos, conduzido por
#' Fraga e Costa (1950). Neste experimento temos \eqn{b = v = 13},
@@ -784,7 +778,8 @@ NULL
NULL
#' @name PimentelTb11.3.1
-#' @title Experimento de Produ\enc{çã}{ca}o de Milho em L\enc{á}{a}tice Quadrado
+#' @title Experimento de Produ\enc{çã}{ca}o de Milho em L\enc{á}{a}tice
+#' Quadrado
#' @description Produção de milho em um experimento em delineamento
#' reticulado quadrado triplo de 4 \eqn{times} 4 avaliando a 16
#' híbridos de milho, em que \eqn{m = 3} repetições ortogonais e
@@ -833,7 +828,8 @@ NULL
NULL
#' @name PimentelTb12.2.1
-#' @title Experimento de Aduba\enc{çã}{ca}o com P\eqn{_2}O\eqn{_5} em Milho
+#' @title Experimento de Aduba\enc{çã}{ca}o com P\eqn{_2}O\eqn{_5} em
+#' Milho
#' @description Experimento de adubação de milho feito pelos engenheiros
#' agrônomos Glauco Pinto Viegas e Erik Smith, em blocos ao acaso,
#' para estudar o efeito da adubação na produtividade da cultura.
@@ -897,8 +893,7 @@ NULL
#'
#' }
#' @keywords RP
-#' @source Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
-#' (15th ed.). Piracicaba, SP: FEALQ. (Tabela 12.3.1, pág. 236)
+#' @source PIMENTEL-GOMES (2009), Tabela 12.3.1, pág. 236.
#' @examples
#'
#' library(lattice)
@@ -914,7 +909,8 @@ NULL
NULL
#' @name PimentelTb12.4.1
-#' @title Produ\enc{çã}{ca}o de Cana em Fun\enc{çã}{ca}o do Teor de K do Solo
+#' @title Produ\enc{çã}{ca}o de Cana em Fun\enc{çã}{ca}o do Teor de K do
+#' Solo
#' @description Experimento de produção de cana-de-açúcar em função do
#' teor de K trocável do solo, em miliequivalentes de terra fina
#' seca na estufa, onde a nutrição com potássio foi feita com
@@ -930,8 +926,7 @@ NULL
#'
#' }
#' @keywords RP
-#' @source Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
-#' (15th ed.). Piracicaba, SP: FEALQ. (Tabela 12.4.1, pág. 238)
+#' @source PIMENTEL-GOMES (2009), Tabela 12.4.1, pág. 238.
#' @examples
#'
#' library(lattice)
@@ -948,7 +943,8 @@ NULL
NULL
#' @name PimentelTb13.5.1
-#' @title Grupo de Experimentos de Aduba\enc{çã}{ca}o de Cana-de-a\enc{çú}{cu}car
+#' @title Grupo de Experimentos de Aduba\enc{çã}{ca}o de
+#' Cana-de-a\enc{çú}{cu}car
#' @description Conjunto de 38 ensaios fatoriais de \eqn{3^{3}} com N, P
#' e K, em cana-de-açúçar, com dados de cana-planta e soca, obtidos
#' por Strauss (1951). O nutriente foi aplicado nas doses de zero,
@@ -972,8 +968,7 @@ NULL
#'
#' }
#' @keywords GE
-#' @source Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
-#' (15th ed.). Piracicaba, SP: FEALQ. (Tabela 13.5.1, pág. 259)
+#' @source PIMENTEL-GOMES (2009), Tabela 13.5.1, pág. 259.
#' @examples
#'
#' library(lattice)
@@ -1008,7 +1003,8 @@ NULL
NULL
#' @name PimentelTb14.4.1
-#' @title Produ\enc{çã}{ca}o de Leite em um Ensaio de Alimenta\enc{çã}{ca}o de Vacas
+#' @title Produ\enc{çã}{ca}o de Leite em um Ensaio de
+#' Alimenta\enc{çã}{ca}o de Vacas
#' @description Experimento de nutrição de vacas, conduzido em períodos
#' com 12 vacas distribuídas em 4 grupos de 3 vacas. Foram estudados
#' 3 tipos de alimentação para as vacas em um delineamento quadrado
@@ -1036,9 +1032,8 @@ NULL
#' \item{\code{prod}}{Produções de leite, em kg.}
#'
#' }
-#' @keywords SQL
-#' @source Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
-#' (15th ed.). Piracicaba, SP: FEALQ. (Tabela 14.4.1, pág. 272)
+#' @keywords DQL
+#' @source PIMENTEL-GOMES (2009), Tabela 14.4.1, pág. 272.
#' @examples
#'
#' library(lattice)
@@ -1091,8 +1086,7 @@ NULL
#'
#' }
#' @keywords ER
-#' @source Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
-#' (15th ed.). Piracicaba, SP: FEALQ. (Tabela 14.5.1, pág. 278)
+#' @source PIMENTEL-GOMES (2009), Tabela 14.5.1, pág. 278.
#' @examples
#'
#' library(lattice)
@@ -1139,8 +1133,7 @@ NULL
#'
#' }
#' @keywords DBC FAT2
-#' @source Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
-#' (15th ed.). Piracicaba, SP: FEALQ. (Tabela 14.7.1, pág. 283)
+#' @source PIMENTEL-GOMES (2009), Tabela 14.7.1, pág. 283.
#'
#' Pimentel-Gomes, F.; Nunes, S. G.; Gomes, M. de B; Curvo,
#' J. B. E. Modificação na análise de variância de ensaions de
@@ -1191,8 +1184,7 @@ NULL
#'
#' }
#' @keywords DBC COV
-#' @source Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
-#' (15th ed.). Piracicaba, SP: FEALQ. (Tabela 16.2.1, pág. 300)
+#' @source PIMENTEL-GOMES (2009), Tabela 16.2.1, pág. 300.
#' @examples
#'
#' library(lattice)
@@ -1229,7 +1221,8 @@ NULL
NULL
#' @name PimentelTb16.3.1
-#' @title Suscetibilidade de Variedades de Soja ao Ataque de Nemat\enc{ó}{o}ides
+#' @title Suscetibilidade de Variedades de Soja ao Ataque de
+#' Nemat\enc{ó}{o}ides
#' @description Experimento de Arruda (1952), em blocos casualizados, em
#' que se compararam 21 variedades de soja para estudar sua
#' suscetibilidade ao ataque de nematóides. Em cada parcela foram
@@ -1258,8 +1251,7 @@ NULL
#'
#' }
#' @keywords DBC COV
-#' @source Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
-#' (15th ed.). Piracicaba, SP: FEALQ. (Tabela 16.3.1, pág. 306)
+#' @source PIMENTEL-GOMES (2009), Tabela 16.3.1, pág. 306.
#' @examples
#'
#' library(lattice)
@@ -1317,8 +1309,7 @@ NULL
#'
#' }
#' @keywords DBC GE
-#' @source Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
-#' (15th ed.). Piracicaba, SP: FEALQ. (Tabela 17.3.1, pág. 317)
+#' @source PIMENTEL-GOMES (2009), Tabela 17.3.1, pág. 317.
#' @examples
#'
#' library(lattice)
@@ -1358,8 +1349,7 @@ NULL
#'
#' }
#' @keywords GE
-#' @source Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
-#' (15th ed.). Piracicaba, SP: FEALQ. (Tabela 17.4.1, pág. 322)
+#' @source PIMENTEL-GOMES (2009), Tabela 17.4.1, pág. 322.
#' @examples
#'
#' library(lattice)
@@ -1383,8 +1373,8 @@ NULL
NULL
#' @name PimentelTb18.2.1
-#' @title Ensaio Fatorial com Tratamentos Adicionais de Aduba\enc{çã}{ca}o de
-#' Milho
+#' @title Ensaio Fatorial com Tratamentos Adicionais de
+#' Aduba\enc{çã}{ca}o de Milho
#' @description Ensaio de adubação NPK de milho, fatorial de
#' \eqn{3^{3}}, com confundimento de 2 graus de liberdade da
#' interação tripla. A cada três blocos de 9 parcelas juntaram-se
@@ -1424,8 +1414,7 @@ NULL
#'
#' }
#' @keywords FAT3 FATADI
-#' @source Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
-#' (15th ed.). Piracicaba, SP: FEALQ. (Tabela 18.2.1, pág. 330)
+#' @source PIMENTEL-GOMES (2009), Tabela 18.2.1, pág. 330.
#' @examples
#'
#' library(lattice)
@@ -1465,8 +1454,7 @@ NULL
#'
#' }
#' @keywords FAT2
-#' @source Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
-#' (15th ed.). Piracicaba, SP: FEALQ. (Tabela 20.2.1, pág. 369)
+#' @source PIMENTEL-GOMES (2009), Tabela 20.2.1, pág. 369.
#' @examples
#'
#' library(lattice)
@@ -1501,8 +1489,7 @@ NULL
#'
#' }
#' @keywords DIC
-#' @source Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
-#' (15th ed.). Piracicaba, SP: FEALQ. (Tabela 21.5.1, pág. 384)
+#' @source PIMENTEL-GOMES (2009), Tabela 21.5.1, pág. 384.
#' @examples
#'
#' library(lattice)
@@ -1540,8 +1527,7 @@ NULL
#'
#' }
#' @keywords DBC
-#' @source Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
-#' (15th ed.). Piracicaba, SP: FEALQ.
+#' @source PIMENTEL-GOMES (2009).
#' @examples
#'
#' library(lattice)
@@ -1556,7 +1542,8 @@ NULL
NULL
#' @name PimentelTb6.3.1
-#' @title Experimento de Aduba\enc{çã}{ca}o Mineral e Verde em Cana-de-a\enc{çú}{cu}car
+#' @title Experimento de Aduba\enc{çã}{ca}o Mineral e Verde em
+#' Cana-de-a\enc{çú}{cu}car
#' @description Experimento de adubação de cana da Usina Monte Alegre,
#' com fertilizantes minerais e adubos verdes. O delineamento
#' utilizado foi um quadrado latino de 6 x 6.
@@ -1589,8 +1576,7 @@ NULL
#' realidade um experimento fatorial incompleto no qual não existem
#' os níveis de de adução mineral para o nível sem crotalária.
#' @keywords DQL
-#' @source Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
-#' (15th ed.). Piracicaba, SP: FEALQ. (Tabela 6.3.1, página 99)
+#' @source PIMENTEL-GOMES (2009), Tabela 6.3.1, página 99.
#' @examples
#'
#' data(PimentelTb6.3.1)
@@ -1626,7 +1612,8 @@ NULL
NULL
#' @name PimentelTb7.2.1
-#' @title Experimento Fatorial Sobre Aduba\enc{çã}{ca}o NPK na Produ\enc{çã}{ca}o de Milho
+#' @title Experimento Fatorial Sobre Aduba\enc{çã}{ca}o NPK na
+#' Produ\enc{çã}{ca}o de Milho
#' @description Resultados da produção de milho em um experimento
#' com fatorial \eqn{2^{3}} dos fatores presentes na adubação
#' minenal (NPK) em delineamento de blocos casualizados.
@@ -1650,8 +1637,7 @@ NULL
#'
#' }
#' @keywords FAT3
-#' @source Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
-#' (15th ed.). Piracicaba, SP: FEALQ. (Tabela 7.2.1, página 115)
+#' @source PIMENTEL-GOMES (2009), Tabela 7.2.1, página 115.
#' @examples
#'
#' data(PimentelTb7.2.1)
@@ -1671,8 +1657,8 @@ NULL
NULL
#' @name PimentelTb7.6.1
-#' @title Experimento Fatorial Com Confunfimento de Aduba\enc{çã}{ca}o em
-#' Cana-de-a\enc{çú}{cu}car
+#' @title Experimento Fatorial Com Confunfimento de Aduba\enc{çã}{ca}o
+#' em Cana-de-a\enc{çú}{cu}car
#' @description Experimento fatorial, de 3\eqn{^{3}}, de adubação de
#' cana com NPK, feito por Strauss (1951), com confundimento (grupo
#' W) de dois graus de liberdade da interação tripla N \eqn{\times}
@@ -1706,8 +1692,7 @@ NULL
#' tratamento 202 sendo que a última deveria ser 220. Foi feita a
#' inclusão desses dados no pacote com essa correção.
#' @keywords FAT3 confundimento
-#' @source Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
-#' (15th ed.). Piracicaba, SP: FEALQ. (Tabela 7.6.1, pág. 126)
+#' @source PIMENTEL-GOMES (2009), Tabela 7.6.1, pág. 126.
#'
#' Straus, F. Esperimentos de adubação na zona canavieira de
#' Pernambuco. In: Terceira Reunião Brasileira de Ciência do
@@ -1733,7 +1718,8 @@ NULL
NULL
#' @name PimentelTb7.8.1
-#' @title Acidez de Variedades de Mangas em Fun\enc{çã}{ca}o da \enc{É}{E}poca
+#' @title Acidez de Variedades de Mangas em Fun\enc{çã}{ca}o da
+#' \enc{É}{E}poca
#' @description Experimento fatorial, de 6 \eqn{\times} 3 \eqn{\times}
#' 3, referente a acidez de 6 variedades de mangas, em 3 meses do
#' ano e em 3 anos agrícolas sucessivos reproduzidos de um trabalho
@@ -1840,7 +1826,8 @@ NULL
NULL
#' @name PimentelTb8.3.1
-#' @title Grupo de Ensaios de Batatinha na Prov\enc{í}{i}ncia de Buenos Aires
+#' @title Grupo de Ensaios de Batatinha na Prov\enc{í}{i}ncia de Buenos
+#' Aires
#' @description Grupo de ensaios de competição de variedades de
#' batatinha, realizados pelo engenheiro agrônomo Oscar A. Garay, da
#' Estação Experimental de Balcarce, Argentina, instalados em
@@ -1875,8 +1862,7 @@ NULL
#' refere-se ao experimento número 3 com todas as observações.
#' @keywords GE
#' @seealso \code{\link{PimentelEg5.2}}.
-#' @source Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
-#' (15th ed.). Piracicaba, SP: FEALQ. (Tabela 8.3.1, pág. 147)
+#' @source PIMENTEL-GOMES (2009), Tabela 8.3.1, pág. 147.
#' @examples
#'
#' library(lattice)
@@ -1922,8 +1908,7 @@ NULL
#'
#' }
#' @keywords PSS
-#' @source Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
-#' (15th ed.). Piracicaba, SP: FEALQ. (Tabela 9.2.1, pág. 166)
+#' @source PIMENTEL-GOMES (2009), Tabela 9.2.1, pág. 166.
#' @examples
#'
#' library(lattice)
@@ -1943,7 +1928,8 @@ NULL
NULL
#' @name PimentelTb9.3.1
-#' @title Experimento de Aduba\enc{çã}{ca}o de Variedades de Cana-de-a\enc{çú}{cu}car
+#' @title Experimento de Aduba\enc{çã}{ca}o de Variedades de
+#' Cana-de-a\enc{çú}{cu}car
#' @description Experimento com 5 variedades de cana-de-açúcar, em
#' delineamento quadrado latino de 5 x 5, sendo cada parcela
#' dividida em duas subparcelas, uma sem adubo e outra com adubação
@@ -2013,8 +1999,7 @@ NULL
#'
#' }
#' @keywords PS
-#' @source Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
-#' (15th ed.). Piracicaba, SP: FEALQ. (Tabela 9.4.1, pág. 175)
+#' @source PIMENTEL-GOMES (2009), Tabela 9.4.1, pág. 175.
#' @examples
#'
#' library(lattice)
@@ -2031,4 +2016,3 @@ NULL
#' columns = 2))
#'
NULL
-
diff --git a/R/Ramalho.R b/R/Ramalho.R
index d46db1682a750a18f9f3187c3992d1fc688b785d..6e2366edfc26ecbb67ca2a227fb5dabf5f0427a4 100644
--- a/R/Ramalho.R
+++ b/R/Ramalho.R
@@ -1,7 +1,7 @@
#' @name RamalhoEg11.10
#' @title Produ\enc{çã}{ca}o de Gr\enc{ã}{a}os de Sorgo
-#' @description Experimento da avaliação da produção de 40 cultivares de sorgo
-#' conduzido no delineamento alfa-látice.
+#' @description Experimento da avaliação da produção de 40 cultivares de
+#' sorgo conduzido no delineamento alfa-látice.
#' @format Um \code{data.frame} com 120 observações e 3 variáveis, em
#' que
#'
@@ -19,9 +19,7 @@
#'
#' }
#' @keywords DBI
-#' @source Ramalho, M. A. P., Ferreira, D. F., Oliveira, A. C. (2005).
-#' Experimentação em Genética e Melhoramento de Plantas (2th ed.).
-#' Lavras: UFLA. (pág. 181)
+#' @source RAMALHO et al. (2005), pág. 181.
#' @examples
#'
#' library(lattice)
@@ -59,7 +57,8 @@
NULL
#' @name RamalhoEg11.13
-#' @title Produ\enc{çã}{ca}o de Gr\enc{ã}{a}os de Milho em Diferentes Popula\enc{çõ}{co}es
+#' @title Produ\enc{çã}{ca}o de Gr\enc{ã}{a}os de Milho em Diferentes
+#' Popula\enc{çõ}{co}es
#' @description Experimento envolvendo populações de milho no
#' delinemanto em blocos aumentados com 4 populações comuns e 25
#' populações regulares.
@@ -80,9 +79,7 @@ NULL
#'
#' }
#' @keywords DBI
-#' @source Ramalho, M. A. P., Ferreira, D. F., Oliveira, A. C. (2005).
-#' Experimentação em Genética e Melhoramento de Plantas (2th ed.).
-#' Lavras: UFLA. (Exemplo 11.13, pág. 188)
+#' @source RAMALHO et al. (2005), Exemplo 11.13, pág. 188.
#' @examples
#'
#' library(lattice)
@@ -117,9 +114,7 @@ NULL
#'
#' }
#' @keywords DBI
-#' @source Ramalho, M. A. P., Ferreira, D. F., Oliveira, A. C. (2005).
-#' Experimentação em Genética e Melhoramento de Plantas (2th ed.).
-#' Lavras: UFLA. (pág. 171)
+#' @source RAMALHO et al. (2005), pág. 171.
#' @examples
#'
#' library(lattice)
@@ -157,7 +152,8 @@ NULL
NULL
#' @name RamalhoEg12.10
-#' @title Ensaio Dialelo para o Tempo At\enc{é}{e} o Florescimento do Feijoeiro
+#' @title Ensaio Dialelo para o Tempo At\enc{é}{e} o Florescimento do
+#' Feijoeiro
#' @description Dados referentes ao cruzamento dialelo realizado por
#' Arriel et al. (1993), em que foi avaliado o número de dias para o
#' florescimento do feijoeiro para cada progenie.
@@ -174,9 +170,7 @@ NULL
#'
#' }
#' @keywords Dialelo
-#' @source Ramalho, M. A. P., Ferreira, D. F., Oliveira, A. C. (2005).
-#' Experimentação em Genética e Melhoramento de Plantas (2th ed.).
-#' Lavras: UFLA. (Exemplo 12.10, pág. 227)
+#' @source RAMALHO et al. (2005), Exemplo 12.10, pág. 227.
#'
#' Arriel, E., Ramalho, M. A. P., Pacheco, C. A. P. Expected and
#' Realized Gains in the CMS-39 Maize Population after three Cycles
@@ -202,7 +196,8 @@ NULL
NULL
#' @name RamalhoEg13.2
-#' @title Produ\enc{çã}{ca}o de Gr\enc{ã}{a}os de Milho em Cons\enc{ó}{o}rcio com Feij\enc{ã}{a}o.
+#' @title Produ\enc{çã}{ca}o de Gr\enc{ã}{a}os de Milho em
+#' Cons\enc{ó}{o}rcio com Feij\enc{ã}{a}o.
#' @description Dados referente ao experimento conduzido por Rezende et
#' al. (1994), envolvendo 4 cultivares de milho consorciadas com 3
#' de feijão.
@@ -225,9 +220,7 @@ NULL
#'
#' }
#' @keywords COV FAT2 DBC
-#' @source Ramalho, M. A. P., Ferreira, D. F., Oliveira, A. C. (2005).
-#' Experimentação em Genética e Melhoramento de Plantas (2th ed.).
-#' Lavras: UFLA. (Exemplo 13.2, pág. 237)
+#' @source RAMALHO et al. (2005), Exemplo 13.2, pág. 237.
#'
#' Rezende, G. D. S. P.; Ramalho, M. A. P. Competitive Ability of
#' Maize and Commom Bean (Phaseolus Vulgaris L.) Cultivars
@@ -256,7 +249,8 @@ NULL
NULL
#' @name RamalhoEg4.3
-#' @title Porcentagem de absor\enc{çã}{ca}o de \enc{á}{a}gua de feij\enc{ã}{a}o
+#' @title Porcentagem de absor\enc{çã}{ca}o de \enc{á}{a}gua de
+#' feij\enc{ã}{a}o
#' @description Experimento conduzido na Universidade Federal de Lavras,
#' avaliando a porcentagem de absorção de água de 10 linhares de
#' feijão. O delineamento é inteiramente ao acaso com 3 repetições.
@@ -275,9 +269,7 @@ NULL
#'
#' }
#' @keywords DIC
-#' @source Ramalho, M. A. P., Ferreira, D. F., Oliveira, A. C. (2005).
-#' Experimentação em Genética e Melhoramento de Plantas (2th ed.).
-#' Lavras, MG: UFLA. (Exemplo 4.3, pág 56)
+#' @source RAMALHO et al. (2005), Exemplo 4.3, pág 56.
#' @examples
#'
#' library(lattice)
@@ -307,9 +299,7 @@ NULL
#'
#' }
#' @keywords DBC
-#' @source Ramalho, M. A. P., Ferreira, D. F., Oliveira, A. C. (2005).
-#' Experimentação em Genética e Melhoramento de Plantas (2th ed.).
-#' Lavras: UFLA. (pg 62)
+#' @source RAMALHO et al. (2005), pág. 62.
#' @examples
#'
#' library(lattice)
@@ -323,7 +313,8 @@ NULL
NULL
#' @name RamalhoEg7.8
-#' @title Produ\enc{çã}{ca}o de Gr\enc{ã}{a}os de Cruzamentos Feij\enc{ã}{a}o
+#' @title Produ\enc{çã}{ca}o de Gr\enc{ã}{a}os de Cruzamentos
+#' Feij\enc{ã}{a}o
#' @description Experimento referente à produção de grãos de feijão
#' obtida na avaliação de 24 famílias \eqn{F_{5}} do cruzamento
#' Jalo x Small White, cujos dados foram obtidos por Souza (1991).
@@ -346,9 +337,7 @@ NULL
#'
#' }
#' @keywords DBC
-#' @source Ramalho, M. A. P., Ferreira, D. F., Oliveira, A. C. (2005).
-#' Experimentação em Genética e Melhoramento de Plantas (2th ed.).
-#' Lavras, MG: UFLA. (Exemplo 7.8, pág 110).
+#' @source RAMALHO et al. (2005), Exemplo 7.8, pág. 110.
#' @examples
#'
#' library(lattice)
@@ -372,7 +361,8 @@ NULL
NULL
#' @name RamalhoEg8.1
-#' @title Produ\enc{çã}{ca}o de Gr\enc{ã}{a}os em Cultivares de Feij\enc{ã}{a}o
+#' @title Produ\enc{çã}{ca}o de Gr\enc{ã}{a}os em Cultivares de
+#' Feij\enc{ã}{a}o
#' @description Experimentos para medir a produção de grãos de
#' cultivares de feijão, conduzidos em Lavras e Patos de Minas/MG
#' durante o ano de 1990 em delineamento em blocos casualizados.
@@ -394,9 +384,7 @@ NULL
#'
#' }
#' @keywords DBC GE
-#' @source Ramalho, M. A. P., Ferreira, D. F., Oliveira, A. C. (2005).
-#' Experimentação em Genética e Melhoramento de Plantas (2th ed.).
-#' Lavras: UFLA. (Exemplo 8.1, pág. 115)
+#' @source RAMALHO et al. (2005), Exemplo 8.1, pág. 115.
#' @examples
#'
#' library(lattice)
@@ -423,7 +411,8 @@ NULL
NULL
#' @name RamalhoEg8.8
-#' @title Produ\enc{çã}{ca}o de Gr\enc{ã}{a}os de Feij\enc{ã}{a}o de Popula\enc{çõ}{co}es Segregantes
+#' @title Produ\enc{çã}{ca}o de Gr\enc{ã}{a}os de Feij\enc{ã}{a}o de
+#' Popula\enc{çõ}{co}es Segregantes
#' @description Dados da produção de grãos de feijão obtidos por Corte
#' et al. (2002) relativos à avaliação de 6 populações segregantes
#' avaliadas nas gerações F\eqn{_{2}}, F\eqn{_{3}} e F\eqn{_{4}} com
@@ -448,9 +437,7 @@ NULL
#'
#' }
#' @keywords DBC GE
-#' @source Ramalho, M. A. P., Ferreira, D. F., Oliveira, A. C. (2005).
-#' Experimentação em Genética e Melhoramento de Plantas (2th ed.).
-#' Lavras: UFLA. (Tabela 8.8, pág. 123)
+#' @source RAMALHO et al. (2005), Tabela 8.8, pág. 123.
#'
#' Corte, H. R., Ramalho, M. A. P., Gonçalves, F. M. A., Abreu. A de
#' F. B. Natural Selection for Grain Yield in Dry Bean Population
@@ -486,9 +473,7 @@ NULL
#' Gerais.
#' @format Vetor com 100 observações altura das plantas em metros.
#' @keywords AAS
-#' @source Ramalho, M. A. P., Ferreira, D. F., Oliveira, A. C. (2005).
-#' Experimentação em Genética e Melhoramento de Plantas (2th ed.).
-#' Lavras, MG: UFLA. (pg 26)
+#' @source RAMALHO et al. (2005), pág. 26.
#'
#' Castro, N. H. A., Andrade, H. B., Ramalho, m A. P. (1993).
#' Revista Árvore. Viçosa, v. 17, n.2.
@@ -507,7 +492,8 @@ NULL
NULL
#' @name RamalhoEx12.2
-#' @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 Conjunto de dados apresentados para exercício. Objetivo
#' do exercício é estimar a equação de regressão múltipla.
#' @format Um \code{data.frame} com 8 observações e 4 variáveis, em que
@@ -524,9 +510,7 @@ NULL
#'
#' }
#' @keywords RM
-#' @source Ramalho, M. A. P., Ferreira, D. F., Oliveira, A. C. (2005).
-#' Experimentação em Genética e Melhoramento de Plantas (2th ed.).
-#' Lavras: UFLA. (Exercício 12.2, pág. 231)
+#' @source RAMALHO et al. (2005), Exercício 12.2, pág. 231.
#' @examples
#'
#' data(RamalhoEx12.2)
@@ -562,9 +546,7 @@ NULL
#'
#' }
#' @keywords COV
-#' @source Ramalho, M. A. P., Ferreira, D. F., Oliveira, A. C. (2005).
-#' Experimentação em Genética e Melhoramento de Plantas (2th ed.).
-#' Lavras: UFLA. (Exercício 13.1, pág. 255)
+#' @source RAMALHO et al. (2005), Exercício 13.1, pág. 255.
#' @examples
#'
#' data(RamalhoEx13.1)
@@ -599,9 +581,7 @@ NULL
#'
#' }
#' @keywords COV DBC
-#' @source Ramalho, M. A. P., Ferreira, D. F., Oliveira, A. C. (2005).
-#' Experimentação em Genética e Melhoramento de Plantas (2th ed.).
-#' Lavras: UFLA. (Exercício 13.2, pág. 256)
+#' @source RAMALHO et al. (2005), Exercício 13.2, pág. 256.
#' @examples
#'
#' data(RamalhoEx13.2)
@@ -630,7 +610,8 @@ NULL
NULL
#' @name RamalhoEx13.3
-#' @title Avalia\enc{çã}{ca}o do Stay Green em Fam\enc{í}{i}lias de Feijoeiro
+#' @title Avalia\enc{çã}{ca}o do Stay Green em Fam\enc{í}{i}lias de
+#' Feijoeiro
#' @description Notas da avaliação do "stay green" obtidos de famílias
#' de feijoeiro, avaliados nas gerações \eqn{F_{2:3}}, \eqn{F_{2:4}}
#' e \eqn{F_{2:5}}.
@@ -648,9 +629,7 @@ NULL
#'
#' }
#' @keywords COV DBC
-#' @source Ramalho, M. A. P., Ferreira, D. F., Oliveira, A. C. (2005).
-#' Experimentação em Genética e Melhoramento de Plantas (2th ed.).
-#' Lavras: UFLA. (Exercício 13.3, pág. 257)
+#' @source RAMALHO et al. (2005), Exercício 13.3, pág. 257.
#' @examples
#'
#' data(RamalhoEx13.3)
@@ -675,7 +654,8 @@ NULL
NULL
#' @name RamalhoEx3.1
-#' @title N\enc{ú}{u}mero de plantas de milho ap\enc{ó}{o}s inocula\enc{çã}{ca}o
+#' @title N\enc{ú}{u}mero de plantas de milho ap\enc{ó}{o}s
+#' inocula\enc{çã}{ca}o
#' @description Experimento referente ao número de plantas de milho,
#' por parcela, após a inoculação com Diploidia. Experimento para
#' avaliação de fungicidas para tratamento de sementes.
@@ -692,9 +672,7 @@ NULL
#'
#' }
#' @keywords contagem
-#' @source Ramalho, M. A. P., Ferreira, D. F., Oliveira, A. C. (2005).
-#' Experimentação em Genética e Melhoramento de Plantas (2th ed.).
-#' Lavras, MG: UFLA. (pg 50)
+#' @source RAMALHO et al. (2005), pág. 50.
#'
#' @examples
#'
@@ -729,9 +707,7 @@ NULL
#'
#' }
#' @keywords DIC desbalanceado
-#' @source Ramalho, M. A. P., Ferreira, D. F., Oliveira, A. C. (2005).
-#' Experimentação em Genética e Melhoramento de Plantas (2th ed.).
-#' Lavras, MG: UFLA. (Exercício 4.1, pág 66)
+#' @source RAMALHO et al. (2005), Exercício 4.1, pág. 66.
#' @examples
#'
#' library(lattice)
@@ -762,9 +738,7 @@ NULL
#'
#' }
#' @keywords DBC contagem
-#' @source Ramalho, M. A. P., Ferreira, D. F., Oliveira, A. C. (2005).
-#' Experimentação em Genética e Melhoramento de Plantas (2th ed.).
-#' Lavras, MG: UFLA. (Execício 4.2, pág 66)
+#' @source RAMALHO et al. (2005), Execício 4.2, pág. 66.
#' @examples
#'
#' library(lattice)
@@ -806,9 +780,7 @@ NULL
#'
#' }
#' @keywords DBC
-#' @source Ramalho, M. A. P., Ferreira, D. F., Oliveira, A. C. (2005).
-#' Experimentação em Genética e Melhoramento de Plantas (2th ed.).
-#' Lavras, MG: UFLA. (pg 112).
+#' @source RAMALHO et al. (2005), pág. 112.
#' @examples
#'
#' library(lattice)
@@ -832,7 +804,8 @@ NULL
NULL
#' @name RamalhoEx8.1
-#' @title Produ\enc{çã}{ca}o de Gr\enc{ã}{a}os de Arroz em Munic\enc{í}{i}pios de Minas Gerais
+#' @title Produ\enc{çã}{ca}o de Gr\enc{ã}{a}os de Arroz em
+#' Munic\enc{í}{i}pios de Minas Gerais
#' @description Experimentos para avaliar a produção de grãos de
#' cultivares de arroz, conduzidos em três locais do Estado de Minas
#' Gerais (Lambari, Lavras e Felixlândia) em delineamento
@@ -854,9 +827,7 @@ NULL
#'
#' }
#' @keywords DIC GE
-#' @source Ramalho, M. A. P., Ferreira, D. F., Oliveira, A. C. (2005).
-#' Experimentação em Genética e Melhoramento de Plantas (2th ed.).
-#' Lavras: UFLA. (Exercício 8.1, pág. 132)
+#' @source RAMALHO et al. (2005), Exercício 8.1, pág. 132.
#' @examples
#'
#' data(RamalhoEx8.1)
@@ -928,9 +899,7 @@ NULL
#'
#' }
#' @keywords DBC GE
-#' @source Ramalho, M. A. P., Ferreira, D. F., Oliveira, A. C. (2005).
-#' Experimentação em Genética e Melhoramento de Plantas (2th ed.).
-#' Lavras: UFLA. (Exercício 8.2, pág. 133)
+#' @source RAMALHO et al. (2005), Exercício 8.2, pág. 133.
#' @examples
#'
#' library(latticeExtra)
@@ -970,10 +939,8 @@ NULL
#' ha\eqn{^{-1}}).}
#'
#' }
-#' @keywords ASS
-#' @source Ramalho, M. A. P., Ferreira, D. F., Oliveira, A. C. (2005).
-#' Experimentação em Genética e Melhoramento de Plantas (2th ed.).
-#' Lavras, MG: UFLA. (pg 15)
+#' @keywords AAS
+#' @source RAMALHO et al. (2005), pág 15.
#'
#' @examples
#'
@@ -1015,9 +982,7 @@ NULL
#'
#' }
#' @keywords DBI
-#' @source Ramalho, M. A. P., Ferreira, D. F., Oliveira, A. C. (2005).
-#' Experimentação em Genética e Melhoramento de Plantas (2th ed.).
-#' Lavras: UFLA. (pág. 165)
+#' @source RAMALHO et al. (2005), pág. 165.
#' @examples
#'
#' library(lattice)
@@ -1079,9 +1044,7 @@ NULL
#'
#' }
#' @keywords DBI
-#' @source Ramalho, M. A. P., Ferreira, D. F., Oliveira, A. C. (2005).
-#' Experimentação em Genética e Melhoramento de Plantas (2th ed.).
-#' Lavras: UFLA. (Tabela 11.17, pág. 193)
+#' @source RAMALHO et al. (2005), Tabela 11.17, pág. 193.
#' @examples
#'
#' library(lattice)
@@ -1100,7 +1063,8 @@ NULL
NULL
#' @name RamalhoTb12.8
-#' @title Componentes da Produ\enc{çã}{ca}o de Linhagens de Feij\enc{ã}{a}o
+#' @title Componentes da Produ\enc{çã}{ca}o de Linhagens de
+#' Feij\enc{ã}{a}o
#' @description Dados obtidos por Perreira Filho et al. (1987),
#' referentes ao número médio de vagens por planta, número de
#' sementes por vagem, peso de 100 sementes e produção de grãos,
@@ -1125,9 +1089,7 @@ NULL
#'
#' }
#' @keywords RM
-#' @source Ramalho, M. A. P., Ferreira, D. F., Oliveira, A. C. (2005).
-#' Experimentação em Genética e Melhoramento de Plantas (2th ed.).
-#' Lavras: UFLA. (Tabela 12.8, pág. 225)
+#' @source RAMALHO et al. (2005), Tabela 12.8, pág. 225.
#'
#' Pereira Filho, I. A., Ramalho, M. A. P., Ferreira, S. Avaliação
#' de Progênies de Feijão e Estimativas de Parâmetros Genéticos na
@@ -1164,9 +1126,7 @@ NULL
#'
#' }
#' @keywords COV
-#' @source Ramalho, M. A. P., Ferreira, D. F., Oliveira, A. C. (2005).
-#' Experimentação em Genética e Melhoramento de Plantas (2th ed.).
-#' Lavras: UFLA. (Tabela 13.1, pág. 233)
+#' @source RAMALHO et al. (2005), Tabela 13.1, pág. 233.
#' @examples
#'
#' data(RamalhoTb13.1)
@@ -1200,9 +1160,7 @@ NULL
#'
#' }
#' @keywords COV RS
-#' @source Ramalho, M. A. P., Ferreira, D. F., Oliveira, A. C. (2005).
-#' Experimentação em Genética e Melhoramento de Plantas (2th ed.).
-#' Lavras: UFLA. (Tabela 13.11, pág. 248)
+#' @source RAMALHO et al. (2005), Tabela 13.11, pág. 248.
#' @examples
#'
#' data(RamalhoTb13.11)
@@ -1219,7 +1177,8 @@ NULL
NULL
#' @name RamalhoTb13.13
-#' @title Produ\enc{çã}{ca}o de Gr\enc{ã}{a}os de Prog\enc{ê}{e}nies de Feij\enc{ã}{a}o
+#' @title Produ\enc{çã}{ca}o de Gr\enc{ã}{a}os de Prog\enc{ê}{e}nies de
+#' Feij\enc{ã}{a}o
#' @description Experimento referente a avaliação de progênies
#' provenientes do cruzamento (ESAL 501 x Rio Tibagi), obtidos em 3
#' gerações (F3, F4 e F5). Foi utilizado o delineamento de blocos
@@ -1238,9 +1197,7 @@ NULL
#'
#' }
#' @keywords COV DBC
-#' @source Ramalho, M. A. P., Ferreira, D. F., Oliveira, A. C. (2005).
-#' Experimentação em Genética e Melhoramento de Plantas (2th ed.).
-#' Lavras: UFLA. (Tabela 13.13, pág. 251)
+#' @source RAMALHO et al. (2005), Tabela 13.13, pág. 251.
#' @examples
#'
#' data(RamalhoTb13.13)
@@ -1281,9 +1238,7 @@ NULL
#'
#' }
#' @keywords COV RS
-#' @source Ramalho, M. A. P., Ferreira, D. F., Oliveira, A. C. (2005).
-#' Experimentação em Genética e Melhoramento de Plantas (2th ed.).
-#' Lavras: UFLA. (Tabela 13.15, pág. 252)
+#' @source RAMALHO et al. (2005), Tabela 13.15, pág. 252.
#' @examples
#'
#' data(RamalhoTb13.15)
@@ -1302,7 +1257,8 @@ NULL
NULL
#' @name RamalhoTb13.6
-#' @title Produ\enc{çã}{ca}o de Gr\enc{ã}{a}os de Feij\enc{ã}{a}o e Teor de \eqn{P_{2}O_{5}}
+#' @title Produ\enc{çã}{ca}o de Gr\enc{ã}{a}os de Feij\enc{ã}{a}o e Teor
+#' de \eqn{P_{2}O_{5}}
#' @description Experimento apresentado por Pereira (1993) referente a
#' avaliação da produção de feijão e teor de \eqn{P_{2}O_{5}} em
#' cada parcela, cujos dados foram obtidos de 10 cultivares de
@@ -1325,9 +1281,8 @@ NULL
#'
#' }
#' @keywords COV DBC
-#' @source Ramalho, M. A. P., Ferreira, D. F., Oliveira, A. C. (2005).
-#' Experimentação em Genética e Melhoramento de Plantas (2th ed.).
-#' Lavras: UFLA. (Tabela 13.6, pág. 243 e tabela 13.9, pág. 246)
+#' @source RAMALHO et al. (2005), Tabela 13.6, pág. 243 e tabela 13.9,
+#' pág. 246.
#'
#' Pereira, A. F. Emprego de Covariância visando reduzir o efeito da
#' heterogeneidade Ambiental nos Experimentos com a Cultura do
@@ -1395,9 +1350,7 @@ NULL
#'
#' }
#' @keywords DIC contagem
-#' @source Ramalho, M. A. P., Ferreira, D. F., Oliveira, A. C. (2005).
-#' Experimentação em Genética e Melhoramento de Plantas (2th ed.).
-#' Lavras, MG: UFLA. (pg 43)
+#' @source RAMALHO et al. (2005), pág. 43.
#'
#' @examples
#'
@@ -1464,9 +1417,7 @@ NULL
#'
#' }
#' @keywords DBC
-#' @source Ramalho, M. A. P., Ferreira, D. F., Oliveira, A. C. (2005).
-#' Experimentação em Genética e Melhoramento de Plantas (2th ed.).
-#' Lavras, MG: UFLA. (pg 45)
+#' @source RAMALHO et al. (2005), pág 45.
#'
#' @examples
#'
@@ -1497,9 +1448,7 @@ NULL
#'
#' }
#' @keywords DBC
-#' @source Ramalho, M. A. P., Ferreira, D. F., Oliveira, A. C. (2005).
-#' Experimentação em Genética e Melhoramento de Plantas (2th ed.).
-#' Lavras, MG: UFLA. (pg 48)
+#' @source RAMALHO et al. (2005), pág. 48.
#'
#' @examples
#'
@@ -1533,9 +1482,7 @@ NULL
#'
#' }
#' @keywords DBC
-#' @source Ramalho, M. A. P., Ferreira, D. F., Oliveira, A. C. (2005).
-#' Experimentação em Genética e Melhoramento de Plantas (2th ed.).
-#' Lavras, MG: UFLA. (Tabela 7.1, pág 102).
+#' @source RAMALHO et al. (2005), Tabela 7.1, pág 102.
#' @examples
#'
#' library(lattice)
@@ -1554,7 +1501,8 @@ NULL
NULL
#' @name RamalhoTb8.12
-#' @title Produ\enc{çã}{ca}o M\enc{é}{e}dia de Gr\enc{ã}{a}os de Caf\enc{é}{e}-cereja
+#' @title Produ\enc{çã}{ca}o M\enc{é}{e}dia de Gr\enc{ã}{a}os de
+#' Caf\enc{é}{e}-cereja
#' @description Experimento que estudou a produção média de grãos de
#' café-cereja, obtidos por Mendes (1994), em função da progênie em
#' 3 anos. Foi utilizado o delineamento de blocos casualizados.
@@ -1578,9 +1526,7 @@ NULL
#'
#' }
#' @keywords DBC GE
-#' @source Ramalho, M. A. P., Ferreira, D. F., Oliveira, A. C. (2005).
-#' Experimentação em Genética e Melhoramento de Plantas (2th ed.).
-#' Lavras: UFLA. (pág. 128)
+#' @source RAMALHO et al. (2005), pág. 128.
#'
#' Mendes, A. N. G. Avaliação de Metodologias Empregadas na Seleção
#' de Progênies do Cafeeiro (Coffea arabica L.) no estado de Minas
@@ -1610,4 +1556,3 @@ NULL
#' FUN = function(x) { c(mean = mean(x), var = var(x)) })
#'
NULL
-
diff --git a/R/Storck.R b/R/Storck.R
index 98d7b4560c85198eaf51737620ed4fab997e0265..59ef5d36c89cbe359ac9e5418cf3672e233a0be6 100644
--- a/R/Storck.R
+++ b/R/Storck.R
@@ -25,9 +25,7 @@
#'
#' }
#' @keywords DQL
-#' @source Storck, L., Garcia, B. C., Lopes, S. J., Estefanel,
-#' V. (2011). Experimentação Vegetal (3th ed.). Santa Maria, RS:
-#' UFSM. (Tabela 2.3.5, pág 63)
+#' @source STORCK et al. (2011), Tabela 2.3.5, pág. 63.
#' @examples
#'
#' library(lattice)
@@ -41,7 +39,8 @@
NULL
#' @name StorckTb101
-#' @title Grupo de Experimentos de Competi\enc{çã}{ca}o de Cultivares de Milho
+#' @title Grupo de Experimentos de Competi\enc{çã}{ca}o de Cultivares de
+#' Milho
#' @description Grupo de experimentos, avaliando 6 cultivres de milho,
#' conduzidos em 4 locais (4 ambientes) da região central d Rio
#' Grande do Sul, no delineamento de blocos ao acaso com 4
@@ -63,9 +62,7 @@ NULL
#'
#' }
#' @keywords GE DBC
-#' @source Storck, L., Garcia, B. C., Lopes, S. J., Estefanel,
-#' V. (2011). Experimentação Vegetal (3th ed.). Santa Maria, RS:
-#' UFSM. (Tabela 101, pág. 182)
+#' @source STORCK et al. (2011), Tabela 101, pág. 182.
#' @examples
#'
#' library(lattice)
@@ -98,9 +95,7 @@ NULL
#'
#' }
#' @keywords DIC
-#' @source Storck, L., Garcia, B. C., Lopes, S. J., Estefanel,
-#' V. (2011). Experimentação Vegetal (3th ed.). Santa Maria, RS:
-#' UFMS. (Tabela 2, pág. 21)
+#' @source STORCK et al. (2011), Tabela 2, pág. 21.
#' @examples
#'
#' library(lattice)
@@ -134,9 +129,7 @@ NULL
#'
#' }
#' @keywords DBC FAT2
-#' @source Storck, L., Garcia, B. C., Lopes, S. J., Estefanel,
-#' V. (2011). Experimentação Vegetal (3th ed.). Santa Maria, RS:
-#' UFSM. (Tabela 56, pg 134)
+#' @source STORCK et al. (2011), Tabela 56, pg 134.
#' @examples
#'
#' library(lattice)
@@ -174,9 +167,7 @@ NULL
#'
#' }
#' @keywords DBC FAT2
-#' @source Storck, L., Garcia, B. C., Lopes, S. J., Estefanel,
-#' V. (2011). Experimentação Vegetal (3th ed.). Santa Maria, RS:
-#' UFSM. (Tabela 60, pág. 138)
+#' @source STORCK et al. (2011), Tabela 60, pág. 138.
#' @examples
#'
#' library(lattice)
@@ -194,7 +185,8 @@ NULL
NULL
#' @name StorckTb67
-#' @title Efeito da Dose de NPK na Produ\enc{çã}{ca}o de Cultivares de Milho
+#' @title Efeito da Dose de NPK na Produ\enc{çã}{ca}o de Cultivares de
+#' Milho
#' @description Resultados ficitícios (kg/parcela) de um experimento
#' bifatorial 3 \eqn{\times} 5 no delineamento de blocos ao acaso
#' com 4 repetições.
@@ -215,9 +207,7 @@ NULL
#'
#' }
#' @keywords DBC FAT2
-#' @source Storck, L., Garcia, B. C., Lopes, S. J., Estefanel,
-#' V. (2011). Experimentação Vegetal (3th ed.). Santa Maria, RS:
-#' UFSM. (Tabela 67, pág. 144)
+#' @source STORCK et al. (2011), Tabela 67, pág. 144.
#' @examples
#'
#' library(lattice)
@@ -236,7 +226,8 @@ NULL
#' @name StorckTb74
#' @aliases StorckTb88
-#' @title \enc{É}{E}poca e Densidade de Semeadura na Produ\enc{çã}{ca}o de Milho
+#' @title \enc{É}{E}poca e Densidade de Semeadura na Produ\enc{çã}{ca}o
+#' de Milho
#' @description Resultados ficitícios de um experimento fatorial 3
#' \eqn{\times} 5 no delineamento de blocos ao acaso, com arranjo
#' dos fatores em parcela subdividida, que estudou o efeito da época
@@ -270,9 +261,8 @@ NULL
#' portanto uma verdadeira restrição de casualização (como acontece
#' com camadas do solo ou tempo) mas sim uma dificuldade logística.
#' @keywords DIC FAT2 PS
-#' @source Storck, L., Garcia, B. C., Lopes, S. J., Estefanel,
-#' V. (2011). Experimentação Vegetal (3th ed.). Santa Maria, RS:
-#' UFSM. (Tabela 74, pág. 150 e Tabela 88, pág. 168)
+#' @source STORCK et al. (2011), Tabela 74, pág. 150 e Tabela 88,
+#' pág. 168.
#' @examples
#'
#' library(lattice)
@@ -310,9 +300,7 @@ NULL
#'
#' }
#' @keywords DIC
-#' @source Storck, L., Garcia, B. C., Lopes, S. J., Estefanel,
-#' V. (2011). Experimentação Vegetal (3th ed.). Santa Maria, RS:
-#' UFSM. (Tabela 8, pág. 33)
+#' @source STORCK et al. (2011), Tabela 8, pág. 33.
#' @examples
#'
#' library(lattice)
@@ -324,4 +312,3 @@ NULL
#' xlab = "Tratamentos", ylab = "Resposta")
#'
NULL
-
diff --git a/R/Vieira.R b/R/Vieira.R
index 6458fb82d1e416148ff5ab1013284bda58081c75..59da02e5a5c8e658bd26120a93f76fd665fe86a9 100644
--- a/R/Vieira.R
+++ b/R/Vieira.R
@@ -1,6 +1,6 @@
#' @name VieiraEx7.3
-#' @title Experimento de um Fator em DIC com N\enc{ú}{u}mero Diferente de
-#' Repeti\enc{çõ}{co}es
+#' @title Experimento de um Fator em DIC com N\enc{ú}{u}mero Diferente
+#' de Repeti\enc{çõ}{co}es
#' @description Dados de um experimento inteiramente ao acaso com número
#' diferente de repetições.
#' @format Um \code{data.frame} com 18 observações e 2 variáveis, em que
@@ -15,8 +15,7 @@
#'
#' }
#' @keywords DIC
-#' @source Vieira, S. (1999). Estatística experimental (2th ed.).
-#' São Paulo, SP: Atlas. (Exercício 7.3, pág. 85).
+#' @source VIEIRA (1999), Exercício 7.3, pág. 85.
#' @examples
#'
#' data(VieiraEx7.3)
@@ -32,7 +31,8 @@
NULL
#' @name VieiraEx7.5
-#' @title Experimento Com Um Fator e Repeti\enc{çã}{ca}o Dentro dos Blocos
+#' @title Experimento Com Um Fator e Repeti\enc{çã}{ca}o Dentro dos
+#' Blocos
#' @description Dados de um experimento em delineamento de blocos
#' casualizados com repetição de tratamentos dentro dos blocos.
#' @format Um \code{data.frame} com 12 observações e 3 variáveis, em que
@@ -49,8 +49,7 @@ NULL
#'
#' }
#' @keywords DBC
-#' @source Vieira, S. (1999). Estatística experimental (2th ed.). São
-#' Paulo, SP: Atlas. (Exercício 7.5, pág. 85).
+#' @source VIEIRA (1999), Exercício 7.5, pág. 85.
#' @examples
#'
#' library(lattice)
@@ -67,7 +66,8 @@ NULL
NULL
#' @name VieiraEx8.3
-#' @title Experimento Em Blocos Casualizados Com Repeti\enc{çõ}{co}es Nos Blocos
+#' @title Experimento Em Blocos Casualizados Com Repeti\enc{çõ}{co}es
+#' Nos Blocos
#' @description Dados de um experimento em delineamento em blocos
#' casualizados com repetições dos tratamentos dentro dos blocos.
#' @format Um \code{data.frame} com 24 observações e 3 variáveis, em que
@@ -85,8 +85,7 @@ NULL
#'
#' }
#' @keywords DBC
-#' @source Vieira, S. (1999). Estatística experimental (2th ed.).
-#' São Paulo, SP: Atlas. (Exercício 8.3, pág. 102).
+#' @source VIEIRA (1999), Exercício 8.3, pág. 102.
#' @examples
#'
#' library(lattice)
@@ -117,8 +116,7 @@ NULL
#'
#' }
#' @keywords DIC
-#' @source Vieira, S. (1999). Estatística experimental (2th ed.). São
-#' Paulo, SP: Atlas. (pág. 50, exercício 2).
+#' @source VIEIRA (1999), pág. 50, exercício 2.
#' @examples
#'
#' data(VieiraPg50.1)
@@ -152,8 +150,7 @@ NULL
#'
#' }
#' @keywords DIC
-#' @source Vieira, S. (1999). Estatística experimental (2th ed.). São
-#' Paulo, SP: Atlas. (pág. 50, Exercício 4).
+#' @source VIEIRA (1999), pág. 50, Exercício 4.
#' @examples
#'
#' data(VieiraPg50.2)
@@ -186,8 +183,7 @@ NULL
#'
#' }
#' @keywords DBC
-#' @source Vieira, S. (1999). Estatística experimental (2th ed.). São
-#' Paulo, SP: Atlas. (pág. 57, exercício 3).
+#' @source VIEIRA (1999), pág. 57, exercício 3 .
#' @examples
#'
#' data(VieiraPg57.1)
@@ -219,8 +215,7 @@ NULL
#'
#' }
#' @keywords DBC
-#' @source Vieira, S. (1999). Estatística experimental (2th ed.). São
-#' Paulo, SP: Atlas. (pág. 57, exercício 4).
+#' @source VIEIRA (1999), pág. 57, exercício 4 .
#' @examples
#'
#' data(VieiraPg57.2)
@@ -252,8 +247,7 @@ NULL
#'
#' }
#' @keywords DIC
-#' @source Vieira, S. (1999). Estatística experimental (2th ed.). São
-#' Paulo, SP: Atlas. (pág 44, tabela 4.1).
+#' @source VIEIRA (1999), pág 44, tabela 4.1.
#' @examples
#'
#' data(VieiraTb4.1)
@@ -285,8 +279,7 @@ NULL
#'
#' }
#' @keywords DBC
-#' @source Vieira, S. (1999). Estatística experimental (2th ed.). São
-#' Paulo, SP: Atlas. (pág. 53, tabela 5.3).
+#' @source VIEIRA (1999), pág. 53, tabela 5.3 .
#' @examples
#'
#' data(VieiraTb5.3)
@@ -303,7 +296,8 @@ NULL
NULL
#' @name VieiraTb7.2
-#' @title N\enc{ú}{u}meros de Ovos de Poedeiras em Fun\enc{çã}{ca}o do Estilo Musical
+#' @title N\enc{ú}{u}meros de Ovos de Poedeiras em Fun\enc{çã}{ca}o do
+#' Estilo Musical
#' @description Dados que refere-se ao número de ovos por poedeira 35
#' dias após o início do experimento em função do estilo musical do
#' som ambiente: música sertaneja (a), música clássica (b) e música
@@ -320,8 +314,7 @@ NULL
#'
#' }
#' @keywords DIC
-#' @source Vieira, S. (1999). Estatística experimental (2th ed.).
-#' São Paulo, SP: Atlas. (Tabela 7.2, pág. 74).
+#' @source VIEIRA (1999), Tabela 7.2, pág. 74 .
#' @examples
#'
#' data(VieiraTb7.2)
@@ -336,7 +329,8 @@ NULL
NULL
#' @name VieiraTb7.7
-#' @title Teste Sobre Conhecimento em Fun\enc{çã}{ca}o da Fonte de Informa\enc{çã}{ca}o
+#' @title Teste Sobre Conhecimento em Fun\enc{çã}{ca}o da Fonte de
+#' Informa\enc{çã}{ca}o
#' @description Dados referentes às notas dos alunos em um teste de
#' conhecimento segundo a fonte de informação (tratamento).
#' @format Um \code{data.frame} com 24 observações e 3 variáveis, em que
@@ -354,8 +348,7 @@ NULL
#'
#' }
#' @keywords DBC
-#' @source Vieira, S. (1999). Estatística experimental (2th ed.).
-#' São Paulo, SP: Atlas. (Tabela 7.7, pág. 81; Tabela 8.2, pág. 94).
+#' @source VIEIRA (1999), Tabela 7.7, pág. 81; Tabela 8.2, pág. 94 .
#' @examples
#'
#' library(lattice)
@@ -371,7 +364,8 @@ NULL
NULL
#' @name VieiraTb8.5
-#' @title N\enc{ú}{u}mero de Itens Produzidos Em Fun\enc{çã}{ca}o do Tipo de M\enc{á}{a}quina
+#' @title N\enc{ú}{u}mero de Itens Produzidos Em Fun\enc{çã}{ca}o do
+#' Tipo de M\enc{á}{a}quina
#' @description Os dados advém de um experimento no qual foram
#' comparados cinco tipos de máquinas, operadas por três diferentes
#' operadores (blocos). O objetivo era verificar a suspeita de que
@@ -397,8 +391,7 @@ NULL
#'
#' }
#' @keywords DBC
-#' @source Vieira, S. (1999). Estatística experimental (2th ed.).
-#' São Paulo, SP: Atlas. (Tabela 8.5, pág. 98).
+#' @source VIEIRA (1999), Tabela 8.5, pág. 98 .
#' @examples
#'
#' library(lattice)
@@ -414,4 +407,3 @@ NULL
#' xlab = "Tipo de máquina")
#'
NULL
-