From 570d4fcf328436ff91d8cea0b89fd08d860699ae Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Thu, 24 Mar 2016 18:44:04 -0300
Subject: [PATCH] Adiciona duas tabelas do B&K.

---
 R/BanzattoQd6.2.2.R          |  52 +++++++++++++++++++++++++
 R/BanzattoQd6.2.5.R          |  62 ++++++++++++++++++++++++++++++
 data-raw/BanzattoQd6.2.2.txt |  41 ++++++++++++++++++++
 data-raw/BanzattoQd6.2.5.txt |  49 ++++++++++++++++++++++++
 data/BanzattoQd6.2.2.rda     | Bin 0 -> 429 bytes
 data/BanzattoQd6.2.5.rda     | Bin 0 -> 473 bytes
 man/BanzattoQd6.2.2.Rd       |  61 ++++++++++++++++++++++++++++++
 man/BanzattoQd6.2.5.Rd       |  71 +++++++++++++++++++++++++++++++++++
 8 files changed, 336 insertions(+)
 create mode 100644 R/BanzattoQd6.2.2.R
 create mode 100644 R/BanzattoQd6.2.5.R
 create mode 100644 data-raw/BanzattoQd6.2.2.txt
 create mode 100644 data-raw/BanzattoQd6.2.5.txt
 create mode 100644 data/BanzattoQd6.2.2.rda
 create mode 100644 data/BanzattoQd6.2.5.rda
 create mode 100644 man/BanzattoQd6.2.2.Rd
 create mode 100644 man/BanzattoQd6.2.5.Rd

