diff --git a/R/BanzattoQd5.2.1.R b/R/BanzattoQd5.2.1.R
new file mode 100644
index 0000000000000000000000000000000000000000..9897a3986fe4dc60ab1f9e16ddc1dc36e1e6b800
--- /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 0000000000000000000000000000000000000000..25550fa11f913442b1bef0e0d21a3fcacff9dfff
--- /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 0000000000000000000000000000000000000000..9e59cc4ef8c692c1a577453c3a4b2809449a8adc
--- /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 0000000000000000000000000000000000000000..60fc5f98c78974f330b7f440fe67626b258db3ea
--- /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
Binary files /dev/null and b/data/BanzattoQd5.2.1.rda differ
diff --git a/data/BanzattoQd5.2.4.rda b/data/BanzattoQd5.2.4.rda
new file mode 100644
index 0000000000000000000000000000000000000000..9196d4e39d1b8923c362ab4bdd9d3c0cc799b465
Binary files /dev/null and b/data/BanzattoQd5.2.4.rda differ
diff --git a/man/BanzattoQd5.2.1.Rd b/man/BanzattoQd5.2.1.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..03812a5139afb19ba0835a9a02da909741a6f292
--- /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 0000000000000000000000000000000000000000..e751554869e667839bd2886fee292af47b51bb40
--- /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}
+