diff --git a/.RData b/.RData
deleted file mode 100644
index c940558e097d603f28c638cc110ba7d2279254c9..0000000000000000000000000000000000000000
Binary files a/.RData and /dev/null differ
diff --git a/R/CamposEx2.1.6.3.R b/R/CamposEx2.1.6.3.R
deleted file mode 100644
index 0d7e94504299b9ced67be35c613375ff04cc6c15..0000000000000000000000000000000000000000
--- a/R/CamposEx2.1.6.3.R
+++ /dev/null
@@ -1,25 +0,0 @@
-#' @name CamposEx2.1.6.3
-#' @title Dados Fictícios para Distribuicão de Poisson.
-#' @description Estudo de dados através da distribuicão de Poisson.
-#' @format Um \code{data.frame} com 6 observações e 2 variáveis, em que
-#'      
-#'
-#' \describe{
-#'
-#' \item{\code{Xi}}{ Valor de uma variável generica. }
-#'
-#' \item{\code{fi}}{ Frequência de Xi. }
-#'
-#' }
-#' @keywords  TODO
-#' @source DE CAMPOS; HUMBERTO (1983), Exemplos 2.3.6.3, pág. 51.
-#' @examples
-#' library(lattice)
-#' data(CamposEx2.1.6.3)
-#' str(CamposEx2.1.6.3)
-#' media <- 1.2
-#' fx <- round( dpois(CamposEx2.1.6.3$Xi,
-#' media),
-#' digits = 4)
-
-NULL
diff --git a/R/CamposEx2.3.6.3.R b/R/CamposEx2.3.6.3.R
new file mode 100644
index 0000000000000000000000000000000000000000..dc6004356d6f46de76bd6031a34caabc816a7ede
--- /dev/null
+++ b/R/CamposEx2.3.6.3.R
@@ -0,0 +1,34 @@
+#' @name CamposEx2.3.6.3
+#' @title Dados Fictícios para Distribuicão de Poisson.
+#' @description Verificar se os dados seguem uma distribuicão de
+#'     Poisson.
+#' @format Um \code{data.frame} com 6 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{Xi}}{ Valor de uma variável genérica. }
+#'
+#' \item{\code{fi}}{ Frequência de Xi. }
+#'
+#' }
+#' @keywords NP
+#' @source CAMPOS (1983), Exemplo 3, seção 2.3.6, pág. 51.
+#' @examples
+#'
+#' data(CamposEx2.3.6.3)
+#' # Tamanho da amostra
+#' n <- sum(CamposEx2.3.6.3$fi)
+#' # Função de distribuição acumulada considerando Poisson(1.2)
+#' FXi <- cumsum(dpois(CamposEx2.3.6.3$Xi, lambda = 1.2))
+#' # Função empírica de distribuição
+#' SXi <- cumsum(CamposEx2.3.6.3$fi)/n
+#' # Distâncias (absolutas) entre FXi e SXi
+#' FXi_SXi <- abs(FXi - SXi)
+#' # Tabela completa
+#' cbind(CamposEx2.3.6.3, FXi, SXi, FXi_SXi)
+#' # Calcula D
+#' D <- max(FXi_SXi)
+#' # Não existe forma fechada para calcular o p-valor, por isso o D deve
+#' # ser comparado com valores tabelados
+#'
+NULL
diff --git a/R/CamposEx2.1.6.4.R b/R/CamposEx2.3.6.4.R
similarity index 53%
rename from R/CamposEx2.1.6.4.R
rename to R/CamposEx2.3.6.4.R
index 77f762844e8486140f8e01dd1e4498cc5eaeb053..6fb97cc840656fb650c95cf40f50b6a6a30fc71d 100644
--- a/R/CamposEx2.1.6.4.R
+++ b/R/CamposEx2.3.6.4.R
@@ -1,9 +1,11 @@
-#' @name CamposEx2.1.6.4
-#' @title Produção de 50 Experimentos Fatoriais 3^3 de Adubação de Milho.
-#' @description Produção de 50 experimentos fatoriais 3^3 de adubação de milho, realizados 
-#'  em Ribeirão Preto, Estado de São Paulo, pelo Dr. Hermano Vaz de Arruda, Pesquisador-Chefe
-#'  do Instituto Biológico do Estado de São Paulo, e que foram reunidos em cinco grupos de dez 
-#'  experimentos cada.
+#' @name CamposEx2.3.6.4
+#' @title Produção de 50 Experimentos Fatoriais 3^3 de Adubação de
+#'     Milho.
+#' @description Produção de 50 experimentos fatoriais 3^3 de adubação de
+#'     milho, realizados em Ribeirão Preto, Estado de São Paulo, pelo
+#'     Dr. Hermano Vaz de Arruda, Pesquisador-Chefe do Instituto
+#'     Biológico do Estado de São Paulo, e que foram reunidos em cinco
+#'     grupos de dez experimentos cada.
 #' @format Um \code{data.frame} com 27 observações e 5 variáveis, em
 #'      que
 #'
