From e420f0f6f0aa77e5692357b76a60619bb20433f8 Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Thu, 17 Mar 2016 08:51:33 -0300
Subject: [PATCH] Adiciona Qd 5.2.1 e 5.2.4 do Banzatto & Kronka.

---
 R/BanzattoQd5.2.1.R          |  54 +++++++++++++++++++++++++++++++
 R/BanzattoQd5.2.4.R          |  40 +++++++++++++++++++++++
 data-raw/BanzattoQd5.2.1.txt |  28 ++++++++++++++++
 data-raw/BanzattoQd5.2.4.txt |  25 ++++++++++++++
 data/BanzattoQd5.2.1.rda     | Bin 0 -> 424 bytes
 data/BanzattoQd5.2.4.rda     | Bin 0 -> 381 bytes
 man/BanzattoQd5.2.1.Rd       |  61 +++++++++++++++++++++++++++++++++++
 man/BanzattoQd5.2.4.Rd       |  47 +++++++++++++++++++++++++++
 8 files changed, 255 insertions(+)
 create mode 100644 R/BanzattoQd5.2.1.R
 create mode 100644 R/BanzattoQd5.2.4.R
 create mode 100644 data-raw/BanzattoQd5.2.1.txt
 create mode 100644 data-raw/BanzattoQd5.2.4.txt
 create mode 100644 data/BanzattoQd5.2.1.rda
 create mode 100644 data/BanzattoQd5.2.4.rda
 create mode 100644 man/BanzattoQd5.2.1.Rd
 create mode 100644 man/BanzattoQd5.2.4.Rd