diff --git a/R/BanzattoQd6.2.2.R b/R/BanzattoQd6.2.2.R
new file mode 100644
index 0000000..a61d3b3
--- /dev/null
+++ b/R/BanzattoQd6.2.2.R
@@ -0,0 +1,52 @@
+#' @name BanzattoQd6.2.2
+#' @title Espaçamento de Plantio na Produção de Cana-de-açúcar
+#' @description O experimento avaliou o efeito do espaçamento de plantio
+#'     na produção de variedades de cana-de-açúcar. Para estudar os dois
+#'     fatores, espaçamento e variedades, considerou-se o delineamento
+#'     de blocos casualizados com arranjo de tratamentos de parcelas
+#'     subdivididas com o espaçamento sendo casualizado dentro dos
+#'     níveis de variedade.
+#' @format Um \code{data.frame} com 40 observações e 4 variáveis.
+#'
+#' \describe{
+#'
+#' \item{\code{varied}}{Fator de níveis nominais que representa as
+#'     variedades de cana-de-açúcar.}
+#'
+#' \item{\code{espac}}{Fator de níveis nominais que representa o
+#'     espaçamento entre linhas para o plantio da cana-de-açúcar.}
+#'
+#' \item{\code{bloco}}{Fator de níveis nominais que são os blocos do
+#'     experimento.}
+#'
+#' \item{\code{prod}}{Produção de cana-de-açúcar, em ton ha\eqn{^{-1}}.}
+#'
+#' }
+#' @keywords DBC PS
+#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
+#'     Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 6.2.2,
+#'     pág. 138)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(BanzattoQd6.2.2)
+#'
+#' str(BanzattoQd6.2.2)
+#'
+#' ftable(with(BanzattoQd6.2.2,
+#'             tapply(prod,
+#'                    list(varied = varied,
+#'                         espac = espac,
+#'                         bloco = bloco),
+#'                    FUN = mean)))
+#'
+#' xyplot(prod ~ varied, groups = espac, data = BanzattoQd6.2.2,
+#'        as.table = TRUE, jitter.x = TRUE, type = c("p", "a"),
+#'        auto.key = list(title = "Espaçamento de cultivo",
+#'                        cex.title = 1, columns = 2,
+#'                        corner = c(0.85, 0.95)),
+#'        xlab = "Variedades de cana-de-açúcar",
+#'        ylab = expression("Produção de cana-de-açúcar"~(ton~ha^{-1})))
+#'
+NULL
diff --git a/R/BanzattoQd6.2.5.R b/R/BanzattoQd6.2.5.R
new file mode 100644
index 0000000..0200fb9
--- /dev/null
+++ b/R/BanzattoQd6.2.5.R
@@ -0,0 +1,62 @@
+#' @name BanzattoQd6.2.5
+#' @title Fontes e Doses para Adubação Nitrogenada no Milho
+#' @description Experimento que estudou a produção de milho como função
+#'     de fontes e doses de adubação nitrogenada. O experimento foi
+#'     instalado em delineamento de blocos casualizados com arranjo de
+#'     tratamento em parcela subdividida, sendo as doses casualizadas
+#'     dentro dos níveis de adubo.
+#' @format Um \code{data.frame} com 48 observações e 4 variáveis.
+#'
+#' \describe{
+#'
+#' \item{\code{adubo}}{Fator de níveis nominais que são os adubos fontes
+#'     de nitrogênio.}
+#'
+#' \item{\code{dose}}{Fator de níveis métricos que são as doses
+#'     aplicadas, em kg de nitrogênio por hectare.}
+#'
+#' \item{\code{bloco}}{Fator de níveis nominais que representa os blocos
+#'     do experimento.}
+#'
+#' \item{\code{prod}}{Produção de milho, em kg ha \eqn{^{-1}}}.
+#'
+#' }
+#' @keywords DBC PS
+#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
+#'     Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 6.2.5,
+#'     pág. 144)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(BanzattoQd6.2.5)
+#'
+#' str(BanzattoQd6.2.5)
+#'
+#' ftable(with(BanzattoQd6.2.5,
+#'             tapply(prod,
+#'                    list(adubo = adubo,
+#'                         dose = dose,
+#'                         bloco = bloco),
+#'                    FUN = mean)))
+#'
+#' xyplot(prod ~ dose, groups = adubo, data = BanzattoQd6.2.5,
+#'        as.table = TRUE, jitter.x = TRUE, type = c("p", "a"),
+#'        auto.key = list(title = "Adubos fontes de nitrogênio",
+#'                        cex.title = 1, columns = 2),
+#'        xlab = expression(
+#'            "Quantidade aplicada de nitrogênio"~(kg~ha^{-1})),
+#'        ylab = expression("Produção de milho"~(kg~ha^{-1})))
+#'
+#' xyplot(prod ~ dose | adubo, data = BanzattoQd6.2.5,
+#'        as.table = TRUE, jitter.x = TRUE,
+#'        xlab = expression(
+#'            "Quantidade aplicada de nitrogênio"~(kg~ha^{-1})),
+#'        ylab = expression("Produção de milho"~(kg~ha^{-1})),
+#'        panel = function(x, y, ...){
+#'            panel.xyplot(x, y, ...)
+#'            m0 <- lm(y ~ poly(x, degree = 2))
+#'            panel.curve(predict(m0, newdata = list(x = x)))
+#'        })
+#'
+NULL
diff --git a/data-raw/BanzattoQd6.2.2.txt b/data-raw/BanzattoQd6.2.2.txt
new file mode 100644
index 0000000..3757fbc
--- /dev/null
+++ b/data-raw/BanzattoQd6.2.2.txt
@@ -0,0 +1,41 @@
+varied	espac	bloco	prod
+1	1	1	105
+1	2	1	94.3
+2	1	1	101.8
+2	2	1	86.3
+3	1	1	83.4
+3	2	1	90.7
+4	1	1	72.6
+4	2	1	65.7
+5	1	1	57.3
+5	2	1	51.6
+1	1	2	101.4
+1	2	2	91.7
+2	1	2	96.3
+2	2	2	90.7
+3	1	2	60.7
+3	2	2	58.4
+4	1	2	54.2
+4	2	2	56.3
+5	1	2	50.2
+5	2	2	53.4
+1	1	3	97.2
+1	2	3	93.5
+2	1	3	110
+2	2	3	92.4
+3	1	3	71.3
+3	2	3	65.2
+4	1	3	60.5
+4	2	3	51.3
+5	1	3	61.3
+5	2	3	51.9
+1	1	4	89.6
+1	2	4	81.8
+2	1	4	90.5
+2	2	4	85.8
+3	1	4	62.6
+3	2	4	58.9
+4	1	4	57.4
+4	2	4	52.6
+5	1	4	65.2
+5	2	4	48.7
diff --git a/data-raw/BanzattoQd6.2.5.txt b/data-raw/BanzattoQd6.2.5.txt
new file mode 100644
index 0000000..d0d4891
--- /dev/null
+++ b/data-raw/BanzattoQd6.2.5.txt
@@ -0,0 +1,49 @@
+adubo	dose	bloco	prod
+Salitre do Chile	10	1	2747
+Salitre do Chile	40	1	2889
+Salitre do Chile	70	1	3578
+Sulfato de amonio	10	1	3164
+Sulfato de amonio	40	1	3831
+Sulfato de amonio	70	1	4107
+Ureia	10	1	1902
+Ureia	40	1	2547
+Ureia	70	1	3364
+Calnitro	10	1	2978
+Calnitro	40	1	3451
+Calnitro	70	1	3742
+Salitre do Chile	10	2	2702
+Salitre do Chile	40	2	2731
+Salitre do Chile	70	2	3387
+Sulfato de amonio	10	2	2658
+Sulfato de amonio	40	2	3049
+Sulfato de amonio	70	2	3031
+Ureia	10	2	1773
+Ureia	40	2	2642
+Ureia	70	2	2427
+Calnitro	10	2	2769
+Calnitro	40	2	2258
+Calnitro	70	2	2498
+Salitre do Chile	10	3	2671
+Salitre do Chile	40	3	2633
+Salitre do Chile	70	3	3858
+Sulfato de amonio	10	3	3600
+Sulfato de amonio	40	3	4182
+Sulfato de amonio	70	3	3791
+Ureia	10	3	3440
+Ureia	40	3	3347
+Ureia	70	3	4053
+Calnitro	10	3	2640
+Calnitro	40	3	2478
+Calnitro	70	3	3458
+Salitre do Chile	10	4	2547
+Salitre do Chile	40	4	2756
+Salitre do Chile	70	4	4284
+Sulfato de amonio	10	4	2760
+Sulfato de amonio	40	4	3102
+Sulfato de amonio	70	4	3547
+Ureia	10	4	2347
+Ureia	40	4	2924
+Ureia	70	4	3111
+Calnitro	10	4	2542
+Calnitro	40	4	2562
+Calnitro	70	4	3076
diff --git a/data/BanzattoQd6.2.2.rda b/data/BanzattoQd6.2.2.rda
new file mode 100644
index 0000000000000000000000000000000000000000..56638a19e1d48ea1d8c03a30391e8805003a0eab
GIT binary patch
literal 429
zcmZ>Y%CIzaj8qGbbhsYT#K5Hb|NnpE6AFxu_6#BQ-+$Dr-<{yVz+vFX!ok46#-YH#
z!oj$KafVn&O2G2Yl~0^6v9DZ^!5@%hlwu?u_>%wPsuZcLSq%&fQVa|XjIS6N7?mbF
zn#}evVQY3^Fkzf<*&&1B+?S87H=<^+dzEmgI7f2!-tbr|$l}4w)*iBPvu=ZgVaQ~*
zp6Q0FS+5ixE4lICs24Ih6}raa&AcTXp*)T}>3LcjZu7LwAM1*1?AKu8*r*i7Y2jb!
zlQkvr&4qOrBUiofVo+;1GW`^X%A^A~J#O5QFzj=i;MJy(k(hfdLQyQrDTh&fRijao
z%p95Ubzjb{wy55manpRlu~oVZ4y#^diwF6A-l<?*`TSo=Uv<XguBDEOZ6XW0SY0ON
z$V@U+VqLS&+J$MOI0t9XYmFTt7M3$ko)hEwYV@??xo5~SuiWb~UJ6|&Or|jW-Lf=7
z^~~?wqPOCY!@n=tuvGu)ZEFEvpZ=xYS3iY)QSw$zE%P&b(Djx@P})gt>UXv0N4{9d
k?Ek{4y{p+vDXUJ1&F<!+%10)W?jOrlf?GLRcuPAJ0D$VNe*gdg

literal 0
HcmV?d00001

diff --git a/data/BanzattoQd6.2.5.rda b/data/BanzattoQd6.2.5.rda
new file mode 100644
index 0000000000000000000000000000000000000000..40b5802ab10fa9e381fa0588139ff28231b0dcdf
GIT binary patch
literal 473
zcmZ>Y%CIzaj8qGb)ShGXf`Mu4|NsB1U$D3`*0aPoTD#b%-=E;(5Wro3|ELQKgMh0e
zBP-(u#vax!Ay-UHQcM^a7?>Rx7^E23dX1{w8bwV`eDUe=m12N_42Fp+i>f`RoH(GY
zHq*qGS=lM&fMUn3EXIY)X3Y39{g^~v%B-@pj#K<gYD?@bH!Cb@%6bzbFtfnZzGXt`
z9@Vb~Tl=O4`OSZARKV3BIDc&<^PvD`lTC)Z9?nyla>?Of$3_*#rCJY6ZVM_+SRlc>
zHq39SmH53TrAH|uXOln0{m@cW5shdKE^}$rKXUD<^tUIR3X?s&-ga=@yZ>OWubq^x
zsb-LXgJQ#^j0ClrO_zk0T`_p`?GURmqt5|riHUh@V#=L8>i@mIwf6T<26Ib&{r^|F
zpCyQ2TTn42A^EP#N(LTBUe2hmF9IJk{EokTXa=*^_H+03>}R_jFYk|IaL?N!$lQ0r
zQBn0I>zM|YZ`}tH9&HKqX*^J%^@-thR>JH)L1Wd*1rt3FaJvefuyCDL?I1MyI1_u!
z3P}x*e6#)}!<IQS+!`0^^SS2iDt?rrvc_ihrrtS^&bXY_SR~NhBR1Jpdb`f`Id0mr
XEDtuUR0(F-#8EF^<Z2Nx0Th)0*Al`_

literal 0
HcmV?d00001

diff --git a/man/BanzattoQd6.2.2.Rd b/man/BanzattoQd6.2.2.Rd
new file mode 100644
index 0000000..5517b5b
--- /dev/null
+++ b/man/BanzattoQd6.2.2.Rd
@@ -0,0 +1,61 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/BanzattoQd6.2.2.R
+\name{BanzattoQd6.2.2}
+\alias{BanzattoQd6.2.2}
+\title{Espaçamento de Plantio na Produção de Cana-de-açúcar}
+\format{Um \code{data.frame} com 40 observações e 4 variáveis.
+
+\describe{
+
+\item{\code{varied}}{Fator de níveis nominais que representa as
+    variedades de cana-de-açúcar.}
+
+\item{\code{espac}}{Fator de níveis nominais que representa o
+    espaçamento entre linhas para o plantio da cana-de-açúcar.}
+
+\item{\code{bloco}}{Fator de níveis nominais que são os blocos do
+    experimento.}
+
+\item{\code{prod}}{Produção de cana-de-açúcar, em ton ha\eqn{^{-1}}.}
+
+}}
+\source{
+Banzatto, D. A., Kronka, S. D. (2013). Experimentação
+    Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 6.2.2,
+    pág. 138)
+}
+\description{
+O experimento avaliou o efeito do espaçamento de plantio
+    na produção de variedades de cana-de-açúcar. Para estudar os dois
+    fatores, espaçamento e variedades, considerou-se o delineamento
+    de blocos casualizados com arranjo de tratamentos de parcelas
+    subdivididas com o espaçamento sendo casualizado dentro dos
+    níveis de variedade.
+}
+\examples{
+
+library(lattice)
+
+data(BanzattoQd6.2.2)
+
+str(BanzattoQd6.2.2)
+
+ftable(with(BanzattoQd6.2.2,
+            tapply(prod,
+                   list(varied = varied,
+                        espac = espac,
+                        bloco = bloco),
+                   FUN = mean)))
+
+xyplot(prod ~ varied, groups = espac, data = BanzattoQd6.2.2,
+       as.table = TRUE, jitter.x = TRUE, type = c("p", "a"),
+       auto.key = list(title = "Espaçamento de cultivo",
+                       cex.title = 1, columns = 2,
+                       corner = c(0.85, 0.95)),
+       xlab = "Variedades de cana-de-açúcar",
+       ylab = expression("Produção de cana-de-açúcar"~(ton~ha^{-1})))
+
+}
+\keyword{DBC}
+\keyword{PS}
+
diff --git a/man/BanzattoQd6.2.5.Rd b/man/BanzattoQd6.2.5.Rd
new file mode 100644
index 0000000..948a6a1
--- /dev/null
+++ b/man/BanzattoQd6.2.5.Rd
@@ -0,0 +1,71 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/BanzattoQd6.2.5.R
+\name{BanzattoQd6.2.5}
+\alias{BanzattoQd6.2.5}
+\title{Fontes e Doses para Adubação Nitrogenada no Milho}
+\format{Um \code{data.frame} com 48 observações e 4 variáveis.
+
+\describe{
+
+\item{\code{adubo}}{Fator de níveis nominais que são os adubos fontes
+    de nitrogênio.}
+
+\item{\code{dose}}{Fator de níveis métricos que são as doses
+    aplicadas, em kg de nitrogênio por hectare.}
+
+\item{\code{bloco}}{Fator de níveis nominais que representa os blocos
+    do experimento.}
+
+\item{\code{prod}}{Produção de milho, em kg ha \eqn{^{-1}}}.
+
+}}
+\source{
+Banzatto, D. A., Kronka, S. D. (2013). Experimentação
+    Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 6.2.5,
+    pág. 144)
+}
+\description{
+Experimento que estudou a produção de milho como função
+    de fontes e doses de adubação nitrogenada. O experimento foi
+    instalado em delineamento de blocos casualizados com arranjo de
+    tratamento em parcela subdividida, sendo as doses casualizadas
+    dentro dos níveis de adubo.
+}
+\examples{
+
+library(lattice)
+
+data(BanzattoQd6.2.5)
+
+str(BanzattoQd6.2.5)
+
+ftable(with(BanzattoQd6.2.5,
+            tapply(prod,
+                   list(adubo = adubo,
+                        dose = dose,
+                        bloco = bloco),
+                   FUN = mean)))
+
+xyplot(prod ~ dose, groups = adubo, data = BanzattoQd6.2.5,
+       as.table = TRUE, jitter.x = TRUE, type = c("p", "a"),
+       auto.key = list(title = "Adubos fontes de nitrogênio",
+                       cex.title = 1, columns = 2),
+       xlab = expression(
+           "Quantidade aplicada de nitrogênio"~(kg~ha^{-1})),
+       ylab = expression("Produção de milho"~(kg~ha^{-1})))
+
+xyplot(prod ~ dose | adubo, data = BanzattoQd6.2.5,
+       as.table = TRUE, jitter.x = TRUE,
+       xlab = expression(
+           "Quantidade aplicada de nitrogênio"~(kg~ha^{-1})),
+       ylab = expression("Produção de milho"~(kg~ha^{-1})),
+       panel = function(x, y, ...){
+           panel.xyplot(x, y, ...)
+           m0 <- lm(y ~ poly(x, degree = 2))
+           panel.curve(predict(m0, newdata = list(x = x)))
+       })
+
+}
+\keyword{DBC}
+\keyword{PS}
+
-- 
GitLab