Altera nomes de arquivos e arruma exemplos

R/CamposEx2.1.6.3.R

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

R/CamposEx2.3.6.3.R

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

R/CamposEx2.1.6.4.R → R/CamposEx2.3.6.4.R

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

man/CamposEx2.1.6.3.Rd

-% 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}
-

man/CamposEx2.3.6.3.Rd

+% 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}
+

man/CamposEx2.1.6.4.Rd → man/CamposEx2.3.6.4.Rd

 % 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.}
+% 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
 
@@ -20,22 +21,21 @@
 
 }}
 \source{
-DE CAMPOS; HUMBERTO (1983), Exemplos 2.3.6.4, pág. 53.
+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.
+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)
+
+data(CamposEx2.3.6.4)
+str(CamposEx2.3.6.4)
+boxplot(values ~ ind, data = stack(CamposEx2.3.6.4))
 
 }
-\keyword{TODO}
+\keyword{NP}