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