From 757dc11a163eeb0b1cfbfab9e337f56b9aae038a Mon Sep 17 00:00:00 2001
From: Guilherme Hathy <guilhermehathy@hotmail.com>
Date: Fri, 14 Oct 2016 17:51:22 -0300
Subject: [PATCH] Capitulo 7

---
 R/CamposEg7.1.6.1.R          |  33 +++++++++++++++++++++++++++
 R/CamposEg7.1.6.2.R          |  34 ++++++++++++++++++++++++++++
 R/CamposEg7.3.1.1.R          |  32 ++++++++++++++++++++++++++
 R/CamposEg7.3.1.4.R          |  33 +++++++++++++++++++++++++++
 R/CamposEx7.1.7.1.R          |  33 +++++++++++++++++++++++++++
 R/CamposEx7.1.7.4.R          |  34 ++++++++++++++++++++++++++++
 data-raw/CamposEg7.1.6.1.txt |   6 +++++
 data-raw/CamposEg7.1.6.2.txt |   6 +++++
 data-raw/CamposEg7.3.1.1.txt |   5 +++++
 data-raw/CamposEg7.3.1.4.txt |   6 +++++
 data-raw/CamposEx7.1.7.1.txt |   7 ++++++
 data-raw/CamposEx7.1.7.4.txt |   6 +++++
 data/CamposEg7.1.6.1.rda     | Bin 0 -> 258 bytes
 data/CamposEg7.1.6.2.rda     | Bin 0 -> 186 bytes
 data/CamposEg7.3.1.1.rda     | Bin 0 -> 227 bytes
 data/CamposEg7.3.1.4.rda     | Bin 0 -> 283 bytes
 data/CamposEx7.1.7.1.rda     | Bin 0 -> 231 bytes
 data/CamposEx7.1.7.4.rda     | Bin 0 -> 183 bytes
 man/CamposEg7.1.6.1.Rd       |  41 ++++++++++++++++++++++++++++++++++
 man/CamposEg7.1.6.2.Rd       |  42 +++++++++++++++++++++++++++++++++++
 man/CamposEg7.3.1.1.Rd       |  40 +++++++++++++++++++++++++++++++++
 man/CamposEg7.3.1.4.Rd       |  41 ++++++++++++++++++++++++++++++++++
 man/CamposEx7.1.7.1.Rd       |  41 ++++++++++++++++++++++++++++++++++
 man/CamposEx7.1.7.4.Rd       |  42 +++++++++++++++++++++++++++++++++++
 24 files changed, 482 insertions(+)
 create mode 100644 R/CamposEg7.1.6.1.R
 create mode 100644 R/CamposEg7.1.6.2.R
 create mode 100644 R/CamposEg7.3.1.1.R
 create mode 100644 R/CamposEg7.3.1.4.R
 create mode 100644 R/CamposEx7.1.7.1.R
 create mode 100644 R/CamposEx7.1.7.4.R
 create mode 100644 data-raw/CamposEg7.1.6.1.txt
 create mode 100644 data-raw/CamposEg7.1.6.2.txt
 create mode 100644 data-raw/CamposEg7.3.1.1.txt
 create mode 100644 data-raw/CamposEg7.3.1.4.txt
 create mode 100644 data-raw/CamposEx7.1.7.1.txt
 create mode 100644 data-raw/CamposEx7.1.7.4.txt
 create mode 100644 data/CamposEg7.1.6.1.rda
 create mode 100644 data/CamposEg7.1.6.2.rda
 create mode 100644 data/CamposEg7.3.1.1.rda
 create mode 100644 data/CamposEg7.3.1.4.rda
 create mode 100644 data/CamposEx7.1.7.1.rda
 create mode 100644 data/CamposEx7.1.7.4.rda
 create mode 100644 man/CamposEg7.1.6.1.Rd
 create mode 100644 man/CamposEg7.1.6.2.Rd
 create mode 100644 man/CamposEg7.3.1.1.Rd
 create mode 100644 man/CamposEg7.3.1.4.Rd
 create mode 100644 man/CamposEx7.1.7.1.Rd
 create mode 100644 man/CamposEx7.1.7.4.Rd

