Altera dados e corrige documentação

R/CamposEx2.5.1.R

 #' @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

data-raw/CamposEx2.5.1.txt

-Xi
 -1.3
 0.4
 0.8

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}