diff --git a/R/BanzattoQd6.3.4.R b/R/BanzattoQd6.3.4.R
new file mode 100644
index 0000000000000000000000000000000000000000..5960712cd0b8b6ef47b7352728c2973528fee71a
--- /dev/null
+++ b/R/BanzattoQd6.3.4.R
@@ -0,0 +1,58 @@
+#' @name BanzattoQd6.3.4
+#' @title Épocas de Plantio e Colheita na Produção de Beterraba
+#' @description Experimento estudar o efeito de datas de plantio, épocas
+#' de colheita e aplicação de inseticidas na producação de
+#' beterraba. Os tratamentos foi arranjados em parcelas
+#' subsubdivididas no delineamento de blocos casualizados.
+#' @format Um \code{data.frame} com 72 observações e 5 variáveis.
+#' \describe{
+#'
+#' \item{\code{data}}{Fator de níveis ordinais que representa as datas
+#' de plantio de beterraba. Os níveis do fator data foram
+#' casualizados nas parcelas.}
+#'
+#' \item{\code{inset}}{Variável binária que representa a aplicação de
+#' inseticida (1) ou não (0). Este fator foi casualizado as
+#' subparcelas.}
+#'
+#' \item{\code{epoc}}{Fator de níveis ordinais que representa a época de
+#' colheita das beterrabas. Esse fator foi casualizado nas
+#' subsubparcelas.}
+#'
+#' \item{\code{bloco}}{Fator de níveis nominais que presenta os blocos
+#' do experimento.}
+#'
+#' \item{\code{prod}}{Produção de beterraba. A unidade de medida não foi
+#' informada.}
+#'
+#' }
+#' @keywords DBC PSS
+#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
+#' Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 6.3.4,
+#' pág. 156)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(BanzattoQd6.3.4)
+#'
+#' str(BanzattoQd6.3.4)
+#'
+#' ftable(with(BanzattoQd6.3.4,
+#' tapply(prod,
+#' list(data = data,
+#' inset = inset,
+#' epoc = epoc,
+#' bloco = bloco),
+#' FUN = mean)))
+#'
+#' xyplot(prod ~ epoc | data, groups = inset, data = BanzattoQd6.3.4,
+#' as.table = TRUE, layout = c(NA, 1),
+#' jitter.x = TRUE, type = c("p", "a"),
+#' auto.key = list(title = "Aplicação de inseticida",
+#' cex.title = 1, columns = 2),
+#' strip = strip.custom(var.name = "Época", strip.names = TRUE),
+#' xlab = "Ordem das datas de plantio",
+#' ylab = "Produção de beterraba")
+#'
+NULL
diff --git a/R/BanzattoQd6.4.2.R b/R/BanzattoQd6.4.2.R
new file mode 100644
index 0000000000000000000000000000000000000000..786272966836bd7ec0fc564f37d4b9f47d89fe87
--- /dev/null
+++ b/R/BanzattoQd6.4.2.R
@@ -0,0 +1,62 @@
+#' @name BanzattoQd6.4.2
+#' @title Época de Plantio e Adubação Nitrogenada em Beterraba
+#' @description Experimento em delineamento de blocos casualizados cujos
+#' níveis dos fatores, época de plantio e nitrogênio, foram
+#' casualizados em faixas. A variável reposta observada foi a
+#' producação de beterraba.
+#' @format Um \code{data.frame} com 80 observações e 4 variáveis.
+#' \describe{
+#'
+#' \item{\code{nitro}}{Fator de níveis métricos que correspondem à
+#' quantidade de nitrogênio aplicada, em libras por acre.}
+#'
+#' \item{\code{epoca}}{Fator de níveis ordinais que representa as épocas
+#' de plantio de beterraba.}
+#'
+#' \item{\code{bloco}}{Fator de níveis nominais que indentifica os
+#' blocos do experimento.}
+#'
+#' \item{\code{prod}}{Producação de beterraba, em toneladas por acre.}
+#'
+#' }
+#'
+#' Na figura abaixo, tem-se a organização dos 4 blocos, bem como dos
+#' níveis de época de plantio e notrogênio em cada um deles. No
+#' bloco 1 (B1), a faixa em cinza claro horizontal indica a unidade
+#' experimental da época 4 (E4) e a faixa cinza escuro vertical a
+#' unidade experimental para o nível de nitrogênio 80 (N 80). A
+#' cédula preta é a unidade experimental da combinação dos níveis
+#' dos fatores.
+#'
+#' \if{html}{\figure{BanzattoQd6-4-2.png}{options: width="250px"}}
+#' \if{latex}{\figure{BanzattoQd6-4-2.png}{options: width=1.75in}}
+#'
+#' @keywords DBC EF
+#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
+#' Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 6.4.2,
+#' pág. 163)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(BanzattoQd6.4.2)
+#'
+#' str(BanzattoQd6.4.2)
+#'
+#' ftable(with(BanzattoQd6.4.2,
+#' tapply(prod,
+#' list(nitro = nitro,
+#' epoca = epoca,
+#' bloco = bloco),
+#' FUN = mean)))
+#'
+#' xyplot(prod ~ nitro, groups = epoca, data = BanzattoQd6.4.2,
+#' as.table = TRUE, layout = c(NA, 1),
+#' jitter.x = TRUE, type = c("p", "a"),
+#' auto.key = list(title = "Épocas de plantio",
+#' cex.title = 1, columns = 2),
+#' strip = strip.custom(var.name = "Época", strip.names = TRUE),
+#' xlab = expression("Doses de nitrogênio"~(libras~acre^{-1})),
+#' ylab = expression("Produção de beterraba"~(ton~acre^{-1})))
+#'
+NULL
diff --git a/data-raw/BanzattoQd6.3.4.txt b/data-raw/BanzattoQd6.3.4.txt
new file mode 100644
index 0000000000000000000000000000000000000000..3c1edd88c0bf426b7126ecfe5b2785f30e9d17df
--- /dev/null
+++ b/data-raw/BanzattoQd6.3.4.txt
@@ -0,0 +1,73 @@
+data inset epoc bloco prod
+1 0 1 1 25.7
+1 0 2 1 31.8
+1 0 3 1 34.6
+1 1 1 1 27.7
+1 1 2 1 38
+1 1 3 1 42.1
+2 0 1 1 28.9
+2 0 2 1 37.5
+2 0 3 1 38.4
+2 1 1 1 38
+2 1 2 1 36.9
+2 1 3 1 44.2
+3 0 1 1 23.4
+3 0 2 1 25.3
+3 0 3 1 29.8
+3 1 1 1 20.8
+3 1 2 1 29
+3 1 3 1 36.6
+1 0 1 2 25.4
+1 0 2 2 29.5
+1 0 3 2 37.2
+1 1 1 2 30.3
+1 1 2 2 40.6
+1 1 3 2 43.6
+2 0 1 2 24.7
+2 0 2 2 31.5
+2 0 3 2 32.5
+2 1 1 2 31
+2 1 2 2 31.9
+2 1 3 2 41.6
+3 0 1 2 24.2
+3 0 2 2 27.7
+3 0 3 2 29.9
+3 1 1 2 23
+3 1 2 2 32
+3 1 3 2 37.8
+1 0 1 3 23.8
+1 0 2 3 28.7
+1 0 3 3 29.1
+1 1 1 3 30.2
+1 1 2 3 34.6
+1 1 3 3 44.6
+2 0 1 3 27.8
+2 0 2 3 31
+2 0 3 3 31.2
+2 1 1 3 29.5
+2 1 2 3 31.5
+2 1 3 3 38.9
+3 0 1 3 21.2
+3 0 2 3 23.7
+3 0 3 3 24.3
+3 1 1 3 25.2
+3 1 2 3 26.5
+3 1 3 3 34.8
+1 0 1 4 22
+1 0 2 4 26.4
+1 0 3 4 23.7
+1 1 1 4 33.2
+1 1 2 4 31
+1 1 3 4 42.7
+2 0 1 4 23.4
+2 0 2 4 27.8
+2 0 3 4 29.8
+2 1 1 4 30.7
+2 1 2 4 35.9
+2 1 3 4 37.6
+3 0 1 4 20.9
+3 0 2 4 24.3
+3 0 3 4 23.8
+3 1 1 4 23.1
+3 1 2 4 31.2
+3 1 3 4 40.2
diff --git a/data-raw/BanzattoQd6.4.2.txt b/data-raw/BanzattoQd6.4.2.txt
new file mode 100644
index 0000000000000000000000000000000000000000..1e3b027341308e98167090e78c69ecd03b2745fc
--- /dev/null
+++ b/data-raw/BanzattoQd6.4.2.txt
@@ -0,0 +1,81 @@
+nitro epoca bloco prod
+0 E1 1 8.4
+0 E2 1 15.6
+0 E3 1 20.7
+0 E4 1 24.8
+0 E5 1 29.2
+80 E1 1 10.1
+80 E2 1 18.2
+80 E3 1 23.1
+80 E4 1 26.4
+80 E5 1 29.3
+160 E1 1 10.8
+160 E2 1 18.5
+160 E3 1 22.4
+160 E4 1 34.2
+160 E5 1 30.3
+320 E1 1 10.4
+320 E2 1 22.4
+320 E3 1 24
+320 E4 1 30.2
+320 E5 1 30.8
+0 E1 2 5.2
+0 E2 2 12.5
+0 E3 2 16.7
+0 E4 2 21.3
+0 E5 2 19.1
+80 E1 2 10.8
+80 E2 2 16.9
+80 E3 2 21.2
+80 E4 2 26
+80 E5 2 31
+160 E1 2 11.2
+160 E2 2 20.9
+160 E3 2 24.3
+160 E4 2 29.2
+160 E5 2 35.2
+320 E1 2 10.3
+320 E2 2 19.2
+320 E3 2 25.9
+320 E4 2 31.2
+320 E5 2 34.2
+0 E1 3 6.1
+0 E2 3 10.5
+0 E3 3 13.9
+0 E4 3 13.6
+0 E5 3 16.4
+80 E1 3 9.5
+80 E2 3 16.9
+80 E3 3 20.4
+80 E4 3 29.5
+80 E5 3 26.6
+160 E1 3 10.2
+160 E2 3 16.9
+160 E3 3 22.3
+160 E4 3 28
+160 E5 3 31.2
+320 E1 3 9.8
+320 E2 3 18.1
+320 E3 3 23.9
+320 E4 3 28.8
+320 E5 3 30.9
+0 E1 4 2.3
+0 E2 4 8.8
+0 E3 4 9.8
+0 E4 4 10.1
+0 E5 4 11.4
+80 E1 4 9
+80 E2 4 15.9
+80 E3 4 20.9
+80 E4 4 23.1
+80 E5 4 23.2
+160 E1 4 8.5
+160 E2 4 17.2
+160 E3 4 22.8
+160 E4 4 28.7
+160 E5 4 32.6
+320 E1 4 7.4
+320 E2 4 17.8
+320 E3 4 22.8
+320 E4 4 31.9
+320 E5 4 29.2
diff --git a/data/BanzattoQd6.3.4.rda b/data/BanzattoQd6.3.4.rda
new file mode 100644
index 0000000000000000000000000000000000000000..788c37468de76339c0019b5a69db936b8c65413a
Binary files /dev/null and b/data/BanzattoQd6.3.4.rda differ
diff --git a/data/BanzattoQd6.4.2.rda b/data/BanzattoQd6.4.2.rda
new file mode 100644
index 0000000000000000000000000000000000000000..614dd4dd69164f8de6b13f491cf5256ade4ea34b
Binary files /dev/null and b/data/BanzattoQd6.4.2.rda differ
diff --git a/man/BanzattoQd6.3.4.Rd b/man/BanzattoQd6.3.4.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..734e00d146817a2fb85b373f4265cf617d3334ed
--- /dev/null
+++ b/man/BanzattoQd6.3.4.Rd
@@ -0,0 +1,65 @@
+% Generated by roxygen2 (4.1.1): do not edit by hand
+% Please edit documentation in R/BanzattoQd6.3.4.R
+\name{BanzattoQd6.3.4}
+\alias{BanzattoQd6.3.4}
+\title{Épocas de Plantio e Colheita na Produção de Beterraba}
+\format{Um \code{data.frame} com 72 observações e 5 variáveis.
+ \describe{
+
+\item{\code{data}}{Fator de níveis ordinais que representa as datas
+ de plantio de beterraba. Os níveis do fator data foram
+ casualizados nas parcelas.}
+
+\item{\code{inset}}{Variável binária que representa a aplicação de
+ inseticida (1) ou não (0). Este fator foi casualizado as
+ subparcelas.}
+
+\item{\code{epoc}}{Fator de níveis ordinais que representa a época de
+ colheita das beterrabas. Esse fator foi casualizado nas
+ subsubparcelas.}
+
+\item{\code{bloco}}{Fator de níveis nominais que presenta os blocos
+ do experimento.}
+
+\item{\code{prod}}{Produção de beterraba. A unidade de medida não foi
+ informada.}
+
+}}
+\source{
+Banzatto, D. A., Kronka, S. D. (2013). Experimentação
+ Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 6.3.4,
+ pág. 156)
+}
+\description{
+Experimento estudar o efeito de datas de plantio, épocas
+ de colheita e aplicação de inseticidas na producação de
+ beterraba. Os tratamentos foi arranjados em parcelas
+ subsubdivididas no delineamento de blocos casualizados.
+}
+\examples{
+library(lattice)
+
+data(BanzattoQd6.3.4)
+
+str(BanzattoQd6.3.4)
+
+ftable(with(BanzattoQd6.3.4,
+ tapply(prod,
+ list(data = data,
+ inset = inset,
+ epoc = epoc,
+ bloco = bloco),
+ FUN = mean)))
+
+xyplot(prod ~ epoc | data, groups = inset, data = BanzattoQd6.3.4,
+ as.table = TRUE, layout = c(NA, 1),
+ jitter.x = TRUE, type = c("p", "a"),
+ auto.key = list(title = "Aplicação de inseticida",
+ cex.title = 1, columns = 2),
+ strip = strip.custom(var.name = "Época", strip.names = TRUE),
+ xlab = "Ordem das datas de plantio",
+ ylab = "Produção de beterraba")
+}
+\keyword{DBC}
+\keyword{PSS}
+
diff --git a/man/BanzattoQd6.4.2.Rd b/man/BanzattoQd6.4.2.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..fa42bf718d7c3e3a6546cc57a3ed93d7afa202c4
--- /dev/null
+++ b/man/BanzattoQd6.4.2.Rd
@@ -0,0 +1,68 @@
+% Generated by roxygen2 (4.1.1): do not edit by hand
+% Please edit documentation in R/BanzattoQd6.4.2.R
+\name{BanzattoQd6.4.2}
+\alias{BanzattoQd6.4.2}
+\title{Época de Plantio e Adubação Nitrogenada em Beterraba}
+\format{Um \code{data.frame} com 80 observações e 4 variáveis.
+ \describe{
+
+\item{\code{nitro}}{Fator de níveis métricos que correspondem à
+ quantidade de nitrogênio aplicada, em libras por acre.}
+
+\item{\code{epoca}}{Fator de níveis ordinais que representa as épocas
+ de plantio de beterraba.}
+
+\item{\code{bloco}}{Fator de níveis nominais que indentifica os
+ blocos do experimento.}
+
+\item{\code{prod}}{Producação de beterraba, em toneladas por acre.}
+
+}
+
+Na figura abaixo, tem-se a organização dos 4 blocos, bem como dos
+ níveis de época de plantio e notrogênio em cada um deles. No
+ bloco 1 (B1), a faixa em cinza claro horizontal indica a unidade
+ experimental da época 4 (E4) e a faixa cinza escuro vertical a
+ unidade experimental para o nível de nitrogênio 80 (N 80). A
+ cédula preta é a unidade experimental da combinação dos níveis
+ dos fatores.
+
+\if{html}{\figure{BanzattoQd6-4-2.png}{options: width="250px"}}
+\if{latex}{\figure{BanzattoQd6-4-2.png}{options: width=1.75in}}}
+\source{
+Banzatto, D. A., Kronka, S. D. (2013). Experimentação
+ Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 6.4.2,
+ pág. 163)
+}
+\description{
+Experimento em delineamento de blocos casualizados cujos
+ níveis dos fatores, época de plantio e nitrogênio, foram
+ casualizados em faixas. A variável reposta observada foi a
+ producação de beterraba.
+}
+\examples{
+library(lattice)
+
+data(BanzattoQd6.4.2)
+
+str(BanzattoQd6.4.2)
+
+ftable(with(BanzattoQd6.4.2,
+ tapply(prod,
+ list(nitro = nitro,
+ epoca = epoca,
+ bloco = bloco),
+ FUN = mean)))
+
+xyplot(prod ~ nitro, groups = epoca, data = BanzattoQd6.4.2,
+ as.table = TRUE, layout = c(NA, 1),
+ jitter.x = TRUE, type = c("p", "a"),
+ auto.key = list(title = "Épocas de plantio",
+ cex.title = 1, columns = 2),
+ strip = strip.custom(var.name = "Época", strip.names = TRUE),
+ xlab = expression("Doses de nitrogênio"~(libras~acre^{-1})),
+ ylab = expression("Produção de beterraba"~(ton~acre^{-1})))
+}
+\keyword{DBC}
+\keyword{EF}
+
diff --git a/man/figures/BanzattoQd6-4-2.png b/man/figures/BanzattoQd6-4-2.png
new file mode 100644
index 0000000000000000000000000000000000000000..8b8386b31951649e4847e23d515464456e003ec8
Binary files /dev/null and b/man/figures/BanzattoQd6-4-2.png differ