diff --git a/R/CamposEx2.5.1.R b/R/CamposEx2.5.1.R
index 29b8086663dbc66253955da69a829dd8d6b77677..2f803e0abaa17a482b909ea98efaa56a5aac327c 100644
--- a/R/CamposEx2.5.1.R
+++ b/R/CamposEx2.5.1.R
@@ -1,29 +1,12 @@
 #' @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.
+#' @format Um vetor com 8 observações.
+#' @keywords NP
+#' @source CAMPOS (1983), Exemplo 1, seção 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.5.1.txt b/data-raw/CamposEx2.5.1.txt
index 8e0c266ec94534c275295b6cadddafe89577567e..43530b2a3ba1840b6b86c01dabfc26ac81319586 100644
--- a/data-raw/CamposEx2.5.1.txt
+++ b/data-raw/CamposEx2.5.1.txt
@@ -1,4 +1,3 @@
-Xi
 -1.3
 0.4
 0.8
diff --git a/data/CamposEx2.5.1.rda b/data/CamposEx2.5.1.rda
index ca59c38eaac073d56735c2efdec8af9ec6ad503a..34f910d37bd530bc2768abd8961846b9a8c74488 100644
Binary files a/data/CamposEx2.5.1.rda and b/data/CamposEx2.5.1.rda differ
diff --git a/man/CamposEx2.5.1.Rd b/man/CamposEx2.5.1.Rd
index 3b4c09c3e31fae07d774e0cd17ab48159bc799bb..96897dac24d7bc7b579f5d05b39e6fc86618983f 100644
--- a/man/CamposEx2.5.1.Rd
+++ b/man/CamposEx2.5.1.Rd
@@ -3,35 +3,18 @@
 \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. }
-
-}}
+\format{Um vetor com 8 observações.}
 \source{
-DE CAMPOS; HUMBERTO (1983), Exemplos 2.5.1, pág. 60.
+CAMPOS (1983), Exemplo 1, seção 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}
+\keyword{NP}