diff --git a/R/CamposEg7.1.6.1.R b/R/CamposEg7.1.6.1.R
new file mode 100644
index 00000000..e4525b28
--- /dev/null
+++ b/R/CamposEg7.1.6.1.R
@@ -0,0 +1,33 @@
+#' @name CamposEg7.1.6.1
+#' @title Influência do Tamanho do Disco na Aração
+#' @description Numa pesquisa realizada pelo Dr. Aldo Duvilio Ometto, do Departamento de 
+#' Engenharia Rural da E.S.A. "Luiz de Queiroz", sobre a "Influencia do Tamanho do Disco de 
+#' Aração", foram provados três diâmetros distintos ou sejam:
+#' D1 = 26 cm; D2 = 28 cm; D3 = 30 cm.
+#' @format Um \code{data.frame} com 5 observações e 3 variáveis, em que
+#'      
+#'
+#' \describe{
+#'
+#' \item{\code{D1}}{ Resultados parciais de "esforço de tração", em kgf,para D1. }
+#'
+#' \item{\code{D2}}{ Resultados parciais de "esforço de tração", em kgf,para D2. }
+#'
+#' \item{\code{D3}}{ Resultados parciais de "esforço de tração", em kgf,para D3. }
+#'
+#' }
+#' @keywords TODOS
+#' @source DE CAMPOS; HUMBERTO (1983), Exemplo 7.1.6.1, pág. 206.
+#' @examples
+#' 
+#'library(lattice)
+#'
+#'data(CamposEg7.1.6.1)
+#'str(CamposEg7.1.6.1)
+#'
+#'boxplot(CamposEg7.1.6.1$D1, CamposEg7.1.6.1$D2, CamposEg7.1.6.1$D3,
+#'        names=c("D1","D2","D3"))
+#'
+#'kruskal.test(CamposEg7.1.6.1)
+#'
+NULL
diff --git a/R/CamposEg7.1.6.2.R b/R/CamposEg7.1.6.2.R
new file mode 100644
index 00000000..f03e2005
--- /dev/null
+++ b/R/CamposEg7.1.6.2.R
@@ -0,0 +1,34 @@
+#' @name CamposEg7.1.6.2
+#' @title Experimento de Alimentação de Porcos.
+#' @description PIMENTEL GOMES (1978) apresenta um exemplo de um experimento (fictício) de 
+#' alimentação de porcos, em que se usaram quadros rações (A,B,C e D), cada uma fornecida a 
+#' cinco animais, escolhidos ao acaso.
+#' @format Um \code{data.frame} com 5 observações e 4 variáveis, em que
+#'      
+#'
+#' \describe{
+#'
+#' \item{\code{A}}{ Aumento de peso (em Kg), utilizando a ração A. }
+#'
+#' \item{\code{B}}{ Aumento de peso (em Kg), utilizando a ração B. }
+#'
+#' \item{\code{C}}{ Aumento de peso (em Kg), utilizando a ração C. }
+#'
+#' \item{\code{D}}{ Aumento de peso (em Kg), utilizando a ração D. }
+#'
+#' }
+#' @keywords TODOS
+#' @source DE CAMPOS; HUMBERTO (1983), Exemplo 7.1.6.2, pág. 207.
+#' @examples
+#' 
+#'library(lattice)
+#'
+#'data(CamposEg7.1.6.2)
+#'str(CamposEg7.1.6.2)
+#'
+#'boxplot(CamposEg7.1.6.2$A, CamposEg7.1.6.2$B, CamposEg7.1.6.2$C, CamposEg7.1.6.2$D,
+#'        names=c("A","B","C","D"))
+#'
+#'kruskal.test(CamposEg7.1.6.2)
+#'
+NULL
diff --git a/R/CamposEg7.3.1.1.R b/R/CamposEg7.3.1.1.R
new file mode 100644
index 00000000..32bb2eed
--- /dev/null
+++ b/R/CamposEg7.3.1.1.R
@@ -0,0 +1,32 @@
+#' @name CamposEg7.3.1.1
+#' @title Pesquisa Sobre Qualidade de Vinho.
+#' @description Numa pesquisa sobre qualidade de vinho, foram provados tês tipos, por cinco 
+#' degustadores. Cada degustador provou doze amostras (quatro de cada tipo) e atribuiu a cada 
+#' uma notas de zero a dez.
+#' @format Um \code{data.frame} com 4 observações e 3 variáveis, em que
+#'      
+#'
+#' \describe{
+#'
+#' \item{\code{t1}}{ Média das notas atribuídas pelos cinco degustadores ao vinho do tipo 1. }
+#'
+#' \item{\code{t2}}{ Média das notas atribuídas pelos cinco degustadores ao vinho do tipo 2. }
+#'
+#' \item{\code{t3}}{ Média das notas atribuídas pelos cinco degustadores ao vinho do tipo 3. }
+#'
+#' }
+#' @keywords TODOS
+#' @source DE CAMPOS; HUMBERTO (1983), Exemplo 7.3.1.1, pág. 221.
+#' @examples
+#' 
+#'library(lattice)
+#'
+#'data(CamposEg7.3.1.1)
+#'str(CamposEg7.3.1.1)
+#'
+#'boxplot(CamposEg7.3.1.1$t1, CamposEg7.3.1.1$t2, CamposEg7.3.1.1$t3,
+#'        names=c("Tipo 1","Tipo 2","Tipo 3"))
+#'
+#'kruskal.test(CamposEg7.3.1.1)
+#'
+NULL
diff --git a/R/CamposEg7.3.1.4.R b/R/CamposEg7.3.1.4.R
new file mode 100644
index 00000000..a6d91082
--- /dev/null
+++ b/R/CamposEg7.3.1.4.R
@@ -0,0 +1,33 @@
+#' @name CamposEg7.3.1.4
+#' @title Variedades de Cana-de-açúcar.
+#' @description Num experimento de composição de variedades de cana-de-açúcar, foram 
+#' registrados os rendimentos, em Kg, de açúcar por tonelada de cana.
+#' @format Um \code{data.frame} com 5 observações e 4 variáveis, em que
+#'      
+#'
+#' \describe{
+#'
+#' \item{\code{co413}}{ Rendimento em Kg, de açúcar por tonelada de cana. }
+#'
+#' \item{\code{co419}}{ Rendimento em Kg, de açúcar por tonelada de cana. }
+#'
+#' \item{\code{co421}}{ Rendimento em Kg, de açúcar por tonelada de cana. }
+#'
+#' \item{\code{co678}}{ Rendimento em Kg, de açúcar por tonelada de cana. }
+#'
+#' }
+#' @keywords TODOS
+#' @source DE CAMPOS; HUMBERTO (1983), Exemplo 7.3.1.4, pág. 225.
+#' @examples
+#' 
+#'library(lattice)
+#'
+#'data(CamposEg7.3.1.4)
+#'str(CamposEg7.3.1.4)
+#'
+#'boxplot(CamposEg7.3.1.4$co413, CamposEg7.3.1.4$co419, CamposEg7.3.1.4$co421, CamposEg7.3.1.4$co678,
+#'        names=c("Co 413","Co 419","Co 421", "Co 678"))
+#'
+#'kruskal.test(CamposEg7.3.1.4)
+#'
+NULL
diff --git a/R/CamposEx7.1.7.1.R b/R/CamposEx7.1.7.1.R
new file mode 100644
index 00000000..fdef082a
--- /dev/null
+++ b/R/CamposEx7.1.7.1.R
@@ -0,0 +1,33 @@
+#' @name CamposEx7.1.7.1
+#' @title Eficiência de Inseticidas no Feijoeiro. 
+#' @description Num experimento sobre a eficiência de inseticidas no feijoeiro, foram 
+#' obtidos resultados de produção (em Kg/ha).
+#' @format Um \code{data.frame} com 6 observações e 4 variáveis, em que
+#'      
+#'
+#' \describe{
+#'
+#' \item{\code{t1}}{ Testemunha. }
+#'
+#' \item{\code{t2}}{ Ekatin. }
+#'
+#' \item{\code{t3}}{ Diazon. }
+#'
+#' \item{\code{t4}}{ EPN. }
+#'
+#' }
+#' @keywords TODOS
+#' @source DE CAMPOS; HUMBERTO (1983), Exercício 7.1.7.1, pág. 209.
+#' @examples
+#' 
+#'library(lattice)
+#'
+#'data(CamposEx7.1.7.1)
+#'str(CamposEx7.1.7.1)
+#'
+#'boxplot(CamposEx7.1.7.1$t1, CamposEx7.1.7.1$t2, CamposEx7.1.7.1$t3, CamposEx7.1.7.1$t4,
+#'        names=c("Testemunha","Ekatin","Diazinon", "EPN"))
+#'
+#'kruskal.test(CamposEx7.1.7.1)
+#'
+NULL
diff --git a/R/CamposEx7.1.7.4.R b/R/CamposEx7.1.7.4.R
new file mode 100644
index 00000000..87662540
--- /dev/null
+++ b/R/CamposEx7.1.7.4.R
@@ -0,0 +1,34 @@
+#' @name CamposEx7.1.7.4
+#' @title Pesquisa para Testar a Eficiência de Quatro Panelas de Pressão. 
+#' @description Numa pesquisa realizada a fim de verificar a eficiência de quatro panelas de
+#' pressão, no cozimento de feijão, foram registradas as consistências do produto, após 25 
+#' minutos de cozimento.
+#' @format Um \code{data.frame} com 5 observações e 4 variáveis, em que
+#'      
+#'
+#' \describe{
+#'
+#' \item{\code{P1}}{ Consistência do produto, após 25 minutos de cozimento na panela 1. }
+#'
+#' \item{\code{P2}}{ Consistência do produto, após 25 minutos de cozimento na panela 2. }
+#'
+#' \item{\code{P3}}{ Consistência do produto, após 25 minutos de cozimento na panela 3. }
+#'
+#' \item{\code{P4}}{ Consistência do produto, após 25 minutos de cozimento na panela 4. }
+#'
+#' }
+#' @keywords TODOS
+#' @source DE CAMPOS; HUMBERTO (1983), Exercício 7.1.7.4, pág. 211.
+#' @examples
+#' 
+#'library(lattice)
+#'
+#'data(CamposEx7.1.7.4)
+#'str(CamposEx7.1.7.4)
+#'
+#'boxplot(CamposEx7.1.7.4$P1, CamposEx7.1.7.4$P2, CamposEx7.1.7.4$P3, CamposEx7.1.7.4$P4,
+#'        names=c("Panela 1","Panela 2","Panela 3", "Panela 4"))
+#'
+#'kruskal.test(CamposEx7.1.7.4)
+#'
+NULL
diff --git a/data-raw/CamposEg7.1.6.1.txt b/data-raw/CamposEg7.1.6.1.txt
new file mode 100644
index 00000000..8571f4f4
--- /dev/null
+++ b/data-raw/CamposEg7.1.6.1.txt
@@ -0,0 +1,6 @@
+D1	D2	D3
+2212.8	2195.2	1770.3
+2025.3	2031.5	1800
+1989	1876.5	1852.8
+2232.8	1750.3	1769
+2027.8	1060.3	NA
diff --git a/data-raw/CamposEg7.1.6.2.txt b/data-raw/CamposEg7.1.6.2.txt
new file mode 100644
index 00000000..69caa91a
--- /dev/null
+++ b/data-raw/CamposEg7.1.6.2.txt
@@ -0,0 +1,6 @@
+A	B	C	D
+35	40	39	27
+19	35	27	12
+31	46	20	13
+15	41	29	28
+30	33	45	30
diff --git a/data-raw/CamposEg7.3.1.1.txt b/data-raw/CamposEg7.3.1.1.txt
new file mode 100644
index 00000000..c8cce696
--- /dev/null
+++ b/data-raw/CamposEg7.3.1.1.txt
@@ -0,0 +1,5 @@
+t1	t2	t3
+5	8.3	9.2
+6.7	9.3	8.7
+7	8.6	7.3
+6.8	9	8.2
diff --git a/data-raw/CamposEg7.3.1.4.txt b/data-raw/CamposEg7.3.1.4.txt
new file mode 100644
index 00000000..4ff22abf
--- /dev/null
+++ b/data-raw/CamposEg7.3.1.4.txt
@@ -0,0 +1,6 @@
+co413	co419	co421	co678
+116.1	105.3	121.6	123.8
+114.4	99.9	122	122.9
+113.6	104.8	124.9	118.5
+101.6	105.1	123.3	NA
+112.7	100.2	NA	NA
diff --git a/data-raw/CamposEx7.1.7.1.txt b/data-raw/CamposEx7.1.7.1.txt
new file mode 100644
index 00000000..e50fc160
--- /dev/null
+++ b/data-raw/CamposEx7.1.7.1.txt
@@ -0,0 +1,7 @@
+t1	t2	t3	t4
+1451	1451	1368	1534
+1534	1575	1534	1658
+1493	1534	1534	1700
+1285	1493	1534	1700
+5763	6053	5970	6592
+1441	1513	1492	1648
diff --git a/data-raw/CamposEx7.1.7.4.txt b/data-raw/CamposEx7.1.7.4.txt
new file mode 100644
index 00000000..bdd69e3e
--- /dev/null
+++ b/data-raw/CamposEx7.1.7.4.txt
@@ -0,0 +1,6 @@
+P1	P2	P3	P4
+18	16	21	19
+19	14	20	17
+21	17	22	18
+18	15	19	20
+20	16	22	19
diff --git a/data/CamposEg7.1.6.1.rda b/data/CamposEg7.1.6.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..266a1d6463147739b69561d556016804e9867ec2
GIT binary patch
literal 258
zcmZ>Y%CIzaj8qGb)DSuMgn^;!|Brv0&oDSLS~mD82qfsY|7keDkYKk>p@GqZa|6S+
zjE=>MEzDA!%X-{q8nBpTZZ%uhxKxefP|BA!wFVx=Wy+2nCMiN%!I$Km<Q8)_GT5?p
zRP_jCd|R>JjO*-6?Ip?U1QMH4m#m*Lk#mkpic;m{uXBSH*nIYzFW}USSXNl@cvHub
zIK~CHOf@dtmiT<cjpuQqa*n6Jii7+2ulo-lpVqtiS>EXxj-SKlC~}&{hZrz3d}Mf@
z612}p{?#%zL#Na0t~I)H>=nKl$8dbsUk;7l;0g6pkGHe^2-3f`Qd=>!Z`z6K`a+)i
QNAEnAa|y9B&Aih90Nn9yyZ`_I

literal 0
HcmV?d00001

diff --git a/data/CamposEg7.1.6.2.rda b/data/CamposEg7.1.6.2.rda
new file mode 100644
index 0000000000000000000000000000000000000000..9531f70f145e2398bcca27badcedf12cfb125bc8
GIT binary patch
literal 186
zcmZ>Y%CIzaj8qGbl+AK~%D^z8{=h%8GyE$a8#dT62sr4s-)V4QVBlQ9(8Vj_Yt#8k
zD&xzAUItqSHn|l-UTq2{5)Ky^WSneaaER!2&~tOy;n2Y|KQp<+>*@-BnRCg}Hdj_n
z77aOl(Nx9j$jw*V6oO3FEO}~fr%~YCA>kw;Q8|yNfqAt8!v;wPx$ocHInLiRx>jd#
s@m`B}^V-c-?=*9^E^uy@SpBcyT&9BU{cX+ce_~IHJalp>T`4~W03!TNB>(^b

literal 0
HcmV?d00001

diff --git a/data/CamposEg7.3.1.1.rda b/data/CamposEg7.3.1.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..b010eb5261ad2132f7bcaccc07817052ce05180c
GIT binary patch
literal 227
zcmZ>Y%CIzaj8qGby!a|;7Xw30{gZ#jXXFYPEgJk71RV6+?=(0tFc>hfF|cl6*mmH;
z5~&m^#*P$QU*?qdDSrb@7OOP}zA}{XHAy*=pv=VSGTCk3vR+<hg%mc93yH_)yK#D}
zGO8Y)B(%thVb9wchhsOT2$sFOez<}2XaifA_3<DH7So0W^4&6Q7hd+dS*$vcwW_1@
z=?Yf0hzQ1%-nkD`cs|Z!>Nse;JUsJ)$RRBjzjNzWOB)@C`F>S~dm`iK*em-)8%4TJ
jHto9GwkcoPWs6wOTV7TFb8P%Sc2Ckg)Y8@;H1z@ipfFu3

