diff --git a/R/CamposEx2.3.6.2.R b/R/CamposEx2.3.6.2.R new file mode 100644 index 0000000000000000000000000000000000000000..6e263cc045f1aed875e85dc431fa7f951ffe68b8 --- /dev/null +++ b/R/CamposEx2.3.6.2.R @@ -0,0 +1,14 @@ +#' @name CamposEx2.3.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 vetor com 25 observações. +#' @keywords NP +#' @source CAMPOS (1983), Exemplo 2, seção 2.3.6, pág. 47. +#' @examples +#' +#' data(CamposEx2.3.6.2) +#' ks.test(CamposEx2.3.6.2, "pnorm", mean = 20, sd = sqrt(5.25)) +#' +NULL diff --git a/R/CamposEx2.3.6.3.R b/R/CamposEx2.3.6.3.R new file mode 100644 index 0000000000000000000000000000000000000000..dc6004356d6f46de76bd6031a34caabc816a7ede --- /dev/null +++ b/R/CamposEx2.3.6.3.R @@ -0,0 +1,34 @@ +#' @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 diff --git a/R/CamposEx2.3.6.4.R b/R/CamposEx2.3.6.4.R new file mode 100644 index 0000000000000000000000000000000000000000..6fb97cc840656fb650c95cf40f50b6a6a30fc71d --- /dev/null +++ b/R/CamposEx2.3.6.4.R @@ -0,0 +1,33 @@ +#' @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 +#' +#' \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 NP +#' @source CAMPOS (1983), Exemplo 4, seção 2.3.6, pág. 53. +#' @examples +#' +#' data(CamposEx2.3.6.4) +#' str(CamposEx2.3.6.4) +#' boxplot(values ~ ind, data = stack(CamposEx2.3.6.4)) +#' +NULL diff --git a/R/CamposEx2.5.1.R b/R/CamposEx2.5.1.R new file mode 100644 index 0000000000000000000000000000000000000000..2f803e0abaa17a482b909ea98efaa56a5aac327c --- /dev/null +++ b/R/CamposEx2.5.1.R @@ -0,0 +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 vetor com 8 observações. +#' @keywords NP +#' @source CAMPOS (1983), Exemplo 1, seção 2.5.1, pág. 60. +#' @examples +#' +#' data(CamposEx2.5.1) +#' str(CamposEx2.5.1) +#' +NULL diff --git a/data-raw/CamposEx2.3.6.2.txt b/data-raw/CamposEx2.3.6.2.txt new file mode 100644 index 0000000000000000000000000000000000000000..a592e32b2b1f589f171ec8926d63a686c1a6e484 --- /dev/null +++ b/data-raw/CamposEx2.3.6.2.txt @@ -0,0 +1,25 @@ +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.3.6.3.txt b/data-raw/CamposEx2.3.6.3.txt new file mode 100644 index 0000000000000000000000000000000000000000..0081b6ce819d6b92c1ce0a095870249ca665dcee --- /dev/null +++ b/data-raw/CamposEx2.3.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.3.6.4.txt b/data-raw/CamposEx2.3.6.4.txt new file mode 100644 index 0000000000000000000000000000000000000000..630b50da78b4758f808286ce9514bfdff7033db7 --- /dev/null +++ b/data-raw/CamposEx2.3.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..43530b2a3ba1840b6b86c01dabfc26ac81319586 --- /dev/null +++ b/data-raw/CamposEx2.5.1.txt @@ -0,0 +1,8 @@ +-1.3 +0.4 +0.8 +2.8 +1.7 +3.3 +5.6 +4.2 diff --git a/data/CamposEx2.3.6.2.rda b/data/CamposEx2.3.6.2.rda new file mode 100644 index 0000000000000000000000000000000000000000..9b9e9c9b1ce7ffebfcbfcbc89a5012ccfc83e013 Binary files /dev/null and b/data/CamposEx2.3.6.2.rda differ diff --git a/data/CamposEx2.3.6.3.rda b/data/CamposEx2.3.6.3.rda new file mode 100644 index 0000000000000000000000000000000000000000..c0d1c5c041f1e5127bb3b2f061f51e37182f8681 Binary files /dev/null and b/data/CamposEx2.3.6.3.rda differ diff --git a/data/CamposEx2.3.6.4.rda b/data/CamposEx2.3.6.4.rda new file mode 100644 index 0000000000000000000000000000000000000000..6f86f06c6e6e73a6363fecc9de7732dd76736a1e Binary files /dev/null and b/data/CamposEx2.3.6.4.rda differ diff --git a/data/CamposEx2.5.1.rda b/data/CamposEx2.5.1.rda new file mode 100644 index 0000000000000000000000000000000000000000..34f910d37bd530bc2768abd8961846b9a8c74488 Binary files /dev/null and b/data/CamposEx2.5.1.rda differ diff --git a/man/CamposEx2.3.6.2.Rd b/man/CamposEx2.3.6.2.Rd new file mode 100644 index 0000000000000000000000000000000000000000..e4fbaa0203a69e52c441498a96a2936860d53080 --- /dev/null +++ b/man/CamposEx2.3.6.2.Rd @@ -0,0 +1,22 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/CamposEx2.3.6.2.R +\name{CamposEx2.3.6.2} +\alias{CamposEx2.3.6.2} +\title{Ensaio com Bananeiras} +\format{Um vetor com 25 observações.} +\source{ +CAMPOS (1983), Exemplo 2, seção 2.3.6, 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{ + +data(CamposEx2.3.6.2) +ks.test(CamposEx2.3.6.2, "pnorm", mean = 20, sd = sqrt(5.25)) + +} +\keyword{NP} + diff --git a/man/CamposEx2.3.6.3.Rd b/man/CamposEx2.3.6.3.Rd new file mode 100644 index 0000000000000000000000000000000000000000..ca22b5bfab8989c1fc27107b833ae8394f35ca79 --- /dev/null +++ b/man/CamposEx2.3.6.3.Rd @@ -0,0 +1,42 @@ +% 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} + diff --git a/man/CamposEx2.3.6.4.Rd b/man/CamposEx2.3.6.4.Rd new file mode 100644 index 0000000000000000000000000000000000000000..ef4b7004f703894b63edbe0093140951db8a314a --- /dev/null +++ b/man/CamposEx2.3.6.4.Rd @@ -0,0 +1,41 @@ +% Generated by roxygen2: do not edit by hand +% 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 + +\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{ +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. +} +\examples{ + +data(CamposEx2.3.6.4) +str(CamposEx2.3.6.4) +boxplot(values ~ ind, data = stack(CamposEx2.3.6.4)) + +} +\keyword{NP} + diff --git a/man/CamposEx2.5.1.Rd b/man/CamposEx2.5.1.Rd new file mode 100644 index 0000000000000000000000000000000000000000..96897dac24d7bc7b579f5d05b39e6fc86618983f --- /dev/null +++ b/man/CamposEx2.5.1.Rd @@ -0,0 +1,20 @@ +% 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 vetor com 8 observações.} +\source{ +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{ + +data(CamposEx2.5.1) +str(CamposEx2.5.1) + +} +\keyword{NP} +