From 3eb111d3879547d24a45ebfe1354f13473ec6655 Mon Sep 17 00:00:00 2001
From: Guilherme Hathy <guilhermehathy@hotmail.com>
Date: Mon, 10 Oct 2016 17:38:59 -0300
Subject: [PATCH] Capitulo 5
---
R/CamposEg5.1.9.2.R | 32 ++++++++++++++++++++++++++
R/CamposEg5.2.5.1.R | 28 +++++++++++++++++++++++
R/CamposEx5.1.10.2.R | 33 +++++++++++++++++++++++++++
R/CamposEx5.1.10.4.R | 30 +++++++++++++++++++++++++
data-raw/CamposEg5.1.9.2.txt | 7 ++++++
data-raw/CamposEg5.2.5.1.txt | 17 ++++++++++++++
data-raw/CamposEx5.1.10.2.txt | 11 +++++++++
data-raw/CamposEx5.1.10.4.txt | 11 +++++++++
data/CamposEg5.1.9.2.rda | Bin 0 -> 208 bytes
data/CamposEg5.2.5.1.rda | Bin 0 -> 265 bytes
data/CamposEx5.1.10.2.rda | Bin 0 -> 285 bytes
data/CamposEx5.1.10.4.rda | Bin 0 -> 190 bytes
man/CamposEg5.1.9.2.Rd | 39 ++++++++++++++++++++++++++++++++
man/CamposEg5.2.5.1.Rd | 36 +++++++++++++++++++++++++++++
man/CamposEx5.1.10.2.Rd | 41 ++++++++++++++++++++++++++++++++++
man/CamposEx5.1.10.4.Rd | 38 +++++++++++++++++++++++++++++++
16 files changed, 323 insertions(+)
create mode 100644 R/CamposEg5.1.9.2.R
create mode 100644 R/CamposEg5.2.5.1.R
create mode 100644 R/CamposEx5.1.10.2.R
create mode 100644 R/CamposEx5.1.10.4.R
create mode 100644 data-raw/CamposEg5.1.9.2.txt
create mode 100644 data-raw/CamposEg5.2.5.1.txt
create mode 100644 data-raw/CamposEx5.1.10.2.txt
create mode 100644 data-raw/CamposEx5.1.10.4.txt
create mode 100644 data/CamposEg5.1.9.2.rda
create mode 100644 data/CamposEg5.2.5.1.rda
create mode 100644 data/CamposEx5.1.10.2.rda
create mode 100644 data/CamposEx5.1.10.4.rda
create mode 100644 man/CamposEg5.1.9.2.Rd
create mode 100644 man/CamposEg5.2.5.1.Rd
create mode 100644 man/CamposEx5.1.10.2.Rd
create mode 100644 man/CamposEx5.1.10.4.Rd
diff --git a/R/CamposEg5.1.9.2.R b/R/CamposEg5.1.9.2.R
new file mode 100644
index 0000000..f787912
--- /dev/null
+++ b/R/CamposEg5.1.9.2.R
@@ -0,0 +1,32 @@
+#' @name CamposEg5.1.9.2
+#' @title Selecionar Seis Provadores de Vinho Para se Proceder a um Ensaio de Degustação.
+#' @description Pretendendo-se selecionar seis provadores de vinho para se proceder a um
+#' ensaio de degustação, foram formados dois grupos: um de rapazes e outro de moças, e com
+#' eles foi realizado um pré-teste para a seleção. Numa mesa eram colocados cinco cálices, sendo
+#' três do vinho em questão e dois de outros vinhos. O parecer de cada degustador era obtido pela
+#' média das notas(de 0 a 10) atribuÃdas aos três cálices.
+#' @format Um \code{data.frame} com 6 observações e 2 variáveis, em que
+#'
+#'
+#' \describe{
+#'
+#' \item{\code{X}}{ Média da nota do grupo feminino. }
+#'
+#' \item{\code{Y}}{ Média da nota do grupo masculino. }
+#'
+#' }
+#' @keywords TODOS
+#' @source DE CAMPOS; HUMBERTO (1983), Exemplo 5.1.9.2, pág. 168.
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(CamposEg5.1.9.2)
+#' str(CamposEg5.1.9.2)
+#'
+#' boxplot(CamposEg5.1.9.2$X, CamposEg5.1.9.2$Y,
+#' names=c("Moças (X)","Rapazes (Y)"))
+#'
+#' ansari.test(CamposEg5.1.9.2$X, CamposEg5.1.9.2$Y)
+
+NULL
diff --git a/R/CamposEg5.2.5.1.R b/R/CamposEg5.2.5.1.R
new file mode 100644
index 0000000..a50183c
--- /dev/null
+++ b/R/CamposEg5.2.5.1.R
@@ -0,0 +1,28 @@
+#' @name CamposEg5.2.5.1
+#' @title Numero Médio de Hospedes em Duas Categorias de Hotéis.
+#' @description Pretendendo-se determinar o número médio de hóspedes em duas categorias de
+#' hotéis, foram tomadas as médias de 16 hotéis de uma das categorias (A) e 8 da outra (B), cobrindo
+#' um perÃodo de três meses.
+#' @format Um \code{data.frame} com 16 observações e 2 variáveis, em
+#' que
+#'
+#' \describe{
+#'
+#' \item{\code{A}}{ Média diária de hóspedes no hotel de categoria A. }
+#'
+#' \item{\code{B}}{ Média diária de hóspedes no hotel de categoria A. }
+#'
+#' }
+#' @keywords TODOS
+#' @source DE CAMPOS; HUMBERTO (1983), Exemplo 5.2.5.1, pág. 173.
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(CamposEg5.2.5.1)
+#' str(CamposEg5.2.5.1)
+#'
+#' boxplot(CamposEg5.2.5.1$A, CamposEg5.2.5.1$B,
+#' names=c("CATEGORIA A","CATEGORIA B"))
+#'
+NULL
diff --git a/R/CamposEx5.1.10.2.R b/R/CamposEx5.1.10.2.R
new file mode 100644
index 0000000..07f833b
--- /dev/null
+++ b/R/CamposEx5.1.10.2.R
@@ -0,0 +1,33 @@
+#' @name CamposEx5.1.10.2
+#' @title Variações de Altura de Filhos em Relação à Altura dos Pais.
+#' @description Num estudo sobre variação de altura de filhos em relação à altura dos pais, foram
+#' consideradas duas Classes:
+#' Classe A (X): Altura de filhos descendentes de pais baixos.
+#' Classe B (Y): Altura de filhos descendentes de pais altos.
+#' Os resultados obtidos para as alturas (em metros) com dez indivÃduos da classe A e oito da
+#' classe B.
+#' @format Um \code{data.frame} com 10 observações e 2 variáveis, em
+#' que
+#'
+#' \describe{
+#'
+#' \item{\code{X}}{ Resultados obtidos para as alturas (em metro) com dez indivÃduos da classe A. }
+#'
+#' \item{\code{Y}}{ Resultados obtidos para as alturas (em metro) com oito indivÃduos da classe B. }
+#'
+#' }
+#' @keywords TODOS
+#' @source DE CAMPOS; HUMBERTO (1983), ExercÃcio 5.1.10.2, pág. 169.
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(CamposEx5.1.10.2)
+#' str(CamposEx5.1.10.2)
+#'
+#' boxplot(CamposEx5.1.10.2$X, CamposEx5.1.10.2$Y,
+#' names=c("Classe A (X)","Classe B (Y)"))
+#'
+#' ansari.test(CamposEx5.1.10.2$X, CamposEx5.1.10.2$Y)
+#'
+NULL
diff --git a/R/CamposEx5.1.10.4.R b/R/CamposEx5.1.10.4.R
new file mode 100644
index 0000000..91f29a1
--- /dev/null
+++ b/R/CamposEx5.1.10.4.R
@@ -0,0 +1,30 @@
+#' @name CamposEx5.1.10.4
+#' @title Avaliação do Aproveitamento de Alunos Utilizando Dois Métodos.
+#' @description Dois métodos (A e B) de avaliação do aproveitamento de alunos forma
+#' utilizados. O método A representando o tradicional e o método B, a avaliação através de
+#' questionários e entrevista pessoais. Foram tomadas amostras de dez alunos para cada método.
+#' @format Um \code{data.frame} com 10 observações e 2 variáveis, em
+#' que
+#'
+#' \describe{
+#'
+#' \item{\code{X}}{ Avaliação do Método A (Tradicional). }
+#'
+#' \item{\code{Y}}{ Avaliação do Método B. }
+#'
+#' }
+#' @keywords TODOS
+#' @source DE CAMPOS; HUMBERTO (1983), ExercÃcio 5.1.10.4, pág. 170.
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(CamposEx5.1.10.4)
+#' str(CamposEx5.1.10.4)
+#'
+#' boxplot(CamposEx5.1.10.4$X, CamposEx5.1.10.4$Y,
+#' names=c("Método A (X)","Método B (Y)"))
+#'
+#' ansari.test(CamposEx5.1.10.4$X, CamposEx5.1.10.4$Y)
+#'
+NULL
diff --git a/data-raw/CamposEg5.1.9.2.txt b/data-raw/CamposEg5.1.9.2.txt
new file mode 100644
index 0000000..5901b4b
--- /dev/null
+++ b/data-raw/CamposEg5.1.9.2.txt
@@ -0,0 +1,7 @@
+X Y
+7.5 5.8
+8.3 6.5
+7.7 8.3
+8 6.3
+6.7 9
+8.5 9.7
diff --git a/data-raw/CamposEg5.2.5.1.txt b/data-raw/CamposEg5.2.5.1.txt
new file mode 100644
index 0000000..5f0d805
--- /dev/null
+++ b/data-raw/CamposEg5.2.5.1.txt
@@ -0,0 +1,17 @@
+A B
+18.3 11.6
+14.7 7.5
+18.8 13.4
+15.3 13.2
+10.6 18.3
+13.2 10.5
+14.8 8.2
+15.5 11.4
+15 7.3
+16.4 NA
+17.2 NA
+19.4 NA
+17.5 NA
+18.3 NA
+15.4 NA
+16.3 NA
diff --git a/data-raw/CamposEx5.1.10.2.txt b/data-raw/CamposEx5.1.10.2.txt
new file mode 100644
index 0000000..a7421b2
--- /dev/null
+++ b/data-raw/CamposEx5.1.10.2.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/CamposEx5.1.10.4.txt b/data-raw/CamposEx5.1.10.4.txt
new file mode 100644
index 0000000..b6d62f2
--- /dev/null
+++ b/data-raw/CamposEx5.1.10.4.txt
@@ -0,0 +1,11 @@
+X Y
+91 105
+90 103
+93 108
+97 94
+98 107
+102 106
+95 112
+96 99
+104 110
+101 109
diff --git a/data/CamposEg5.1.9.2.rda b/data/CamposEg5.1.9.2.rda
new file mode 100644
index 0000000000000000000000000000000000000000..429af68366a312080c14377a383802afeb32489a
GIT binary patch
literal 208
zcmV;>05AVST4*^jL0KkKS-gsaGXMZ||K$HO$gy|<Iv`E}5MVEd+<-s;05AXs01==7
ziVYGYG))bukQy`%q-10nrl4e|pvjSwA%p`01_aYh3XM`o@kVh4W_AEG#EfDvV$`7n
z2Hf!xOt<QE5GYK7ktp0kh!2v40q}ha0aT%0MT#I`ARw^P!-0W~U=<5pZ0sS366v=U
zI4B_va2blN<2=+@hP8v;_s*6VGP+yYzy}|0RHn-1Hoy;OfK3{QkXSXr`oLiSi@744
KC`evKL79L@>{Av1
literal 0
HcmV?d00001
diff --git a/data/CamposEg5.2.5.1.rda b/data/CamposEg5.2.5.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..6a26f79ad2e992b1aa605339a1eada5bca505a7d
GIT binary patch
literal 265
zcmV+k0rvhvT4*^jL0KkKS$MwXB>(`W|MdQ|$OA)@`T%|e5I`@7+<?FU05A{$00uw-
zumISQ)b$hq&;SiROh%0ZPf_X(sp<zX0000000002M3SDT>OrOxO*GR$8W@cjAbyll
zFPrzVVy!8w&MlYjZ&Vj;)=4I8rKw2eE?IV99bOdEP=MoT;%_b#Nei7OBEV@BAS4nE
z{IRMc7{Um&F(s$Y5LcNCF;~CsNb6+c1AqvcOna%+YVL#eF_jWQ3Mm0u5(t~TbKyi%
zvF~tg6f(1sAV3ZCacT9V+qQtKPrn2WpD}%aSP;2SP>Xk>4olz#K&Bq~>YHu1Vqel2
P|Ha&qP81{_FS$uTJWgxB
literal 0
HcmV?d00001
diff --git a/data/CamposEx5.1.10.2.rda b/data/CamposEx5.1.10.2.rda
new file mode 100644
index 0000000000000000000000000000000000000000..c5972d3320e46cdfae842b2689f6b6b3e30a151e
GIT binary patch
literal 285
zcmV+&0pk8bT4*^jL0KkKSql7cF8~01|Ns88OaXvFdIFAsFk~+W+|a@RfG`{Z06-W3
z0DvG2L;tV<*2FYWCX@9>M${T<kke>-DUi^}JxvcZOjFa!gHuX+fu<us(9i~e7=|DX
z006@xkk9}C000000B8Vo9|6J)p(GVe5mZR=fdW($a!4P)?J>YLOWU#_0~s<85iG?a
zf&^kvkTxg^1B9ZCgaj6R27>_~DVAjXrC}f1%nu-xr&rT)mm~#yZbF{yO^Wnuz~Y{H
zxE*qs-%UVqSYRd|9gQxLMG6v4EJ#sy%?J%ULLU4n{r!4QgacP#9@Y0)Lc#J&>zpf?
jswN#W7!oirmIB)b0|LVW5R%YE3;bQl6yZWZEAha*X=!WJ
literal 0
HcmV?d00001
diff --git a/data/CamposEx5.1.10.4.rda b/data/CamposEx5.1.10.4.rda
new file mode 100644
index 0000000000000000000000000000000000000000..66b04d1059f4a0e3ac7caecd17da21950da7f2f1
GIT binary patch
literal 190
zcmV;v073skT4*^jL0KkKS$*msU;qGg|G@q-NB{r<b^s0l5PSds+`vEp0Rf-@iVYGb
z8bHu!XxfaLXx^mJqk5oXsM?xjX^_G&gF&W)Ohz!HI74H7v1BF#^$ko9PZajo&D7uC
zza6AYE%R;Is<?<*^X%;cNaDC9XF@WA)RX`r0Dxj(M3BTQL{Fk67`<?e)i6n=ceZIF
sRdD%sFb}O~A~{SIM=%ET36=P7!=}So0j)op3?K1#BvXY62i~Ff0Lv9ozW@LL
literal 0
HcmV?d00001
diff --git a/man/CamposEg5.1.9.2.Rd b/man/CamposEg5.1.9.2.Rd
new file mode 100644
index 0000000..e7df0a7
--- /dev/null
+++ b/man/CamposEg5.1.9.2.Rd
@@ -0,0 +1,39 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/CamposEg5.1.9.2.R
+\name{CamposEg5.1.9.2}
+\alias{CamposEg5.1.9.2}
+\title{Selecionar Seis Provadores de Vinho Para se Proceder a um Ensaio de Degustação.}
+\format{Um \code{data.frame} com 6 observações e 2 variáveis, em que
+
+
+\describe{
+
+\item{\code{X}}{ Média da nota do grupo feminino. }
+
+\item{\code{Y}}{ Média da nota do grupo masculino. }
+
+}}
+\source{
+DE CAMPOS; HUMBERTO (1983), Exemplo 5.1.9.2, pág. 168.
+}
+\description{
+Pretendendo-se selecionar seis provadores de vinho para se proceder a um
+ensaio de degustação, foram formados dois grupos: um de rapazes e outro de moças, e com
+eles foi realizado um pré-teste para a seleção. Numa mesa eram colocados cinco cálices, sendo
+três do vinho em questão e dois de outros vinhos. O parecer de cada degustador era obtido pela
+média das notas(de 0 a 10) atribuÃdas aos três cálices.
+}
+\examples{
+
+library(lattice)
+
+data(CamposEg5.1.9.2)
+str(CamposEg5.1.9.2)
+
+boxplot(CamposEg5.1.9.2$X, CamposEg5.1.9.2$Y,
+ names=c("Moças (X)","Rapazes (Y)"))
+
+ansari.test(CamposEg5.1.9.2$X, CamposEg5.1.9.2$Y)
+}
+\keyword{TODOS}
+
diff --git a/man/CamposEg5.2.5.1.Rd b/man/CamposEg5.2.5.1.Rd
new file mode 100644
index 0000000..b60e7bb
--- /dev/null
+++ b/man/CamposEg5.2.5.1.Rd
@@ -0,0 +1,36 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/CamposEg5.2.5.1.R
+\name{CamposEg5.2.5.1}
+\alias{CamposEg5.2.5.1}
+\title{Numero Médio de Hospedes em Duas Categorias de Hotéis.}
+\format{Um \code{data.frame} com 16 observações e 2 variáveis, em
+ que
+
+\describe{
+
+\item{\code{A}}{ Média diária de hóspedes no hotel de categoria A. }
+
+\item{\code{B}}{ Média diária de hóspedes no hotel de categoria A. }
+
+}}
+\source{
+DE CAMPOS; HUMBERTO (1983), Exemplo 5.2.5.1, pág. 173.
+}
+\description{
+Pretendendo-se determinar o número médio de hóspedes em duas categorias de
+hotéis, foram tomadas as médias de 16 hotéis de uma das categorias (A) e 8 da outra (B), cobrindo
+um perÃodo de três meses.
+}
+\examples{
+
+library(lattice)
+
+data(CamposEg5.2.5.1)
+str(CamposEg5.2.5.1)
+
+boxplot(CamposEg5.2.5.1$A, CamposEg5.2.5.1$B,
+ names=c("CATEGORIA A","CATEGORIA B"))
+
+}
+\keyword{TODOS}
+
diff --git a/man/CamposEx5.1.10.2.Rd b/man/CamposEx5.1.10.2.Rd
new file mode 100644
index 0000000..4eb345d
--- /dev/null
+++ b/man/CamposEx5.1.10.2.Rd
@@ -0,0 +1,41 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/CamposEx5.1.10.2.R
+\name{CamposEx5.1.10.2}
+\alias{CamposEx5.1.10.2}
+\title{Variações 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}}{ Resultados obtidos para as alturas (em metro) com dez indivÃduos da classe A. }
+
+\item{\code{Y}}{ Resultados obtidos para as alturas (em metro) com oito indivÃduos da classe B. }
+
+}}
+\source{
+DE CAMPOS; HUMBERTO (1983), ExercÃcio 5.1.10.2, pág. 169.
+}
+\description{
+Num estudo sobre variação de altura de filhos em relação à altura dos pais, foram
+consideradas duas Classes:
+Classe A (X): Altura de filhos descendentes de pais baixos.
+Classe B (Y): Altura de filhos descendentes de pais altos.
+Os resultados obtidos para as alturas (em metros) com dez indivÃduos da classe A e oito da
+classe B.
+}
+\examples{
+
+library(lattice)
+
+data(CamposEx5.1.10.2)
+str(CamposEx5.1.10.2)
+
+boxplot(CamposEx5.1.10.2$X, CamposEx5.1.10.2$Y,
+ names=c("Classe A (X)","Classe B (Y)"))
+
+ansari.test(CamposEx5.1.10.2$X, CamposEx5.1.10.2$Y)
+
+}
+\keyword{TODOS}
+
diff --git a/man/CamposEx5.1.10.4.Rd b/man/CamposEx5.1.10.4.Rd
new file mode 100644
index 0000000..9fbd807
--- /dev/null
+++ b/man/CamposEx5.1.10.4.Rd
@@ -0,0 +1,38 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/CamposEx5.1.10.4.R
+\name{CamposEx5.1.10.4}
+\alias{CamposEx5.1.10.4}
+\title{Avaliação do Aproveitamento de Alunos Utilizando Dois Métodos.}
+\format{Um \code{data.frame} com 10 observações e 2 variáveis, em
+ que
+
+\describe{
+
+\item{\code{X}}{ Avaliação do Método A (Tradicional). }
+
+\item{\code{Y}}{ Avaliação do Método B. }
+
+}}
+\source{
+DE CAMPOS; HUMBERTO (1983), ExercÃcio 5.1.10.4, pág. 170.
+}
+\description{
+Dois métodos (A e B) de avaliação do aproveitamento de alunos forma
+utilizados. O método A representando o tradicional e o método B, a avaliação através de
+questionários e entrevista pessoais. Foram tomadas amostras de dez alunos para cada método.
+}
+\examples{
+
+library(lattice)
+
+data(CamposEx5.1.10.4)
+str(CamposEx5.1.10.4)
+
+boxplot(CamposEx5.1.10.4$X, CamposEx5.1.10.4$Y,
+ names=c("Método A (X)","Método B (Y)"))
+
+ansari.test(CamposEx5.1.10.4$X, CamposEx5.1.10.4$Y)
+
+}
+\keyword{TODOS}
+
--
GitLab