diff --git a/.RData b/.RData
new file mode 100644
index 0000000000000000000000000000000000000000..c940558e097d603f28c638cc110ba7d2279254c9
Binary files /dev/null and b/.RData differ
diff --git a/R/CamposEx2.1.6.2.R b/R/CamposEx2.1.6.2.R
new file mode 100644
index 0000000000000000000000000000000000000000..79c198b7b735dc32fdb181e893669d0f6ac8abea
--- /dev/null
+++ b/R/CamposEx2.1.6.2.R
@@ -0,0 +1,21 @@
+#' @name CamposEx2.1.6.2
+#' @title Ensaio com Bananeiras
+#' @description Ensaio com bananeiras, realizado pelo Dr. Jairo Ribeiro de Mattos, da E.S.A.
+#' "Luiz de Queiroz", em Piracicaba, SP, obtendo o peso médio em Kg por cacho de banana.
+#' @format Um \code{data.frame} com 25 observações e 1 variáveis, em  que
+#'
+#' \describe{
+#'
+#' \item{\code{peso}}{Peso médio em (Kg) por cacho de banana.}
+#'
+#' }
+#' @keywords AAS
+#' @source DE CAMPOS; HUMBERTO (1983), Exemplos 2.3.6.2, pág. 47.
+#' @examples
+#' library(lattice)
+#' 
+#' data(CamposEx2.1.6.2)
+#' CamposEx2.1.6.2$Fx <-  round(
+#' pnorm(CamposEx2.1.6.2$peso, mean = 20, sd = sqrt(5.25))
+#' , digits = 3)
+NULL
diff --git a/R/CamposEx2.1.6.3.R b/R/CamposEx2.1.6.3.R
new file mode 100644
index 0000000000000000000000000000000000000000..0d7e94504299b9ced67be35c613375ff04cc6c15
--- /dev/null
+++ b/R/CamposEx2.1.6.3.R
@@ -0,0 +1,25 @@
+#' @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.1.6.4.R b/R/CamposEx2.1.6.4.R
new file mode 100644
index 0000000000000000000000000000000000000000..77f762844e8486140f8e01dd1e4498cc5eaeb053
--- /dev/null
+++ b/R/CamposEx2.1.6.4.R
@@ -0,0 +1,33 @@
+#' @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.
+#' @format Um \code{data.frame} com 27 observações e 5 variáveis, em
+#'      que
+#'
+#' \describe{
+#'
+#' \item{\code{Grupo1}}{ Produção média de milho no Grupo 1 }
+#'
+#' \item{\code{Grupo2}}{ Produção média de milho no Grupo 2 }
+#'
+#' \item{\code{Grupo3}}{ Produção média de milho no Grupo 3 }
+#'
+#' \item{\code{Grupo4}}{ Produção média de milho no Grupo 4 }
+#'
+#' \item{\code{Grupo5}}{ Produção média de milho no Grupo 5 }
+#'
+#' }
+#' @keywords  TODO
+#' @source DE CAMPOS; HUMBERTO (1983), Exemplos 2.3.6.4, 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)
+#' 
+NULL
diff --git a/R/CamposEx2.5.1.R b/R/CamposEx2.5.1.R
new file mode 100644
index 0000000000000000000000000000000000000000..29b8086663dbc66253955da69a829dd8d6b77677
--- /dev/null
+++ b/R/CamposEx2.5.1.R
@@ -0,0 +1,29 @@
+#' @name CamposEx2.5.1
+#' @title Dados Genericos para Teste de Cram\enc{é}{e}r Von Mises.
+#' @description Estudo de dados genericos através do Teste de Cramér-von Mises
+#' @format Um \code{data.frame} com 8 observações e 1 variáveis, em que
+#'      
+#'
+#' \describe{
+#'
+#' \item{\code{Xi}}{ Valor de uma variável generica. }
+#'
+#' }
+#' @keywords  TODO
+#' @source DE CAMPOS; HUMBERTO (1983), Exemplos 2.5.1, pág. 60.
+#' @examples
+#' library(lattice)
+#' 
+#' data(CamposEx2.5.1)
+#' 
+#' str(CamposEx2.5.1)
+#' 
+#' #Função para calcular a Função de Distribuição.
+#' 
+#' fx <- function(x) {
+#' ifelse (x < 0, 0, ifelse (x > 4, 1, ( (x ^ 2) + x) / 20) )
+#' }
+#' 
+#' #Apricando a Função de Distribuição.
+#' CamposEx2.5.1$Fx <- round( fx(CamposEx2.5.1$Xi) , digits = 3)  
+NULL
diff --git a/data-raw/CamposEx2.1.6.2.txt b/data-raw/CamposEx2.1.6.2.txt
new file mode 100644
index 0000000000000000000000000000000000000000..598facf252c4e3cc2118d073eea0b4e619577895
--- /dev/null
+++ b/data-raw/CamposEx2.1.6.2.txt
@@ -0,0 +1,26 @@
+peso
+13.9
+17.7
+17.9
+18.3
+18.5
+18.9
+19.4
+19.8
+20.2
+20.6
+21.1
+21.3
+21.7
+21.9
+22
+22.2
+22.7
+22.8
+23.2
+23.3
+23.4
+23.8
+24.4
+24.4
+24.9
diff --git a/data-raw/CamposEx2.1.6.3.txt b/data-raw/CamposEx2.1.6.3.txt
new file mode 100644
index 0000000000000000000000000000000000000000..0081b6ce819d6b92c1ce0a095870249ca665dcee
--- /dev/null
+++ b/data-raw/CamposEx2.1.6.3.txt
@@ -0,0 +1,7 @@
+Xi	fi
+0	15
+1	25
+2	10
+3	5
+4	4
+5	1
diff --git a/data-raw/CamposEx2.1.6.4.txt b/data-raw/CamposEx2.1.6.4.txt
new file mode 100644
index 0000000000000000000000000000000000000000..630b50da78b4758f808286ce9514bfdff7033db7
--- /dev/null
+++ b/data-raw/CamposEx2.1.6.4.txt
@@ -0,0 +1,28 @@
+Grupo1	Grupo2	Grupo3	Grupo4	Grupo5
+3725	3698	3825	4118	2990
+4032	3400	4261	4268	3268
+4300	3962	4092	4375	3361
+4096	4376	3794	4665	3658
+4635	4286	4367	4558	3640
+4304	3748	4448	4568	3314
+4085	4386	3548	4350	3580
+4723	4152	4170	4892	3701
+4416	4084	4918	4828	3588
+4421	4856	4855	5042	4488
+4674	5016	5130	5078	4440
+4508	4722	5293	5068	4454
+4656	5238	4888	4745	4432
+5278	4757	5170	5110	4517
+4960	5056	5136	5165	4456
+5044	5458	5012	5378	4650
+5040	5498	5648	5258	4738
+4826	5220	5239	5208	4975
+4912	5432	5158	5600	4672
+5188	5252	5274	5358	5010
+5026	4928	5505	6058	4926
+5321	5682	5246	4975	4782
+5533	5239	5532	6148	5070
+5625	5373	5584	5960	4956
+5480	5863	5615	5272	5167
+5526	5435	5827	6055	5090
+5176	5846	5625	5728	5540
diff --git a/data-raw/CamposEx2.5.1.txt b/data-raw/CamposEx2.5.1.txt
new file mode 100644
index 0000000000000000000000000000000000000000..8e0c266ec94534c275295b6cadddafe89577567e
--- /dev/null
+++ b/data-raw/CamposEx2.5.1.txt
@@ -0,0 +1,9 @@
+Xi
+-1.3
+0.4
+0.8
+2.8
+1.7
+3.3
+5.6
+4.2
diff --git a/data/CamposEx2.1.6.2.rda b/data/CamposEx2.1.6.2.rda
new file mode 100644
index 0000000000000000000000000000000000000000..fa71e987e938470826b4e6110bce088c6d257e8c
Binary files /dev/null and b/data/CamposEx2.1.6.2.rda differ
diff --git a/data/CamposEx2.1.6.3.rda b/data/CamposEx2.1.6.3.rda
new file mode 100644
index 0000000000000000000000000000000000000000..7fab722cdf3d1137f5e6dea0ee2957d7df8ddff1
Binary files /dev/null and b/data/CamposEx2.1.6.3.rda differ
diff --git a/data/CamposEx2.1.6.4.rda b/data/CamposEx2.1.6.4.rda
new file mode 100644
index 0000000000000000000000000000000000000000..3c44b668303e5564f1baf7ee04eefd84f774094b
Binary files /dev/null and b/data/CamposEx2.1.6.4.rda differ
diff --git a/data/CamposEx2.5.1.rda b/data/CamposEx2.5.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..ca59c38eaac073d56735c2efdec8af9ec6ad503a
Binary files /dev/null and b/data/CamposEx2.5.1.rda differ
diff --git a/man/CamposEx2.1.6.2.Rd b/man/CamposEx2.1.6.2.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..6f63706f4e150db71e54c43b00c3cab65872b9e1
--- /dev/null
+++ b/man/CamposEx2.1.6.2.Rd
@@ -0,0 +1,29 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/CamposEx2.1.6.2.R
+\name{CamposEx2.1.6.2}
+\alias{CamposEx2.1.6.2}
+\title{Ensaio com Bananeiras}
+\format{Um \code{data.frame} com 25 observações e 1 variáveis, em  que
+
+\describe{
+
+\item{\code{peso}}{Peso médio em (Kg) por cacho de banana.}
+
+}}
+\source{
+DE CAMPOS; HUMBERTO (1983), Exemplos 2.3.6.2, pág. 47.
+}
+\description{
+Ensaio com bananeiras, realizado pelo Dr. Jairo Ribeiro de Mattos, da E.S.A.
+"Luiz de Queiroz", em Piracicaba, SP, obtendo o peso médio em Kg por cacho de banana.
+}
+\examples{
+library(lattice)
+
+data(CamposEx2.1.6.2)
+CamposEx2.1.6.2$Fx <-  round(
+pnorm(CamposEx2.1.6.2$peso, mean = 20, sd = sqrt(5.25))
+, digits = 3)
+}
+\keyword{AAS}
+
diff --git a/man/CamposEx2.1.6.3.Rd b/man/CamposEx2.1.6.3.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..3f50d5390a0b8030be211469635de361cc52b7e5
--- /dev/null
+++ b/man/CamposEx2.1.6.3.Rd
@@ -0,0 +1,32 @@
+% 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
new file mode 100644
index 0000000000000000000000000000000000000000..f21f3fd827e7d336d49d3e651c5ec9f07be3b30f
--- /dev/null
+++ b/man/CamposEx2.1.6.4.Rd
@@ -0,0 +1,41 @@
+% 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.5.1.Rd b/man/CamposEx2.5.1.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..3b4c09c3e31fae07d774e0cd17ab48159bc799bb
--- /dev/null
+++ b/man/CamposEx2.5.1.Rd
@@ -0,0 +1,37 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/CamposEx2.5.1.R
+\name{CamposEx2.5.1}
+\alias{CamposEx2.5.1}
+\title{Dados Genericos para Teste de Cram\enc{é}{e}r Von Mises.}
+\format{Um \code{data.frame} com 8 observações e 1 variáveis, em que
+     
+
+\describe{
+
+\item{\code{Xi}}{ Valor de uma variável generica. }
+
+}}
+\source{
+DE CAMPOS; HUMBERTO (1983), Exemplos 2.5.1, pág. 60.
+}
+\description{
+Estudo de dados genericos através do Teste de Cramér-von Mises
+}
+\examples{
+library(lattice)
+
+data(CamposEx2.5.1)
+
+str(CamposEx2.5.1)
+
+#Função para calcular a Função de Distribuição.
+
+fx <- function(x) {
+ifelse (x < 0, 0, ifelse (x > 4, 1, ( (x ^ 2) + x) / 20) )
+}
+
+#Apricando a Função de Distribuição.
+CamposEx2.5.1$Fx <- round( fx(CamposEx2.5.1$Xi) , digits = 3)  
+}
+\keyword{TODO}
+