From 24682509de35ebd7ebd65b5d01207ed5888ba968 Mon Sep 17 00:00:00 2001
From: Guilherme Hathy <guilhermehathy@hotmail.com>
Date: Wed, 5 Oct 2016 18:07:49 -0300
Subject: [PATCH] Capitulo 4
---
.RData | Bin 0 -> 2851 bytes
R/CamposEg4.1.9.1.R | 34 ++++++++++++++++++++++++++
R/CamposEg4.1.9.2.R | 31 ++++++++++++++++++++++++
R/CamposEg4.3.8.R | 31 ++++++++++++++++++++++++
R/CamposEx4.1.10.4.R | 33 +++++++++++++++++++++++++
R/CamposEx4.1.10.6.R | 36 ++++++++++++++++++++++++++++
R/CamposEx4.3.9.R | 30 +++++++++++++++++++++++
data-raw/CamposEg4.1.9.1.txt | 9 +++++++
data-raw/CamposEg4.1.9.2.txt | 11 +++++++++
data-raw/CamposEg4.3.8.txt | 11 +++++++++
data-raw/CamposEx4.1.10.4.txt | 11 +++++++++
data-raw/CamposEx4.1.10.6.txt | 16 +++++++++++++
data-raw/CamposEx4.3.9.txt | 16 +++++++++++++
data/CamposEg4.1.9.1.rda | Bin 0 -> 262 bytes
data/CamposEg4.1.9.2.rda | Bin 0 -> 272 bytes
data/CamposEg4.3.8.rda | Bin 0 -> 269 bytes
data/CamposEx4.1.10.4.rda | Bin 0 -> 289 bytes
data/CamposEx4.1.10.6.rda | Bin 0 -> 260 bytes
data/CamposEx4.3.9.rda | Bin 0 -> 264 bytes
man/CamposEg4.1.9.1.Rd | 41 +++++++++++++++++++++++++++++++
man/CamposEg4.1.9.2.Rd | 38 +++++++++++++++++++++++++++++
man/CamposEg4.3.8.Rd | 39 ++++++++++++++++++++++++++++++
man/CamposEx4.1.10.4.Rd | 41 +++++++++++++++++++++++++++++++
man/CamposEx4.1.10.6.Rd | 44 ++++++++++++++++++++++++++++++++++
man/CamposEx4.3.9.Rd | 38 +++++++++++++++++++++++++++++
25 files changed, 510 insertions(+)
create mode 100644 .RData
create mode 100644 R/CamposEg4.1.9.1.R
create mode 100644 R/CamposEg4.1.9.2.R
create mode 100644 R/CamposEg4.3.8.R
create mode 100644 R/CamposEx4.1.10.4.R
create mode 100644 R/CamposEx4.1.10.6.R
create mode 100644 R/CamposEx4.3.9.R
create mode 100644 data-raw/CamposEg4.1.9.1.txt
create mode 100644 data-raw/CamposEg4.1.9.2.txt
create mode 100644 data-raw/CamposEg4.3.8.txt
create mode 100644 data-raw/CamposEx4.1.10.4.txt
create mode 100644 data-raw/CamposEx4.1.10.6.txt
create mode 100644 data-raw/CamposEx4.3.9.txt
create mode 100644 data/CamposEg4.1.9.1.rda
create mode 100644 data/CamposEg4.1.9.2.rda
create mode 100644 data/CamposEg4.3.8.rda
create mode 100644 data/CamposEx4.1.10.4.rda
create mode 100644 data/CamposEx4.1.10.6.rda
create mode 100644 data/CamposEx4.3.9.rda
create mode 100644 man/CamposEg4.1.9.1.Rd
create mode 100644 man/CamposEg4.1.9.2.Rd
create mode 100644 man/CamposEg4.3.8.Rd
create mode 100644 man/CamposEx4.1.10.4.Rd
create mode 100644 man/CamposEx4.1.10.6.Rd
create mode 100644 man/CamposEx4.3.9.Rd
diff --git a/.RData b/.RData
new file mode 100644
index 0000000000000000000000000000000000000000..8dd16676eb3a51d322df64210f275e11d6ae123d
GIT binary patch
literal 2851
zcmb2|=3oE==G1AGHdF3OACpf`nUrea<<w)#!=`AGymHM=x3&{H+q!g&JwyaOzomHl
zOj}`4b~9^@VCJV&)3ydpvfad6_vzYi_x+zO&+j}}Joo+cUGqO*FOGhdJTWK2jDf*{
z!MH>6##{ylwzqmd3=%i?ua2pz;Me!Rq!}*SBILx}$ik3z&sK)PqFmlA<a=@V`-g|l
z2mU>}AzL`TEAV}5y`+0!tzI?r*Dl}N+RNwjUKLK)-+M`<UFueA*~$Mu8e=cV{Zh|L
z&_DKR|DEgmciLMzR~z11QNG`xd*=Uh|6ktM{!stEe#ia$pRaF?Sogqoj^}Ra7xz;C
zna(Wvms9fpSm(QnOY(pEPd;l=e=MkHx7)M+;qO|Tzk>Bz1%FlvY})<i&6_`WroP>u
zP}ZXQuWRyh_NFIq-h9#L|8&!K-}lunhFfN^+Ws%oQM-TiXry|gV#*WM^+#JLT<TD;
zo#WK<bKBxiKjxm~%93sVUod6v%_-Hv4##UADo$uwQhC3?V%zF9Jc2PP!cHZ&JN!Ch
z!}h=XCi=7>lGE$1e@=?m(koJ1WS@u%*d92ccRpRa(Rjl2gxO0TO>utwLZWa-R$ln?
ztSeeuYmP=Pxt8-T;_yz@=g$wYyqPUG&%cIg{f9#_5r(@Z-n>Yfy{U1>ntG$07r)pe
z+?Jg!yXK{ymYUnA|LfZ6iY8v(3v$glA^a!&V={JMo+mY}Jpb~#8l_(4xe9N)9=@F1
z{3W_!E$fV*ZWcn5i{v}B+wyAnismnW>$q-(#(ozehb}$~eXgVLzpU_c@z}Gm(M~%^
zPyRv7h8cT{xM%!llKX42TPxYe_*Vh9nW5~H{q|C3eHGkIA6n-3{a=<U+3_&4F6Q{c
z!$Aelein%|>29?tQm^>3PM!VBqov9`rB~m+&|mHG>1;rF;l0R7MZwn+6nEZgdthH4
ze7V_RDJ$QC^>VwVdH1b<v~o>B!K{Km1ry}`Zk*D5zHxW@;<{xyC+E7I%ZpwR@c56&
zr5Sr|>mOgUX#Du_T=<kOo|g4ny@S{F3-L=ST<we5UVr8M9Odte41$V$U8KJ`Zh17-
zt?PSG%7UOzAJ2aNy+=HITJf@5+olO!zxU#GlyXFGb+5b1^`h!T#@W)3HRmpu+i^6t
zFd$N8Jx}43iZqvq%nLL2SbpWwxaGJ~{ifH7wuv*pn`a)~wtn~gZ>OK0eWqQ&_RROv
z(`82MLQ{1#v-f@PSn%OVdBL@E{%Mh3;{8o2mwWH<7%#oF!MSWotzg3YPLXpClX&mn
z?(h2$E^%R@#_T;l%E3o{`p-Yvb$h)jXU?kl^Oqi1@T;mA|M0yismD<Kv|(L_w<dSU
z<6ReHb{#%%q7&;I7FX%{;H=-D4?CZ(GfY0T_0;6_bf1j#Vw?V+65Te3zhteJ$vlC+
z2?uyOOdU-6St|I8c%SY*xMrT3d2{v7^r_LauYTpJzNfWtZrkbR&&N|<M$bQX@bu>!
za}-O?D0co7O}w%qD?2)Z{m!4gM|daw+qtx5&ZJB!c`d8Was1^U7wvk`T;TqCd4l3T
zJxAl5JC6kFUvEjtnsDEK#ysYO#><lCDzDLw+p@EIF6Uc&Ke_iZ?i)^Nm=?rtowcq)
z=G3e^9>z<eZl=v_@N3Qrk!lrM?RsBS{O78LQ4((Jmnj}sS{wY~`*TZW*}79j9;zF8
zgPae#gwASMyKY+D-Kss$p7ZX|KgRsXaZT^CS>L$*o@uK&*>$&Zd}&OOdtbC<<z_wg
zuxD&9XR6k``?PCGm-hDd%8c(i$Lx;_?ao^uay<4G*Ml!!>@SyZdHiOtn~UylgVm~i
zSEadKU%CC-^u+Sb!Sny;oOt&nPU73X!2F6giar*3TTTWyH&u%(i?U?e_+S4f)KvdR
zDRO~rxkA;krojJuFNsQiyuq$}p=0d_QzN4c*<Eq3y|kOdW^$cR*+2Jaz`2#5VlG51
zZ#mGiyXnfUg5#wgzV?@AF6BHsyY-5%vF-w|+v=8SaU1vC46oVswYe(d__qtnLB%!6
z3mKHz9{9dm+xkjqjXJ|R%Nf(!>UaD+Z4_hXaqM8jv%ur${tB49S+X|yq-hiP#T~M}
zKQG3cFBO@y#nGR~Y`RvZwz_oPTpf`&GhWn~a6JF}sMf^fkse=(@%v=Ez%>rNo=do=
zuRQ4?yG3L7E1OLPn`N&uiO)G;=JzY^G@s+t8y=C@7i;=STv&PAx6t*K(vEN6etEvL
z`@Hev&;H7#*?IpHTzzIaMM?a=_}5#%bD6{T+gvks9<UV}t6$xfYjIgq<GiH1eV>Z%
z)GhO7eVx6d?bCZT{;f<dKg3r%v;I+9#<zR+`4h?4w-_A}tvM%pw({(KSuy_WTLPb-
z%k}Jce0}NfjN7l*ch-BZn%d8+TW#yQJE1hB`<{1q`GNP%>E|{&SM0LA(cLR4>3?CD
z&7IR>ina64A5?g8`I6WlS9PZRm6u|ly58}&`?0FVi^rEIW!fRz{jV~Vm^tO@XaCiS
zzLdOqf#e*q++Rz#|Kr=d!hgPQ-od(#MgLunG5;1}w%?fg=%s7knG3s?m&;vC3%a>w
zowlXjEEldzvfGw?=dw<fuf3sHTXS}rtbpL^>o+R;=PWC}d`Pz{#7Skztya6FtZJWY
zkGV@+(!0J|7%tiz+u15MTZwn&y;$RBna3$-FRHnfc5Jy)R;XARxUuf}%vYDH_Uw5i
zy!PIm11a;K&!6=Dw(Q1Fefb=BIHO!M4z$U=c_DTG98+7zk*cq&n4cZv<SJ;N6~_EL
z`uB~g&faf47yYqaa?$L-<ju^+8)7WKE`EEwZA!gu?1M|LJ7fCxrGC+T?Q(jfK+M<I
z1!e6f^FC&&h8|M?bD2r@po?&@-_HeC3sj#xvewmSb~LO#QgDFbzU1WWhXIL4SG+&*
zYr6Qp<hnI|uctk$S$rqMigBm*&qX1<zc)lUx=+~=%)4~?JD*usT=z`<K5a(E)y>B<
zCHNN93-um9|2^#f#C;z>2DZ%XtoiA8Uuph)`_1RCrfKQM@=f5B7pZyhc-}KUS+5=6
zL|K*}yMJZH#d75`_dXfHo`+7yV(hnXe8n)InP-in_@fZ}lYDbRr?5*eSvLQb(Lug>
zR+l<-S14p&kW+JvI`S}tYkkzU9MQ`;W&iiJ9X<VP-sze9xGnpVRS&Ct?Y?`B{qF*!
zB#V}(OFqp}dvW<Wi+)|>tix^o*Z6;YTyB`MAoX}$`vKYNTP6E!s}FCxTQ|iZ*hAxT
z--)d$Q=|6n7dW|1D0{`%y?I`tj~1?K*%<h*W9ICRi!DcQ+Q{#1`4C#Gf9-(k&s9gm
z%jW##Jk#^DdCvl?BL8Y(ZqKd9-(;q)aTJ_>NPLz2yzdiZw!e=(FXrv}J>t~0U*D~t
z$ZXy9=iKu*jKVc9-zWXt5p}x%Mw^|5X}Z0*P|Eam_Pc){_Wrp2)uELo3Vx@y-nSEY
zx=U1eV(G4Hk5b-6eP#F*_&RA(sQ(<B%DN`Wl)t*_saEzf@=FeVs#ty9-hBS)<5pev
zCC^>nuMU}idBUnIUj=Q=oZWt04PRSuZR6$(;xBH_igEgw8pv_4?k$(usuC5uhzCK*
z?q}@oa^LH2e#4P;jN{;&58;272E5?kt>ZGI<3>C0)2D4Lr}d9_cr=zRyfpXdnbS*;
z?3mm?=bC!7P<G$C-OG;11Zv%I|G2xG+r!FQcgpdtcio@r&Mz<K$gz{X_VzP#fyNfS
zRU(etj&Lzwc(VEa6tm=WtE=|vgn03<w)M;VaKzRtZhN(a_~}BEQ*yN%|DOF3v?}VX
zbZk`J)O<DbOYe)~axdoGvu=xR+iti&cI$QDtm+mct;KT6Crlg+g5SkWWi@`eB<sia
zjnfJmR+~@wT>rJo=g9rPy4+ceH>5KjY<K#1^?~ht)8GC7vLybqvj>IFTgJ`6000CD
BuU!BD
literal 0
HcmV?d00001
diff --git a/R/CamposEg4.1.9.1.R b/R/CamposEg4.1.9.1.R
new file mode 100644
index 00000000..00e455ab
--- /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 00000000..6609b03c
--- /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 00000000..6411105b
--- /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 00000000..aab23dc3
--- /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 00000000..59680187
--- /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 00000000..ec5be689
--- /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 00000000..9e11d7d3
--- /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 00000000..4b52e92a
--- /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 00000000..622a640d
--- /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 00000000..a7421b24
--- /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 00000000..4a816cb6
--- /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 00000000..04ef1b2c
--- /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
GIT binary patch
literal 262
zcmZ>Y%CIzaj8qGbJlj^x%)n6o|NFnsClnkQZ4~@iWWVXR-)T6=z+n);!obF$z`)|*
zxPf8Yi7YOjStblsZOzVCG9+!4FY$X$V98o`<*SsWgu@Y@8OpwFJv{;pUMh_X7#J5Y
zWH380E4y!4>&DI%;V?-xe?IHusS6e=#A@wI7C*mb5r^UC<Jt-gvrdJUt>RS@ohZVe
z$YjX$<FnvI$A(+mG?dJKc6bREdgW@xHXiq2Qk>@%zNwnc?6Sym&F@;vZ9c47V9M0T
zw{?zC=29WUNug6F2w#$X`hoAtyKVRVBD|NCGbVF%+9<PB{QA$3`DNx=CXU3uz7wtX
TE+X-d-gzwN5|Z3-E+GK`P2glK
literal 0
HcmV?d00001
diff --git a/data/CamposEg4.1.9.2.rda b/data/CamposEg4.1.9.2.rda
new file mode 100644
index 0000000000000000000000000000000000000000..d1de77cd58c7f05a1561549c272289ebc87f1b55
GIT binary patch
literal 272
zcmZ>Y%CIzaj8qGbd}YS$&%jXn|NcMYGmH(6CQADn3|#cv?@VxF=wM`U5SVCvL4k*v
zaRbA(6DA#Pm!x<ZOqdleNHKO!;P(&+`Qq#!>^Om0;NpT59*4|jj>{A#d9fUrX~2?_
zWRljvz+&rW5+FQPVbvs2%|+@=w|kW(RA)Xp;`HgesR9$zOqtGB7anFuH5LN{mpxV*
zCzT)med8n*J*js~)PFbUqsMMvKCiHF%a7U_Gbc`EUT)>I<(;PF2Ca@+d^>I(m@rwO
zuzk9qE5}0?>4}`_EE6vOEo4}9aYOe5{k^Z%`ZA0ktoPtP<!fNi{3Ln0nG5rym<N&;
fvCOMZJYK`B#J=15O~KuxcP9FYs95zjTs{B*K$C7Z
literal 0
HcmV?d00001
diff --git a/data/CamposEg4.3.8.rda b/data/CamposEg4.3.8.rda
new file mode 100644
index 0000000000000000000000000000000000000000..55baa1af5498a2248e24859bbbd1c643421f955d
GIT binary patch
literal 269
zcmZ>Y%CIzaj8qGbTqg23k%6J{|NVc)KI{#NGEQ|31}^&TcV;*-^e{3w2(U3UDDW^d
zZeX}}npadxI@qm&;j)9tEw^T8hg<U|u!tIE+!9=@IN@T4Nd{Z9+f0)KJe|HK3=9km
z%nl5^(t$O6B3&=kk}t4KbO>g86*S|)vh`^KGH=hG_#hz4;p6h^iGh^L0v5Xk8Uhz=
z1TVBqoR_hphqKhP{9=LJ1P<#5%>wQ7Zr|Mg$mZZ;0r?|OX6E175HXia!d_?cLYw(Z
z*cWlS1huYpvQ+8i(oL8nv3s?JaAb7GDOR~Td9!Y@=bZNTW)$Fb?2u=CBxO0>z(k8}
a{)$7F1ouzg5D><_Q)!NdM=)36h6Vts?Pb3J
literal 0
HcmV?d00001
diff --git a/data/CamposEx4.1.10.4.rda b/data/CamposEx4.1.10.4.rda
new file mode 100644
index 0000000000000000000000000000000000000000..75adcb3293617fbfc7a9133f87b56b975c21d941
GIT binary patch
literal 289
zcmZ>Y%CIzaj8qGboF69ri-Do$|NnoReHa@YYnb{P3{v#j?_4;<&|o0L$lxHsz|f$;
z<NSXE!?hzOAz#!cUrM=r(ZnQ0Dt!@0%4MGm{wBc}uKZbW<<h(bnH?8QOc)oiDRwYB
zFc_RvF)?9axWHh-z_>t)L6-eML9>P@Yp_eGkWGTaRF*rF*xDc}wJ_NIg3m`^ju
zv?l@^nLIT-q(hh*Dy9k+G&JpRco3nQD*4RsScu@e$i@#kOYN-%IX3((U7WwtJC23V
z;!F9K<ucB1x7z3}Z;&;S;M^bnZqjpMpM@e54}9uA=KUZjFMZCvpntXHGUu5?ADDdn
wvY?eYQt!>eu<k~K=N$(+8(TJrH6$457#OrnXVTFAv3ru{p_Z0k8}45K0A&t(*Z=?k
literal 0
HcmV?d00001
diff --git a/data/CamposEx4.1.10.6.rda b/data/CamposEx4.1.10.6.rda
new file mode 100644
index 0000000000000000000000000000000000000000..ced7b62855d4f2f1889d41021baf8740294858c4
GIT binary patch
literal 260
zcmZ>Y%CIzaj8qGbR5?+*mVsgM|1bYGp9uNiSj*tYAdsNXe&@ge1_lEG1_rhS#tjVD
zQcSd@*qR+o7#Ck*T<q4?cIB^!l&2A|iGiuf$puF)E|4-wIh3F>#o^)t1_lO`3sMZs
zKiRfQZu7f&=Y+GSNowN_R|RHm#TJRimL2B=By_gTacS1uU;S8R@|(tQxzjGZ(C##H
zd@0ZFcwy2hCB}BfnFr@da@sPtsfifPVC6CR@af&9lnW6*WpoQ)?p(+@kwdY0PDYyK
z;}A)+a@Vj<)#<io(<UkP-|7EZyMbY9==0dOe9Tb|*A$F8Iy(Ceqh~Zt=n<BgSL^<w
SP5Q^~Nt%aR8r7WNW&i+h$!qKY
literal 0
HcmV?d00001
diff --git a/data/CamposEx4.3.9.rda b/data/CamposEx4.3.9.rda
new file mode 100644
index 0000000000000000000000000000000000000000..81acd22690ec722c66f87c0d25fe60aa3673c434
GIT binary patch
literal 264
zcmZ>Y%CIzaj8qGb{MDs@m4RWw|1bZx|M|nfD5LO?LBK(u{my{{3=9SW3=C`uoEsRf
zZ7{hikhy^20>g!j3=>{{H4j5g-X%P}3}9dsQZ<WBS>UoSv*T9A1s5_*E>|gO#LxQb
zabJn)*Bs?GmkCMpE;T9gab9sgeE;722`o|nJ_V|5YPszaC#2O7ugb|-&+=deD`O(p
z@i3n=lE#{e>`IQe=g#AZ^AYe+i0PD)-F<{_K~D>BceuuNzZ;pnnrFm46((?$3*3I4
zVpy3hrW&+m&z4p}mDh?ztgjhQ^=$h6&njN0M$Ch)@P=Bdz!KR*jMZO+wbGkRSw5eV
RVgIpvlIEe7_A7yPD*zXCX3_uv
literal 0
HcmV?d00001
diff --git a/man/CamposEg4.1.9.1.Rd b/man/CamposEg4.1.9.1.Rd
new file mode 100644
index 00000000..b74a0012
--- /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 00000000..46bb7f5a
--- /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 00000000..692464e9
--- /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 00000000..f0e5c33f
--- /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 00000000..12ecfc27
--- /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 00000000..8880b6c0
--- /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}
+
--
GitLab