diff --git a/R/BanzattoQd5.2.1.R b/R/BanzattoQd5.2.1.R
new file mode 100644
index 00000000..9897a398
--- /dev/null
+++ b/R/BanzattoQd5.2.1.R
@@ -0,0 +1,54 @@
+#' @name BanzattoQd5.2.1
+#' @title Peneira e densidade de plantio na produção de amendoim
+#' @description Dados de um experimento fatorial que estudou o efeito de
+#'     densidade de plantio e tamanho da peneiras comerciais, de crivos
+#'     circulares, para classificação das sementes da produção de
+#'     amendoim (\emph{Arachis hypogaea} L.) variedade Tatu V 53. O
+#'     experimento foi instalado em delineamento de blocos casualizados.
+#' @format Um \code{data.frame} com 27 observações e 4 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{densid}}{Densidade de plantio expresso em número de
+#'     plantas por metro linear de cultivo.}
+#'
+#' \item{\code{peneira}}{Diâmetro dos crivos cículares da peneira usada
+#'     para classificar as sementes (18/64, 20/64 e 22/64 polegadas).}
+#'
+#' \item{\code{bloco}}{Fator considerado para garatir controle local.}
+#'
+#' \item{\code{prod}}{Produção média de amendoim em vagens (g) por
+#'     planta.}
+#'
+#' }
+#'
+#' Cada parcela tinha 4 linhas de cultivo, espaçadas de 50 cm, com 7
+#' metros de comprimento, resultando em uma área de 14 m\eqn{^2}. As
+#' duas linhas externas de cada parcela e meio metro de cada extremidade
+#' das linhas centrais foram consideradas como bordadura, fazendo-se as
+#' avaliações apenas no comprimento restante das duas linhas centrais, o
+#' que resultou em uma área útil de 6 m\eqn{^2}.
+#' @keywords DBC FAT2
+#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
+#'     Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 5.2.1,
+#'     pág. 102)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(BanzattoQd5.2.1)
+#'
+#' addmargins(with(BanzattoQd5.2.1,
+#'                 tapply(X = prod,
+#'                        INDEX = list(interaction(peneira, densid),
+#'                                     bloco),
+#'                        FUN = sum)))
+#'
+#' xyplot(prod ~ densid, data = BanzattoQd5.2.1,
+#'        groups = peneira, type = c("p", "a"),
+#'        auto.key = list(title = "Peneira", cex.title = 1,
+#'                        columns = 1, corner = c(0.95, 0.95)),
+#'        xlab = "Densidade de plantio (plantas/metro linear)",
+#'        ylab = "Produção média de amendoim em vagem (g/planta)")
+#'
+NULL
diff --git a/R/BanzattoQd5.2.4.R b/R/BanzattoQd5.2.4.R
new file mode 100644
index 00000000..25550fa1
--- /dev/null
+++ b/R/BanzattoQd5.2.4.R
@@ -0,0 +1,40 @@
+#' @name BanzattoQd5.2.4
+#' @title Efeito de recipientes para para duas espécies de Eucalipto
+#' @description Experimento em esquema fatorial 3 \eqn{\times} 2 para
+#'     estudar o efeito de 3 tipos de recipientes para a produção de
+#'     mudas de duas espécies de Eucalipto. O experimento foi instalado
+#'     em delineamento inteiramente casualizado.
+#' @format Um \code{data.frame} com 24 observações e 4 variáveis, em que
+#' \describe{
+#'
+#' \item{\code{recipie}}{São os níveis de recipiente estudados: SPP -
+#'     saco plático pequeno, SPG - saco plástico grande e Lam -
+#'     laminado.}
+#'
+#' \item{\code{especie}}{São as espécies de Eucalipto: \emph{Eucalyptus
+#'     citriodora} e \emph{Eucalyptus grandis}}.
+#'
+#' \item{\code{rept}}{Identifica as repetições de cada combinação dos
+#'     fatores recipiente e espécie.}
+#'
+#' \item{\code{alt}}{Altura das mudas aos 80 dias de idade (cm).}
+#'
+#' }
+#' @keywords DIC FAT2
+#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
+#'     Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 5.2.4,
+#'     pág. 107)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(BanzattoQd5.2.4)
+#'
+#' xyplot(alt ~ recipie, data = BanzattoQd5.2.4,
+#'        groups = especie, type = c("p", "a"),
+#'        auto.key = list(title = "Espécie", cex.title = 1, font = 3,
+#'                        columns = 1, corner = c(0.95, 0.95)),
+#'        xlab = "Recipiente",
+#'        ylab = "Altura das mudas aos 80 dias de idade (cm)")
+#'
+NULL
diff --git a/data-raw/BanzattoQd5.2.1.txt b/data-raw/BanzattoQd5.2.1.txt
new file mode 100644
index 00000000..9e59cc4e
--- /dev/null
+++ b/data-raw/BanzattoQd5.2.1.txt
@@ -0,0 +1,28 @@
+densid	peneira	bloco	prod
+10	18	I	11.82
+15	18	I	12.34
+20	18	I	13.41
+10	20	I	6.97
+15	20	I	8.96
+20	20	I	8.48
+10	22	I	7.53
+15	22	I	6.71
+20	22	I	7.82
+10	18	II	12.03
+15	18	II	14.08
+20	18	II	12.98
+10	20	II	10.26
+15	20	II	9.02
+20	20	II	9.66
+10	22	II	7.67
+15	22	II	7.87
+20	22	II	9.44
+10	18	III	12.55
+15	18	III	12.13
+20	18	III	13.35
+10	20	III	9.02
+15	20	III	9.84
+20	20	III	8.5
+10	22	III	7.81
+15	22	III	9.49
+20	22	III	9.37
diff --git a/data-raw/BanzattoQd5.2.4.txt b/data-raw/BanzattoQd5.2.4.txt
new file mode 100644
index 00000000..60fc5f98
--- /dev/null
+++ b/data-raw/BanzattoQd5.2.4.txt
@@ -0,0 +1,25 @@
+recipie	especie	rept	alt
+SPP	E. citriodora	1	26.2
+SPP	E. grandis	1	24.8
+SPG	E. citriodora	1	25.7
+SPG	E. grandis	1	19.6
+Lam	E. citriodora	1	22.8
+Lam	E. grandis	1	19.8
+SPP	E. citriodora	2	26
+SPP	E. grandis	2	24.6
+SPG	E. citriodora	2	26.3
+SPG	E. grandis	2	21.1
+Lam	E. citriodora	2	19.4
+Lam	E. grandis	2	21.4
+SPP	E. citriodora	3	25
+SPP	E. grandis	3	26.7
+SPG	E. citriodora	3	25.1
+SPG	E. grandis	3	19
+Lam	E. citriodora	3	18.8
+Lam	E. grandis	3	22.8
+SPP	E. citriodora	4	25.4
+SPP	E. grandis	4	25.2
+SPG	E. citriodora	4	26.4
+SPG	E. grandis	4	18.6
+Lam	E. citriodora	4	19.2
+Lam	E. grandis	4	21.3
diff --git a/data/BanzattoQd5.2.1.rda b/data/BanzattoQd5.2.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..1ffbe78de3f75a2b5b3fc3d5913b38ecae4a90d9
GIT binary patch
literal 424
zcmZ>Y%CIzaj8qGboUioa1_R@+`v3nopRxS&)t)Kjfq{#?`rR2$3=IZ6j2uo93<?bj
zJj{X{7$X#Uh13>bT(<mG|COUAyzEQl7IvIq_GSFFtbOIn$ya7Ho|Q5&ImEb(<+6h$
zFOP$ip_GKO0+TCOzY{Ox0)`B>Sqw&O4N?ru>T#+DMgo~4M;9;$i6{y9+GIWmFt~B|
zPXZh3g9%HUwG@1{0(#HPc0AvhWw`B>#Og&omoH2*m3?jYD(?E!G8OG-3Y@d_)O5m@
z_?$fJ!ziex`rs1pauE~W$u}4RvUC)VOpJc9!r;tAV-va49KRU1@7G?oVAV|yGsU70
zrfe71{m4w5G?8J6L&R(r)?x*VcE^Sad*9H9=PDO$H0XVJ(1+oZ&GX|y$HG5eR**GP
zV6Q2iD<GjMlI(P5UL;3!YyJ|xELE4sk418xb3U<r=Jleor*dQH>3QZiZcBMuF1wI<
zBDRrTkN<RwQg_s*`=KE&6PHXe51Mkg<zVD=OP<?p-dbV{Cmc9s@ab+w{3O@e9{nGG
i9a<Un>`vhC`~rR58x4L3L;oMWGto~(Mg7DsGX?-p%(BM-

literal 0
HcmV?d00001

diff --git a/data/BanzattoQd5.2.4.rda b/data/BanzattoQd5.2.4.rda
new file mode 100644
index 0000000000000000000000000000000000000000..9196d4e39d1b8923c362ab4bdd9d3c0cc799b465
GIT binary patch
literal 381
zcmZ>Y%CIzaj8qGboLl_Loq@6c|C|4xPb4@n$`@Q~sc_I=es_Wc1A_qv0|T1_;|9hE
z4yjo#XF3=Anw-d7V3NeZxY%uWz%xdZ18U9;j0Qdo3@lxyz9#-I7Z+b*o5}2~z__e&
z@s%HcMK30}=~R5;(q3uR62j|n?8&5rZ_g_^4(A5&DMUE!Jo2#P(*L=Wll7#Jt$ue`
zL1E>Bb(LyLY}JwV=XB$K&S28pz$C@&o@){uC2RDlT=ocyf)sOPq5`v|sfn+Wz=6!x
zYYLZcFLIvH6`^Ue<Pvj-kK?P)n{J#d&+rLO<vG3B@sZcFYr9t52%i)txlKXW)`wZ|
z#0JiV5gU`0l!^kLtaUl}zOLt|-u0%c-pUoaKWF(YI?8>8`)Y)!#iB^|<I&ai4`a6q
zJ(?cRG{J#md0*!Ib(h=sIqpa>a8Z|-uh8-}RzUJ;+_S4Z%Y?W1>3qCdVX&DmarVZZ
ptagvp?@x5NPd?b#vS`aBp(zs?79=;WiTbDaq^n?|qSf;&eE{7VrpEvP

literal 0
HcmV?d00001

diff --git a/man/BanzattoQd5.2.1.Rd b/man/BanzattoQd5.2.1.Rd
new file mode 100644
index 00000000..03812a51
--- /dev/null
+++ b/man/BanzattoQd5.2.1.Rd
@@ -0,0 +1,61 @@
+% Generated by roxygen2 (4.1.1): do not edit by hand
+% Please edit documentation in R/BanzattoQd5.2.1.R
+\name{BanzattoQd5.2.1}
+\alias{BanzattoQd5.2.1}
+\title{Peneira e densidade de plantio na produção de amendoim}
+\format{Um \code{data.frame} com 27 observações e 4 variáveis, em que
+
+\describe{
+
+\item{\code{densid}}{Densidade de plantio expresso em número de
+    plantas por metro linear de cultivo.}
+
+\item{\code{peneira}}{Diâmetro dos crivos cículares da peneira usada
+    para classificar as sementes (18/64, 20/64 e 22/64 polegadas).}
+
+\item{\code{bloco}}{Fator considerado para garatir controle local.}
+
+\item{\code{prod}}{Produção média de amendoim em vagens (g) por
+    planta.}
+
+}
+
+Cada parcela tinha 4 linhas de cultivo, espaçadas de 50 cm, com 7
+metros de comprimento, resultando em uma área de 14 m\eqn{^2}. As
+duas linhas externas de cada parcela e meio metro de cada extremidade
+das linhas centrais foram consideradas como bordadura, fazendo-se as
+avaliações apenas no comprimento restante das duas linhas centrais, o
+que resultou em uma área útil de 6 m\eqn{^2}.}
+\source{
+Banzatto, D. A., Kronka, S. D. (2013). Experimentação
+    Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 5.2.1,
+    pág. 102)
+}
+\description{
+Dados de um experimento fatorial que estudou o efeito de
+    densidade de plantio e tamanho da peneiras comerciais, de crivos
+    circulares, para classificação das sementes da produção de
+    amendoim (\emph{Arachis hypogaea} L.) variedade Tatu V 53. O
+    experimento foi instalado em delineamento de blocos casualizados.
+}
+\examples{
+library(lattice)
+
+data(BanzattoQd5.2.1)
+
+addmargins(with(BanzattoQd5.2.1,
+                tapply(X = prod,
+                       INDEX = list(interaction(peneira, densid),
+                                    bloco),
+                       FUN = sum)))
+
+xyplot(prod ~ densid, data = BanzattoQd5.2.1,
+       groups = peneira, type = c("p", "a"),
+       auto.key = list(title = "Peneira", cex.title = 1,
+                       columns = 1, corner = c(0.95, 0.95)),
+       xlab = "Densidade de plantio (plantas/metro linear)",
+       ylab = "Produção média de amendoim em vagem (g/planta)")
+}
+\keyword{DBC}
+\keyword{FAT2}
+
diff --git a/man/BanzattoQd5.2.4.Rd b/man/BanzattoQd5.2.4.Rd
new file mode 100644
index 00000000..e7515548
--- /dev/null
+++ b/man/BanzattoQd5.2.4.Rd
@@ -0,0 +1,47 @@
+% Generated by roxygen2 (4.1.1): do not edit by hand
+% Please edit documentation in R/BanzattoQd5.2.4.R
+\name{BanzattoQd5.2.4}
+\alias{BanzattoQd5.2.4}
+\title{Efeito de recipientes para para duas espécies de Eucalipto}
+\format{Um \code{data.frame} com 24 observações e 4 variáveis, em que
+\describe{
+
+\item{\code{recipie}}{São os níveis de recipiente estudados: SPP -
+    saco plático pequeno, SPG - saco plástico grande e Lam -
+    laminado.}
+
+\item{\code{especie}}{São as espécies de Eucalipto: \emph{Eucalyptus
+    citriodora} e \emph{Eucalyptus grandis}}.
+
+\item{\code{rept}}{Identifica as repetições de cada combinação dos
+    fatores recipiente e espécie.}
+
+\item{\code{alt}}{Altura das mudas aos 80 dias de idade (cm).}
+
+}}
+\source{
+Banzatto, D. A., Kronka, S. D. (2013). Experimentação
+    Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 5.2.4,
+    pág. 107)
+}
+\description{
+Experimento em esquema fatorial 3 \eqn{\times} 2 para
+    estudar o efeito de 3 tipos de recipientes para a produção de
+    mudas de duas espécies de Eucalipto. O experimento foi instalado
+    em delineamento inteiramente casualizado.
+}
+\examples{
+library(lattice)
+
+data(BanzattoQd5.2.4)
+
+xyplot(alt ~ recipie, data = BanzattoQd5.2.4,
+       groups = especie, type = c("p", "a"),
+       auto.key = list(title = "Espécie", cex.title = 1, font = 3,
+                       columns = 1, corner = c(0.95, 0.95)),
+       xlab = "Recipiente",
+       ylab = "Altura das mudas aos 80 dias de idade (cm)")
+}
+\keyword{DIC}
+\keyword{FAT2}
+
-- 
GitLab