literal 0
HcmV?d00001

diff --git a/data/CamposEg7.3.1.4.rda b/data/CamposEg7.3.1.4.rda
new file mode 100644
index 0000000000000000000000000000000000000000..64f613564302428022b6a98c41de23758bd22167
GIT binary patch
literal 283
zcmZ>Y%CIzaj8qGbyd0{wgn?no|9}6tpI~5MwSC~vAW^=){Z7LH1_pxw1_lKNHVy_4
z%?%7UCS3FnVYuwTaDlBMgV*G;<CB@}2AmBuB^V`U%<xg;$n0Fk<f<0<D$C@H!UbLi
z#+Hl=yi!%}kG}p`=owp}d$lU$E_c(WnX}(5|0*%{<xUeBo=5Y0IT>^BWv558t8uhU
z5OO$@9>u|!ex@MLh(qL*&!UM-bb7h@Z43?6CtZ(?EWY(-U)FA6jtw@-y)Wwyv`-FE
z*r)r~+_%MzS5UC8AamKnUH_99T!oIeYAzDK7S+-HL@zr`RX>5#lc8&~&iB_9Ujo@%
qA7`sOaCypaotE?I!pbkAr8kt9+T6b=@&D+ZiGCs~CRaUIG5`Q-Gj#p{

literal 0
HcmV?d00001

diff --git a/data/CamposEx7.1.7.1.rda b/data/CamposEx7.1.7.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..c145372eed7f535b4dd9da65909736206c1646a9
GIT binary patch
literal 231
zcmZ>Y%CIzaj8qGbTo=Ayi-Do{|MmYyCl@d@+BEPn2sr4o-?`wypvK|Az{bF!z#zDR
zVOx%?kz1y%j}ONI!G<1|dlOWB76%++IKs<da#?`+3a6_3loJ;+7}y#z8003b=~QS?
z?A<Oe&!X{DJU=({>plIAZ7C+#ozKnm_bP1p&AGhPtw-L~BH*L2)!{kK+RENK)3<-P
z*50YUAW^ZgW2PWa!^B3Gjh7t0ai*)h<O@h!<DjM2*1s=mzuXCd^YzaRmOd_b;J$YG
nS4hF$OA4PG1Xe^ZxLa{*@dW$4z>Y=r;zh0&0Tb4R@7DqV-d$c3

literal 0
HcmV?d00001

diff --git a/data/CamposEx7.1.7.4.rda b/data/CamposEx7.1.7.4.rda
new file mode 100644
index 0000000000000000000000000000000000000000..28585b386a5183390782471c2537c75cdff1fcab
GIT binary patch
literal 183
zcmZ>Y%CIzaj8qGbTzba+69dDf`UC%r|1&T!+BEPn1UTrk-#OsGz`(hHp_4cGlu^bh
zvst|i1`Y{deN;kvZG9P}GOBvnd>Kq+eANs%x2>Gms31S@hL_yd_6y%-R4x1-b47Le
z3Ysr*?fW{NWumn!um3jdMV&5Qjh)PFj*FNbM4cR2uTAtct<Qe)tjId$emYO1Ypm|}
ohqrZd(+UHpI!H}ieObC($d6O&e}qC*_fDlb8XiH<lz%b+0GGBzbN~PV

literal 0
HcmV?d00001

diff --git a/man/CamposEg7.1.6.1.Rd b/man/CamposEg7.1.6.1.Rd
new file mode 100644
index 00000000..c81e88c4
--- /dev/null
+++ b/man/CamposEg7.1.6.1.Rd
@@ -0,0 +1,41 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/CamposEg7.1.6.1.R
+\name{CamposEg7.1.6.1}
+\alias{CamposEg7.1.6.1}
+\title{Influência do Tamanho do Disco na Aração}
+\format{Um \code{data.frame} com 5 observações e 3 variáveis, em que
+     
+
+\describe{
+
+\item{\code{D1}}{ Resultados parciais de "esforço de tração", em kgf,para D1. }
+
+\item{\code{D2}}{ Resultados parciais de "esforço de tração", em kgf,para D2. }
+
+\item{\code{D3}}{ Resultados parciais de "esforço de tração", em kgf,para D3. }
+
+}}
+\source{
+DE CAMPOS; HUMBERTO (1983), Exemplo 7.1.6.1, pág. 206.
+}
+\description{
+Numa pesquisa realizada pelo Dr. Aldo Duvilio Ometto, do Departamento de 
+Engenharia Rural da E.S.A. "Luiz de Queiroz", sobre a "Influencia do Tamanho do Disco de 
+Aração", foram provados três diâmetros distintos ou sejam:
+D1 = 26 cm; D2 = 28 cm; D3 = 30 cm.
+}
+\examples{
+
+library(lattice)
+
+data(CamposEg7.1.6.1)
+str(CamposEg7.1.6.1)
+
+boxplot(CamposEg7.1.6.1$D1, CamposEg7.1.6.1$D2, CamposEg7.1.6.1$D3,
+       names=c("D1","D2","D3"))
+
+kruskal.test(CamposEg7.1.6.1)
+
+}
+\keyword{TODOS}
+
diff --git a/man/CamposEg7.1.6.2.Rd b/man/CamposEg7.1.6.2.Rd
new file mode 100644
index 00000000..d0a3ed8d
--- /dev/null
+++ b/man/CamposEg7.1.6.2.Rd
@@ -0,0 +1,42 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/CamposEg7.1.6.2.R
+\name{CamposEg7.1.6.2}
+\alias{CamposEg7.1.6.2}
+\title{Experimento de Alimentação de Porcos.}
+\format{Um \code{data.frame} com 5 observações e 4 variáveis, em que
+     
+
+\describe{
+
+\item{\code{A}}{ Aumento de peso (em Kg), utilizando a ração A. }
+
+\item{\code{B}}{ Aumento de peso (em Kg), utilizando a ração B. }
+
+\item{\code{C}}{ Aumento de peso (em Kg), utilizando a ração C. }
+
+\item{\code{D}}{ Aumento de peso (em Kg), utilizando a ração D. }
+
+}}
+\source{
+DE CAMPOS; HUMBERTO (1983), Exemplo 7.1.6.2, pág. 207.
+}
+\description{
+PIMENTEL GOMES (1978) apresenta um exemplo de um experimento (fictício) de 
+alimentação de porcos, em que se usaram quadros rações (A,B,C e D), cada uma fornecida a 
+cinco animais, escolhidos ao acaso.
+}
+\examples{
+
+library(lattice)
+
+data(CamposEg7.1.6.2)
+str(CamposEg7.1.6.2)
+
+boxplot(CamposEg7.1.6.2$A, CamposEg7.1.6.2$B, CamposEg7.1.6.2$C, CamposEg7.1.6.2$D,
+       names=c("A","B","C","D"))
+
+kruskal.test(CamposEg7.1.6.2)
+
+}
+\keyword{TODOS}
+
diff --git a/man/CamposEg7.3.1.1.Rd b/man/CamposEg7.3.1.1.Rd
new file mode 100644
index 00000000..67acba71
--- /dev/null
+++ b/man/CamposEg7.3.1.1.Rd
@@ -0,0 +1,40 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/CamposEg7.3.1.1.R
+\name{CamposEg7.3.1.1}
+\alias{CamposEg7.3.1.1}
+\title{Pesquisa Sobre Qualidade de Vinho.}
+\format{Um \code{data.frame} com 4 observações e 3 variáveis, em que
+     
+
+\describe{
+
+\item{\code{t1}}{ Média das notas atribuídas pelos cinco degustadores ao vinho do tipo 1. }
+
+\item{\code{t2}}{ Média das notas atribuídas pelos cinco degustadores ao vinho do tipo 2. }
+
+\item{\code{t3}}{ Média das notas atribuídas pelos cinco degustadores ao vinho do tipo 3. }
+
+}}
+\source{
+DE CAMPOS; HUMBERTO (1983), Exemplo 7.3.1.1, pág. 221.
+}
+\description{
+Numa pesquisa sobre qualidade de vinho, foram provados tês tipos, por cinco 
+degustadores. Cada degustador provou doze amostras (quatro de cada tipo) e atribuiu a cada 
+uma notas de zero a dez.
+}
+\examples{
+
+library(lattice)
+
+data(CamposEg7.3.1.1)
+str(CamposEg7.3.1.1)
+
+boxplot(CamposEg7.3.1.1$t1, CamposEg7.3.1.1$t2, CamposEg7.3.1.1$t3,
+       names=c("Tipo 1","Tipo 2","Tipo 3"))
+
+kruskal.test(CamposEg7.3.1.1)
+
+}
+\keyword{TODOS}
+
diff --git a/man/CamposEg7.3.1.4.Rd b/man/CamposEg7.3.1.4.Rd
new file mode 100644
index 00000000..a569242f
--- /dev/null
+++ b/man/CamposEg7.3.1.4.Rd
@@ -0,0 +1,41 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/CamposEg7.3.1.4.R
+\name{CamposEg7.3.1.4}
+\alias{CamposEg7.3.1.4}
+\title{Variedades de Cana-de-açúcar.}
+\format{Um \code{data.frame} com 5 observações e 4 variáveis, em que
+     
+
+\describe{
+
+\item{\code{co413}}{ Rendimento em Kg, de açúcar por tonelada de cana. }
+
+\item{\code{co419}}{ Rendimento em Kg, de açúcar por tonelada de cana. }
+
+\item{\code{co421}}{ Rendimento em Kg, de açúcar por tonelada de cana. }
+
+\item{\code{co678}}{ Rendimento em Kg, de açúcar por tonelada de cana. }
+
+}}
+\source{
+DE CAMPOS; HUMBERTO (1983), Exemplo 7.3.1.4, pág. 225.
+}
+\description{
+Num experimento de composição de variedades de cana-de-açúcar, foram 
+registrados os rendimentos, em Kg, de açúcar por tonelada de cana.
+}
+\examples{
+
+library(lattice)
+
+data(CamposEg7.3.1.4)
+str(CamposEg7.3.1.4)
+
+boxplot(CamposEg7.3.1.4$co413, CamposEg7.3.1.4$co419, CamposEg7.3.1.4$co421, CamposEg7.3.1.4$co678,
+       names=c("Co 413","Co 419","Co 421", "Co 678"))
+
+kruskal.test(CamposEg7.3.1.4)
+
+}
+\keyword{TODOS}
+
diff --git a/man/CamposEx7.1.7.1.Rd b/man/CamposEx7.1.7.1.Rd
new file mode 100644
index 00000000..ee1ee467
--- /dev/null
+++ b/man/CamposEx7.1.7.1.Rd
@@ -0,0 +1,41 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/CamposEx7.1.7.1.R
+\name{CamposEx7.1.7.1}
+\alias{CamposEx7.1.7.1}
+\title{Eficiência de Inseticidas no Feijoeiro.}
+\format{Um \code{data.frame} com 6 observações e 4 variáveis, em que
+     
+
+\describe{
+
+\item{\code{t1}}{ Testemunha. }
+
+\item{\code{t2}}{ Ekatin. }
+
+\item{\code{t3}}{ Diazon. }
+
+\item{\code{t4}}{ EPN. }
+
+}}
+\source{
+DE CAMPOS; HUMBERTO (1983), Exercício 7.1.7.1, pág. 209.
+}
+\description{
+Num experimento sobre a eficiência de inseticidas no feijoeiro, foram 
+obtidos resultados de produção (em Kg/ha).
+}
+\examples{
+
+library(lattice)
+
+data(CamposEx7.1.7.1)
+str(CamposEx7.1.7.1)
+
+boxplot(CamposEx7.1.7.1$t1, CamposEx7.1.7.1$t2, CamposEx7.1.7.1$t3, CamposEx7.1.7.1$t4,
+       names=c("Testemunha","Ekatin","Diazinon", "EPN"))
+
+kruskal.test(CamposEx7.1.7.1)
+
+}
+\keyword{TODOS}
+
diff --git a/man/CamposEx7.1.7.4.Rd b/man/CamposEx7.1.7.4.Rd
new file mode 100644
index 00000000..78daed4f
--- /dev/null
+++ b/man/CamposEx7.1.7.4.Rd
@@ -0,0 +1,42 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/CamposEx7.1.7.4.R
+\name{CamposEx7.1.7.4}
+\alias{CamposEx7.1.7.4}
+\title{Pesquisa para Testar a Eficiência de Quatro Panelas de Pressão.}
+\format{Um \code{data.frame} com 5 observações e 4 variáveis, em que
+     
+
+\describe{
+
+\item{\code{P1}}{ Consistência do produto, após 25 minutos de cozimento na panela 1. }
+
+\item{\code{P2}}{ Consistência do produto, após 25 minutos de cozimento na panela 2. }
+
+\item{\code{P3}}{ Consistência do produto, após 25 minutos de cozimento na panela 3. }
+
+\item{\code{P4}}{ Consistência do produto, após 25 minutos de cozimento na panela 4. }
+
+}}
+\source{
+DE CAMPOS; HUMBERTO (1983), Exercício 7.1.7.4, pág. 211.
+}
+\description{
+Numa pesquisa realizada a fim de verificar a eficiência de quatro panelas de
+pressão, no cozimento de feijão, foram registradas as consistências do produto, após 25 
+minutos de cozimento.
+}
+\examples{
+
+library(lattice)
+
+data(CamposEx7.1.7.4)
+str(CamposEx7.1.7.4)
+
+boxplot(CamposEx7.1.7.4$P1, CamposEx7.1.7.4$P2, CamposEx7.1.7.4$P3, CamposEx7.1.7.4$P4,
+       names=c("Panela 1","Panela 2","Panela 3", "Panela 4"))
+
+kruskal.test(CamposEx7.1.7.4)
+
+}
+\keyword{TODOS}
+
-- 
GitLab