Skip to content
Snippets Groups Projects
Commit 56eeedb1 authored by Fernando Mayer's avatar Fernando Mayer
Browse files

Merge branch 'guilherme190' into devel

parents 25027ff2 60337764
No related branches found
No related tags found
No related merge requests found
Pipeline #
#' @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
#' @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
#' @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
#' @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
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
Xi fi
0 15
1 25
2 10
3 5
4 4
5 1
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
-1.3
0.4
0.8
2.8
1.7
3.3
5.6
4.2
File added
File added
File added
File added
% 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}
% 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}
% 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}
% 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}
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment