Adiciona Qd 5.2.1 e 5.2.4 do Banzatto & Kronka.

R/BanzattoQd5.2.1.R

+#' @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

R/BanzattoQd5.2.4.R

+#' @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

data-raw/BanzattoQd5.2.1.txt

+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

data-raw/BanzattoQd5.2.4.txt

+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

man/BanzattoQd5.2.1.Rd

+% 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}
+

man/BanzattoQd5.2.4.Rd

+% 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}
+