diff --git a/.RData b/.RData new file mode 100644 index 0000000000000000000000000000000000000000..8dd16676eb3a51d322df64210f275e11d6ae123d Binary files /dev/null and b/.RData differ diff --git a/R/CamposEg4.1.9.1.R b/R/CamposEg4.1.9.1.R new file mode 100644 index 0000000000000000000000000000000000000000..00e455ab584025bf8afa21101e7af1192689e012 --- /dev/null +++ b/R/CamposEg4.1.9.1.R @@ -0,0 +1,34 @@ +#' @name CamposEg4.1.9.1 +#' @title Tratamento de Sementes de Milho. +#' @description Um lote de sementes de milho foi tratado com um determinado produto químico +#' com o objetivo de aumentar o vigor dos "seedlings". +#' Apos o tratamento foram semeados oito canteiros com sementes não tratadas e cinco com +#' sementes tratadas. Duas semanas após a germinação foram tomadas, ao acaso, 50 plantas de +#' cada canteiro, que foram posteriormente pesadas. +#' @format Um \code{data.frame} com 8 observações e 2 variáveis, em que +#' +#' +#' \describe{ +#' +#' \item{\code{X}}{ Peso em gramas, de sementes de milho não tratadas. } +#' +#' \item{\code{Y}}{ Peso em gramas, de sementes de milho tratadas. } +#' +#' } +#' @keywords TODOS +#' @source DE CAMPOS; HUMBERTO (1983), Exemplos 4.1.9.1, pág. 125. +#' @examples +#' +#' library(lattice) +#' +#' data(CamposEg4.1.9.1) +#' str(CamposEg4.1.9.1) +#' +#' boxplot(CamposEg4.1.9.1$X, CamposEg4.1.9.1$Y, +#' names=c("Não Tratadas (X)","Tratadas (Y)")) +#' +#' wilcox.test(CamposEg4.1.9.1$X, +#' CamposEg4.1.9.1$Y, +#' paired = FALSE, conf.level = 0.95) + +NULL diff --git a/R/CamposEg4.1.9.2.R b/R/CamposEg4.1.9.2.R new file mode 100644 index 0000000000000000000000000000000000000000..6609b03ca5b3ca7c951ebbfd98ca1b86ebdc9507 --- /dev/null +++ b/R/CamposEg4.1.9.2.R @@ -0,0 +1,31 @@ +#' @name CamposEg4.1.9.2 +#' @title Teor de Fósforo em Duas Regiões. +#' @description Estudo sobre a determinação do teor de fósforo em duas regiões, A e B, foram +#' comletadas em cada uma delas, dez amostras de solo. +#' @format Um \code{data.frame} com 10 observações e 2 variáveis, em +#' que +#' +#' \describe{ +#' +#' \item{\code{A}}{ Teor de fósforo (e.mg/100g de solo), na Região A } +#' +#' \item{\code{B}}{ Teor de fósforo (e.mg/100g de solo), na Região A } +#' +#' } +#' @keywords TODOS +#' @source DE CAMPOS; HUMBERTO (1983), Exemplos 4.1.9.2, pág. 128. +#' @examples +#' +#' library(lattice) +#' +#' data(CamposEg4.1.9.2) +#' str(CamposEg4.1.9.2) +#' +#' boxplot(CamposEg4.1.9.2$A, CamposEg4.1.9.2$B, +#' names=c("Região A","Região B")) +#' +#' wilcox.test(CamposEg4.1.9.2$A, +#' CamposEg4.1.9.2$B, +#' paired = TRUE) + +NULL diff --git a/R/CamposEg4.3.8.R b/R/CamposEg4.3.8.R new file mode 100644 index 0000000000000000000000000000000000000000..6411105be94d92937058245977b005a47900f923 --- /dev/null +++ b/R/CamposEg4.3.8.R @@ -0,0 +1,31 @@ +#' @name CamposEg4.3.8 +#' @title Determinação do Ph de Dois Tipos de Solução Química. +#' @description Dois tipos de solução química, A e B, foram ensaiados para a determinação +#' do pH (grau de acidez da solução). +#' @format Um \code{data.frame} com 10 observações e 2 variáveis, em +#' que +#' +#' \describe{ +#' +#' \item{\code{A}}{ Ph da solução química A. } +#' +#' \item{\code{B}}{ Ph da solução química A. } +#' +#' } +#' @keywords TODOS +#' @source DE CAMPOS; HUMBERTO (1983), Exemplo 4.3.8, pág. 146. +#' @examples +#' +#' +#' library(lattice) +#' +#' data(CamposEg4.3.8) +#' str(CamposEg4.3.8) +#' +#' boxplot(CamposEg4.3.8$A, CamposEg4.3.8$B, +#' names=c("Solução A","Solução B")) +#' +#' ks.test(CamposEg4.3.8$A, CamposEg4.3.8$B, +#' alternative = "less") +#' +NULL diff --git a/R/CamposEx4.1.10.4.R b/R/CamposEx4.1.10.4.R new file mode 100644 index 0000000000000000000000000000000000000000..aab23dc33fc8bfe9b351a77402eb90619ed27b6d --- /dev/null +++ b/R/CamposEx4.1.10.4.R @@ -0,0 +1,33 @@ +#' @name CamposEx4.1.10.4 +#' @title Estudo Sobre a Variação de Altura de Filhos, em Relação à Altura dos Pais. +#' @description Estudo sobre a variação de altura de filhos em relação à altura dos pais, foram +#' consideradas duas classes: +#' X : altura de filhos descendentes de pais baixos; +#' Y : altura de filhos descendentes de pais altos; +#' @format Um \code{data.frame} com 10 observações e 2 variáveis, em +#' que +#' +#' \describe{ +#' +#' \item{\code{X}}{ Resultado obtido para as alturas (em metro) com dez individuos de classe X. } +#' +#' \item{\code{Y}}{ Resultado obtido para as alturas (em metro) com oito individuos de classe Y. } +#' +#' } +#' @keywords TODOS +#' @source DE CAMPOS; HUMBERTO (1983), Exercício 4.1.10.4, pág. 132. +#' @examples +#' +#' +#' library(lattice) +#' +#' data(CamposEx4.1.10.4) +#' str(CamposEx4.1.10.4) +#' +#' boxplot(CamposEx4.1.10.4$X, CamposEx4.1.10.4$Y, +#' names=c("Classe X","Classe Y")) +#' +#' wilcox.test(CamposEx4.1.10.4$X, +#' CamposEx4.1.10.4$Y, +#' paired = FALSE) +NULL diff --git a/R/CamposEx4.1.10.6.R b/R/CamposEx4.1.10.6.R new file mode 100644 index 0000000000000000000000000000000000000000..5968018737eada2791d26cc1ad01673e533aa303 --- /dev/null +++ b/R/CamposEx4.1.10.6.R @@ -0,0 +1,36 @@ +#' @name CamposEx4.1.10.6 +#' @title Lógica dos Jogos de Loteria +#' @description Uma pesquisa foi realizada no sentido de se verificar a logica dos jogos da +#' loteria esportiva. Para tal fim, foram considerados quinze apostadores tido como conhecedores +#' de futebol e sempre a par dos noticiários esportivos, e dez que jogam na loteca, mas com um +#' completo desconhecimento do mundo esportivo. Foram computadas as medias de pontos feitos, com +#' a aposta minima, em dez semanas seguidas, relativa a cada apostador. +#' @format Um \code{data.frame} com 15 observações e 2 variáveis, em +#' que +#' +#' \describe{ +#' +#' \item{\code{X}}{ Média de pontos feitos, com a aposta mínima, em dez semanas seguidas +#' de jogadores "entedidos".} +#' +#' \item{\code{Y}}{ Média de pontos feitos, com a aposta mínima, em dez semanas seguidas +#' de jogadores "não entedidos". } +#' +#' } +#' @keywords TODOS +#' @source DE CAMPOS; HUMBERTO (1983), Exercício 4.1.10.6, pág. 133. +#' @examples +#' +#' +#' library(lattice) +#' +#' data(CamposEx4.1.10.6) +#' str(CamposEx4.1.10.6) +#' +#' boxplot(CamposEx4.1.10.6$X, CamposEx4.1.10.6$Y, +#' names=c("Entedidos","Não Entedidos")) +#' +#' wilcox.test(CamposEx4.1.10.6$X, +#' CamposEx4.1.10.6$Y, +#' paired = FALSE) +NULL diff --git a/R/CamposEx4.3.9.R b/R/CamposEx4.3.9.R new file mode 100644 index 0000000000000000000000000000000000000000..ec5be689cdd057b2ea1fc6681585a5a50dd177e3 --- /dev/null +++ b/R/CamposEx4.3.9.R @@ -0,0 +1,30 @@ +#' @name CamposEx4.3.9 +#' @title Competição de Variedades de Tomates. +#' @description Num ensaio sobre competição de variedades de tomates foram consideradas as +#' produções individuais (em Kg) de quinze plantas de uma variedade A e dez de uma variedade B. +#' @format Um \code{data.frame} com 15 observações e 2 variáveis, em +#' que +#' +#' \describe{ +#' +#' \item{\code{A}}{ Produção individual (em Kg) de tomates de uma variedade A. } +#' +#' \item{\code{B}}{ Produção individual (em Kg) de tomates de uma variedade B. } +#' +#' } +#' @keywords TODOS +#' @source DE CAMPOS; HUMBERTO (1983), Exercicio 4.3.9, pág. 148. +#' @examples +#' +#' +#' library(lattice) +#' +#' data(CamposEx4.3.9) +#' str(CamposEx4.3.9) +#' +#' boxplot(CamposEx4.3.9$A, CamposEx4.3.9$B, +#' names=c("Solução A","Solução B")) +#' +#' ks.test(CamposEx4.3.9$A, CamposEx4.3.9$B) +#' +NULL diff --git a/data-raw/CamposEg4.1.9.1.txt b/data-raw/CamposEg4.1.9.1.txt new file mode 100644 index 0000000000000000000000000000000000000000..9e11d7d347aa6d229cc6620d7bc46056645492ad --- /dev/null +++ b/data-raw/CamposEg4.1.9.1.txt @@ -0,0 +1,9 @@ +X Y +103.7 98.7 +88.5 112.4 +75.4 117.3 +97.8 102.5 +93.2 114.3 +81.4 NA +78.1 NA +105.4 NA diff --git a/data-raw/CamposEg4.1.9.2.txt b/data-raw/CamposEg4.1.9.2.txt new file mode 100644 index 0000000000000000000000000000000000000000..4b52e92ac7c45864cf0774b6ad4014031b6adec7 --- /dev/null +++ b/data-raw/CamposEg4.1.9.2.txt @@ -0,0 +1,11 @@ +A B +0.24 0.21 +0.37 0.35 +0.33 0.41 +0.35 0.28 +0.18 0.21 +0.29 0.31 +0.42 0.21 +0.37 0.31 +0.39 0.28 +0.38 0.33 diff --git a/data-raw/CamposEg4.3.8.txt b/data-raw/CamposEg4.3.8.txt new file mode 100644 index 0000000000000000000000000000000000000000..622a640dd9cc11dedf207092e22e6c3b3a1301ff --- /dev/null +++ b/data-raw/CamposEg4.3.8.txt @@ -0,0 +1,11 @@ +A B +7.49 7.28 +7.35 7.35 +7.54 7.52 +7.48 7.5 +7.48 7.38 +7.37 7.48 +7.51 7.31 +7.5 7.22 +7.52 7.41 +7.46 7.45 diff --git a/data-raw/CamposEx4.1.10.4.txt b/data-raw/CamposEx4.1.10.4.txt new file mode 100644 index 0000000000000000000000000000000000000000..a7421b24e9efb86e0053af90eb77121913f7e3fc --- /dev/null +++ b/data-raw/CamposEx4.1.10.4.txt @@ -0,0 +1,11 @@ +X Y +1.45 1.63 +1.82 1.86 +1.6 1.98 +1.67 1.37 +1.37 1.75 +1.52 1.63 +1.63 1.71 +1.44 1.79 +1.44 NA +1.75 NA diff --git a/data-raw/CamposEx4.1.10.6.txt b/data-raw/CamposEx4.1.10.6.txt new file mode 100644 index 0000000000000000000000000000000000000000..4a816cb6731c6a16645d7e6b34e94ade1b6d95d0 --- /dev/null +++ b/data-raw/CamposEx4.1.10.6.txt @@ -0,0 +1,16 @@ +X Y +8.7 6.5 +9.3 11.2 +11 9 +7 7.1 +9.6 7.8 +8 9 +9.8 4.2 +10 6.1 +9.5 7.9 +9.9 8.6 +10.2 NA +10.8 NA +10.3 NA +9.6 NA +11.5 NA diff --git a/data-raw/CamposEx4.3.9.txt b/data-raw/CamposEx4.3.9.txt new file mode 100644 index 0000000000000000000000000000000000000000..04ef1b2c5001c9b4e08bf512453319acdb14373c --- /dev/null +++ b/data-raw/CamposEx4.3.9.txt @@ -0,0 +1,16 @@ +A B +4.3 4.2 +3.8 4.8 +5.2 4.7 +2.5 6.5 +3.5 6.3 +4.1 5.9 +5.1 7.2 +4 5.1 +2.2 6.2 +3.8 6.8 +4.5 NA +1.7 NA +3.6 NA +4.5 NA +5 NA diff --git a/data/CamposEg4.1.9.1.rda b/data/CamposEg4.1.9.1.rda new file mode 100644 index 0000000000000000000000000000000000000000..d6a3a233698f2a3d41bed6913da921e8099ccee3 Binary files /dev/null and b/data/CamposEg4.1.9.1.rda differ diff --git a/data/CamposEg4.1.9.2.rda b/data/CamposEg4.1.9.2.rda new file mode 100644 index 0000000000000000000000000000000000000000..d1de77cd58c7f05a1561549c272289ebc87f1b55 Binary files /dev/null and b/data/CamposEg4.1.9.2.rda differ diff --git a/data/CamposEg4.3.8.rda b/data/CamposEg4.3.8.rda new file mode 100644 index 0000000000000000000000000000000000000000..55baa1af5498a2248e24859bbbd1c643421f955d Binary files /dev/null and b/data/CamposEg4.3.8.rda differ diff --git a/data/CamposEx4.1.10.4.rda b/data/CamposEx4.1.10.4.rda new file mode 100644 index 0000000000000000000000000000000000000000..75adcb3293617fbfc7a9133f87b56b975c21d941 Binary files /dev/null and b/data/CamposEx4.1.10.4.rda differ diff --git a/data/CamposEx4.1.10.6.rda b/data/CamposEx4.1.10.6.rda new file mode 100644 index 0000000000000000000000000000000000000000..ced7b62855d4f2f1889d41021baf8740294858c4 Binary files /dev/null and b/data/CamposEx4.1.10.6.rda differ diff --git a/data/CamposEx4.3.9.rda b/data/CamposEx4.3.9.rda new file mode 100644 index 0000000000000000000000000000000000000000..81acd22690ec722c66f87c0d25fe60aa3673c434 Binary files /dev/null and b/data/CamposEx4.3.9.rda differ diff --git a/man/CamposEg4.1.9.1.Rd b/man/CamposEg4.1.9.1.Rd new file mode 100644 index 0000000000000000000000000000000000000000..b74a0012391b46b25129b07f49a3b10868982fe4 --- /dev/null +++ b/man/CamposEg4.1.9.1.Rd @@ -0,0 +1,41 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/CamposEg4.1.9.1.R +\name{CamposEg4.1.9.1} +\alias{CamposEg4.1.9.1} +\title{Tratamento de Sementes de Milho.} +\format{Um \code{data.frame} com 8 observações e 2 variáveis, em que + + +\describe{ + +\item{\code{X}}{ Peso em gramas, de sementes de milho não tratadas. } + +\item{\code{Y}}{ Peso em gramas, de sementes de milho tratadas. } + +}} +\source{ +DE CAMPOS; HUMBERTO (1983), Exemplos 4.1.9.1, pág. 125. +} +\description{ +Um lote de sementes de milho foi tratado com um determinado produto químico +com o objetivo de aumentar o vigor dos "seedlings". +Apos o tratamento foram semeados oito canteiros com sementes não tratadas e cinco com +sementes tratadas. Duas semanas após a germinação foram tomadas, ao acaso, 50 plantas de +cada canteiro, que foram posteriormente pesadas. +} +\examples{ + + library(lattice) + + data(CamposEg4.1.9.1) + str(CamposEg4.1.9.1) + + boxplot(CamposEg4.1.9.1$X, CamposEg4.1.9.1$Y, + names=c("Não Tratadas (X)","Tratadas (Y)")) + + wilcox.test(CamposEg4.1.9.1$X, + CamposEg4.1.9.1$Y, + paired = FALSE, conf.level = 0.95) +} +\keyword{TODOS} + diff --git a/man/CamposEg4.1.9.2.Rd b/man/CamposEg4.1.9.2.Rd new file mode 100644 index 0000000000000000000000000000000000000000..46bb7f5aaeaa9dbb43d53da8a94a1314d861b968 --- /dev/null +++ b/man/CamposEg4.1.9.2.Rd @@ -0,0 +1,38 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/CamposEg4.1.9.2.R +\name{CamposEg4.1.9.2} +\alias{CamposEg4.1.9.2} +\title{Teor de Fósforo em Duas Regiões.} +\format{Um \code{data.frame} com 10 observações e 2 variáveis, em + que + +\describe{ + +\item{\code{A}}{ Teor de fósforo (e.mg/100g de solo), na Região A } + +\item{\code{B}}{ Teor de fósforo (e.mg/100g de solo), na Região A } + +}} +\source{ +DE CAMPOS; HUMBERTO (1983), Exemplos 4.1.9.2, pág. 128. +} +\description{ +Estudo sobre a determinação do teor de fósforo em duas regiões, A e B, foram +comletadas em cada uma delas, dez amostras de solo. +} +\examples{ + + library(lattice) + + data(CamposEg4.1.9.2) + str(CamposEg4.1.9.2) + + boxplot(CamposEg4.1.9.2$A, CamposEg4.1.9.2$B, + names=c("Região A","Região B")) + + wilcox.test(CamposEg4.1.9.2$A, + CamposEg4.1.9.2$B, + paired = TRUE) +} +\keyword{TODOS} + diff --git a/man/CamposEg4.3.8.Rd b/man/CamposEg4.3.8.Rd new file mode 100644 index 0000000000000000000000000000000000000000..692464e9903d31eb12b68b52357925e51c241b9d --- /dev/null +++ b/man/CamposEg4.3.8.Rd @@ -0,0 +1,39 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/CamposEg4.3.8.R +\name{CamposEg4.3.8} +\alias{CamposEg4.3.8} +\title{Determinação do Ph de Dois Tipos de Solução Química.} +\format{Um \code{data.frame} com 10 observações e 2 variáveis, em + que + +\describe{ + +\item{\code{A}}{ Ph da solução química A. } + +\item{\code{B}}{ Ph da solução química A. } + +}} +\source{ +DE CAMPOS; HUMBERTO (1983), Exemplo 4.3.8, pág. 146. +} +\description{ +Dois tipos de solução química, A e B, foram ensaiados para a determinação +do pH (grau de acidez da solução). +} +\examples{ + + + library(lattice) + + data(CamposEg4.3.8) + str(CamposEg4.3.8) + + boxplot(CamposEg4.3.8$A, CamposEg4.3.8$B, + names=c("Solução A","Solução B")) + + ks.test(CamposEg4.3.8$A, CamposEg4.3.8$B, + alternative = "less") + +} +\keyword{TODOS} + diff --git a/man/CamposEx4.1.10.4.Rd b/man/CamposEx4.1.10.4.Rd new file mode 100644 index 0000000000000000000000000000000000000000..f0e5c33f08b3ea0116b053881de88130db0e07be --- /dev/null +++ b/man/CamposEx4.1.10.4.Rd @@ -0,0 +1,41 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/CamposEx4.1.10.4.R +\name{CamposEx4.1.10.4} +\alias{CamposEx4.1.10.4} +\title{Estudo Sobre a Variação de Altura de Filhos, em Relação à Altura dos Pais.} +\format{Um \code{data.frame} com 10 observações e 2 variáveis, em + que + +\describe{ + +\item{\code{X}}{ Resultado obtido para as alturas (em metro) com dez individuos de classe X. } + +\item{\code{Y}}{ Resultado obtido para as alturas (em metro) com oito individuos de classe Y. } + +}} +\source{ +DE CAMPOS; HUMBERTO (1983), Exercício 4.1.10.4, pág. 132. +} +\description{ +Estudo sobre a variação de altura de filhos em relação à altura dos pais, foram +consideradas duas classes: +X : altura de filhos descendentes de pais baixos; +Y : altura de filhos descendentes de pais altos; +} +\examples{ + + + library(lattice) + + data(CamposEx4.1.10.4) + str(CamposEx4.1.10.4) + + boxplot(CamposEx4.1.10.4$X, CamposEx4.1.10.4$Y, + names=c("Classe X","Classe Y")) + + wilcox.test(CamposEx4.1.10.4$X, + CamposEx4.1.10.4$Y, + paired = FALSE) +} +\keyword{TODOS} + diff --git a/man/CamposEx4.1.10.6.Rd b/man/CamposEx4.1.10.6.Rd new file mode 100644 index 0000000000000000000000000000000000000000..12ecfc272621c07b9595aebd63346f01877ce56e --- /dev/null +++ b/man/CamposEx4.1.10.6.Rd @@ -0,0 +1,44 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/CamposEx4.1.10.6.R +\name{CamposEx4.1.10.6} +\alias{CamposEx4.1.10.6} +\title{Lógica dos Jogos de Loteria} +\format{Um \code{data.frame} com 15 observações e 2 variáveis, em + que + +\describe{ + +\item{\code{X}}{ Média de pontos feitos, com a aposta mínima, em dez semanas seguidas +de jogadores "entedidos".} + +\item{\code{Y}}{ Média de pontos feitos, com a aposta mínima, em dez semanas seguidas +de jogadores "não entedidos". } + +}} +\source{ +DE CAMPOS; HUMBERTO (1983), Exercício 4.1.10.6, pág. 133. +} +\description{ +Uma pesquisa foi realizada no sentido de se verificar a logica dos jogos da +loteria esportiva. Para tal fim, foram considerados quinze apostadores tido como conhecedores +de futebol e sempre a par dos noticiários esportivos, e dez que jogam na loteca, mas com um +completo desconhecimento do mundo esportivo. Foram computadas as medias de pontos feitos, com +a aposta minima, em dez semanas seguidas, relativa a cada apostador. +} +\examples{ + + + library(lattice) + + data(CamposEx4.1.10.6) + str(CamposEx4.1.10.6) + + boxplot(CamposEx4.1.10.6$X, CamposEx4.1.10.6$Y, + names=c("Entedidos","Não Entedidos")) + + wilcox.test(CamposEx4.1.10.6$X, + CamposEx4.1.10.6$Y, + paired = FALSE) +} +\keyword{TODOS} + diff --git a/man/CamposEx4.3.9.Rd b/man/CamposEx4.3.9.Rd new file mode 100644 index 0000000000000000000000000000000000000000..8880b6c047f0dd557cd7d7b2bede5d14a82179dd --- /dev/null +++ b/man/CamposEx4.3.9.Rd @@ -0,0 +1,38 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/CamposEx4.3.9.R +\name{CamposEx4.3.9} +\alias{CamposEx4.3.9} +\title{Competição de Variedades de Tomates.} +\format{Um \code{data.frame} com 15 observações e 2 variáveis, em + que + +\describe{ + +\item{\code{A}}{ Produção individual (em Kg) de tomates de uma variedade A. } + +\item{\code{B}}{ Produção individual (em Kg) de tomates de uma variedade B. } + +}} +\source{ +DE CAMPOS; HUMBERTO (1983), Exercicio 4.3.9, pág. 148. +} +\description{ +Num ensaio sobre competição de variedades de tomates foram consideradas as +produções individuais (em Kg) de quinze plantas de uma variedade A e dez de uma variedade B. +} +\examples{ + + + library(lattice) + + data(CamposEx4.3.9) + str(CamposEx4.3.9) + + boxplot(CamposEx4.3.9$A, CamposEx4.3.9$B, + names=c("Solução A","Solução B")) + + ks.test(CamposEx4.3.9$A, CamposEx4.3.9$B) + +} +\keyword{TODOS} +