@@ -20,14 +22,12 @@
 #' \item{\code{Grupo5}}{ Produção média de milho no Grupo 5 }
 #'
 #' }
-#' @keywords  TODO
-#' @source DE CAMPOS; HUMBERTO (1983), Exemplos 2.3.6.4, pág. 53.
+#' @keywords NP
+#' @source CAMPOS (1983), Exemplo 4, seção 2.3.6, pág. 53.
 #' @examples
-#' library(lattice)
-#' data(CamposEx2.1.6.4)
-#' str(CamposEx2.1.6.4)
-#' Dados <- stack(CamposEx2.1.6.4)
-#' mean(Dados$values)
-#' var(Dados$values)
-#' 
+#'
+#' data(CamposEx2.3.6.4)
+#' str(CamposEx2.3.6.4)
+#' boxplot(values ~ ind, data = stack(CamposEx2.3.6.4))
+#'
 NULL
diff --git a/data-raw/CamposEx2.1.6.3.txt b/data-raw/CamposEx2.3.6.3.txt
similarity index 100%
rename from data-raw/CamposEx2.1.6.3.txt
rename to data-raw/CamposEx2.3.6.3.txt
diff --git a/data-raw/CamposEx2.1.6.4.txt b/data-raw/CamposEx2.3.6.4.txt
similarity index 100%
rename from data-raw/CamposEx2.1.6.4.txt
rename to data-raw/CamposEx2.3.6.4.txt
diff --git a/data/CamposEx2.1.6.3.rda b/data/CamposEx2.1.6.3.rda
deleted file mode 100644
index 7fab722cdf3d1137f5e6dea0ee2957d7df8ddff1..0000000000000000000000000000000000000000
Binary files a/data/CamposEx2.1.6.3.rda and /dev/null differ
diff --git a/data/CamposEx2.1.6.4.rda b/data/CamposEx2.1.6.4.rda
deleted file mode 100644
index 3c44b668303e5564f1baf7ee04eefd84f774094b..0000000000000000000000000000000000000000
Binary files a/data/CamposEx2.1.6.4.rda and /dev/null differ
diff --git a/data/CamposEx2.3.6.3.rda b/data/CamposEx2.3.6.3.rda
new file mode 100644
index 0000000000000000000000000000000000000000..c0d1c5c041f1e5127bb3b2f061f51e37182f8681
Binary files /dev/null and b/data/CamposEx2.3.6.3.rda differ
diff --git a/data/CamposEx2.3.6.4.rda b/data/CamposEx2.3.6.4.rda
new file mode 100644
index 0000000000000000000000000000000000000000..6f86f06c6e6e73a6363fecc9de7732dd76736a1e
Binary files /dev/null and b/data/CamposEx2.3.6.4.rda differ
diff --git a/man/CamposEx2.1.6.3.Rd b/man/CamposEx2.1.6.3.Rd
deleted file mode 100644
index 3f50d5390a0b8030be211469635de361cc52b7e5..0000000000000000000000000000000000000000
--- a/man/CamposEx2.1.6.3.Rd
+++ /dev/null
@@ -1,32 +0,0 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/CamposEx2.1.6.3.R
-\name{CamposEx2.1.6.3}
-\alias{CamposEx2.1.6.3}
-\title{Dados Fictícios para Distribuicão de Poisson.}
-\format{Um \code{data.frame} com 6 observações e 2 variáveis, em que
-     
-
-\describe{
-
-\item{\code{Xi}}{ Valor de uma variável generica. }
-
-\item{\code{fi}}{ Frequência de Xi. }
-
-}}
-\source{
-DE CAMPOS; HUMBERTO (1983), Exemplos 2.3.6.3, pág. 51.
-}
-\description{
-Estudo de dados através da distribuicão de Poisson.
-}
-\examples{
-library(lattice)
-data(CamposEx2.1.6.3)
-str(CamposEx2.1.6.3)
-media <- 1.2
-fx <- round( dpois(CamposEx2.1.6.3$Xi,
-media),
-digits = 4)
-}
-\keyword{TODO}
-
diff --git a/man/CamposEx2.1.6.4.Rd b/man/CamposEx2.1.6.4.Rd
deleted file mode 100644
index f21f3fd827e7d336d49d3e651c5ec9f07be3b30f..0000000000000000000000000000000000000000
--- a/man/CamposEx2.1.6.4.Rd
+++ /dev/null
@@ -1,41 +0,0 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/CamposEx2.1.6.4.R
-\name{CamposEx2.1.6.4}
-\alias{CamposEx2.1.6.4}
-\title{Produção de 50 Experimentos Fatoriais 3^3 de Adubação de Milho.}
-\format{Um \code{data.frame} com 27 observações e 5 variáveis, em
-     que
-
-\describe{
-
-\item{\code{Grupo1}}{ Produção média de milho no Grupo 1 }
-
-\item{\code{Grupo2}}{ Produção média de milho no Grupo 2 }
-
-\item{\code{Grupo3}}{ Produção média de milho no Grupo 3 }
-
-\item{\code{Grupo4}}{ Produção média de milho no Grupo 4 }
-
-\item{\code{Grupo5}}{ Produção média de milho no Grupo 5 }
-
-}}
-\source{
-DE CAMPOS; HUMBERTO (1983), Exemplos 2.3.6.4, pág. 53.
-}
-\description{
-Produção de 50 experimentos fatoriais 3^3 de adubação de milho, realizados 
- em Ribeirão Preto, Estado de São Paulo, pelo Dr. Hermano Vaz de Arruda, Pesquisador-Chefe
- do Instituto Biológico do Estado de São Paulo, e que foram reunidos em cinco grupos de dez 
- experimentos cada.
-}
-\examples{
-library(lattice)
-data(CamposEx2.1.6.4)
-str(CamposEx2.1.6.4)
-Dados <- stack(CamposEx2.1.6.4)
-mean(Dados$values)
-var(Dados$values)
-
-}
-\keyword{TODO}
-
diff --git a/man/CamposEx2.3.6.3.Rd b/man/CamposEx2.3.6.3.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..ca22b5bfab8989c1fc27107b833ae8394f35ca79
--- /dev/null
+++ b/man/CamposEx2.3.6.3.Rd
@@ -0,0 +1,42 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/CamposEx2.3.6.3.R
+\name{CamposEx2.3.6.3}
+\alias{CamposEx2.3.6.3}
+\title{Dados Fictícios para Distribuicão de Poisson.}
+\format{Um \code{data.frame} com 6 observações e 2 variáveis, em que
+
+\describe{
+
+\item{\code{Xi}}{ Valor de uma variável genérica. }
+
+\item{\code{fi}}{ Frequência de Xi. }
+
+}}
+\source{
+CAMPOS (1983), Exemplo 3, seção 2.3.6, pág. 51.
+}
+\description{
+Verificar se os dados seguem uma distribuicão de
+    Poisson.
+}
+\examples{
+
+data(CamposEx2.3.6.3)
+# Tamanho da amostra
+n <- sum(CamposEx2.3.6.3$fi)
+# Função de distribuição acumulada considerando Poisson(1.2)
+FXi <- cumsum(dpois(CamposEx2.3.6.3$Xi, lambda = 1.2))
+# Função empírica de distribuição
+SXi <- cumsum(CamposEx2.3.6.3$fi)/n
+# Distâncias (absolutas) entre FXi e SXi
+FXi_SXi <- abs(FXi - SXi)
+# Tabela completa
+cbind(CamposEx2.3.6.3, FXi, SXi, FXi_SXi)
+# Calcula D
+D <- max(FXi_SXi)
+# Não existe forma fechada para calcular o p-valor, por isso o D deve
+# ser comparado com valores tabelados
+
+}
+\keyword{NP}
+
diff --git a/man/CamposEx2.3.6.4.Rd b/man/CamposEx2.3.6.4.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..ef4b7004f703894b63edbe0093140951db8a314a
--- /dev/null
+++ b/man/CamposEx2.3.6.4.Rd
@@ -0,0 +1,41 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/CamposEx2.3.6.4.R
+\name{CamposEx2.3.6.4}
+\alias{CamposEx2.3.6.4}
+\title{Produção de 50 Experimentos Fatoriais 3^3 de Adubação de
+    Milho.}
+\format{Um \code{data.frame} com 27 observações e 5 variáveis, em
+     que
+
+\describe{
+
+\item{\code{Grupo1}}{ Produção média de milho no Grupo 1 }
+
+\item{\code{Grupo2}}{ Produção média de milho no Grupo 2 }
+
+\item{\code{Grupo3}}{ Produção média de milho no Grupo 3 }
+
+\item{\code{Grupo4}}{ Produção média de milho no Grupo 4 }
+
+\item{\code{Grupo5}}{ Produção média de milho no Grupo 5 }
+
+}}
+\source{
+CAMPOS (1983), Exemplo 4, seção 2.3.6, pág. 53.
+}
+\description{
+Produção de 50 experimentos fatoriais 3^3 de adubação de
+    milho, realizados em Ribeirão Preto, Estado de São Paulo, pelo
+    Dr. Hermano Vaz de Arruda, Pesquisador-Chefe do Instituto
+    Biológico do Estado de São Paulo, e que foram reunidos em cinco
+    grupos de dez experimentos cada.
+}
+\examples{
+
+data(CamposEx2.3.6.4)
+str(CamposEx2.3.6.4)
+boxplot(values ~ ind, data = stack(CamposEx2.3.6.4))
+
+}
+\keyword{NP}
+