From 60337764192b982c1146d0187ffdf9493b32499f Mon Sep 17 00:00:00 2001
From: Fernando Mayer <fernandomayer@gmail.com>
Date: Fri, 16 Dec 2016 17:01:50 -0200
Subject: [PATCH] =?UTF-8?q?Altera=20dados=20e=20corrige=20documenta=C3=A7?=
 =?UTF-8?q?=C3=A3o?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 R/CamposEx2.5.1.R          |  27 +++++----------------------
 data-raw/CamposEx2.5.1.txt |   1 -
 data/CamposEx2.5.1.rda     | Bin 201 -> 139 bytes
 man/CamposEx2.5.1.Rd       |  23 +++--------------------
 4 files changed, 8 insertions(+), 43 deletions(-)

diff --git a/R/CamposEx2.5.1.R b/R/CamposEx2.5.1.R
index 29b80866..2f803e0a 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 8e0c266e..43530b2a 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
GIT binary patch
literal 139
zcmV;60CfLCT4*^jL0KkKSrTmuq5uFS|F8XXK>z>&Isnc95I`XU$Up!v004jn03ZM$
z1PLGjbRi=^8UO%f)5<apLrB5^4FCp!Lekbs^%w;OpfKQW9to)#)^N0>&N#}_AaLSz
t4V+w?3X~vpSwB`Y0RZ7~G|11OAD!46Kz({a!1Nd5?ntK!5&})3R6sJ@F5CbB

literal 201
zcmV;)05<<ZT4*^jL0KkKS!4WFFaQ8p|L^~ENdN!=Isnc95I`>{+`vEp05AXmfCc~{
z03ZZOpa7B$Bx+$a#AwJcCP9ruYJRBNfhnqK4H>8a2AT~T0i!@Y@Ul_IBv21U3e*R`
zy`C|KdZ&bDBt^v-$(s1dfTXB!IIl*OIEX_u$O-j8<ifC~hkZLD@gXrgP9z|y!inp>
z!!?CvmJh6{AQk01xGr!TeB*)zcM~3vgPQPPb5Qx<5wRmM&&@0}5&T`r6yZWakMUH%
D*1S<L

diff --git a/man/CamposEx2.5.1.Rd b/man/CamposEx2.5.1.Rd
index 3b4c09c3..96897dac 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}
 
-- 
GitLab