From fc8c3843c0b64d14327ba8654fd508a54c0e0e44 Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Thu, 21 Apr 2016 14:05:36 -0300
Subject: [PATCH 1/2] Adiciona 3 tabelas do Barbin.

---
 R/BarbinPg114.R          |  74 ++++++++++++++
 R/BarbinPg125.R          |  48 ++++++++++
 R/BarbinPg137.R          |  75 +++++++++++++++
 data-raw/BarbinPg114.txt | 201 +++++++++++++++++++++++++++++++++++++++
 data-raw/BarbinPg125.txt |  49 ++++++++++
 data-raw/BarbinPg137.txt |  55 +++++++++++
 data/BarbinPg114.rda     | Bin 0 -> 794 bytes
 data/BarbinPg125.rda     | Bin 0 -> 445 bytes
 data/BarbinPg137.rda     | Bin 0 -> 440 bytes
 man/BarbinPg114.Rd       |  81 ++++++++++++++++
 man/BarbinPg125.Rd       |  55 +++++++++++
 man/BarbinPg137.Rd       |  83 ++++++++++++++++
 12 files changed, 721 insertions(+)
 create mode 100644 R/BarbinPg114.R
 create mode 100644 R/BarbinPg125.R
 create mode 100644 R/BarbinPg137.R
 create mode 100644 data-raw/BarbinPg114.txt
 create mode 100644 data-raw/BarbinPg125.txt
 create mode 100644 data-raw/BarbinPg137.txt
 create mode 100644 data/BarbinPg114.rda
 create mode 100644 data/BarbinPg125.rda
 create mode 100644 data/BarbinPg137.rda
 create mode 100644 man/BarbinPg114.Rd
 create mode 100644 man/BarbinPg125.Rd
 create mode 100644 man/BarbinPg137.Rd

diff --git a/R/BarbinPg114.R b/R/BarbinPg114.R
new file mode 100644
index 0000000..67455d1
--- /dev/null
+++ b/R/BarbinPg114.R
@@ -0,0 +1,74 @@
+#' @name BarbinPg114
+#' @title Influência do Aparelho e Operador na Medição de Árvores
+#' @description Dados de um experimento fatorial 5 \eqn{\times} 4, em
+#'     delineamento de blocos casualizados, sobre e influência do
+#'     aparelho e do operador na determinação de altura de árvores, aos
+#'     7 anos de idade, de \emph{Eucaliptus saligna} (Simões,  Mello e
+#'     Barbin, 1967).
+#'
+#' Cinco aparelhos ou instrumentos de mensuração (hipsômetro de
+#'     Blume-Leiss, hipsômetro de Haga, hipsômetro Weise, prancheta
+#'     dendrométrica e trena) foram testados por 4 operadores resultando
+#'     em 20 combinações. Diante de uma árvore era sorteado um número no
+#'     universo de 1 a 20 que representava um operador \eqn{\times}
+#'     aparelho. Cada operador com um aparelho efetuava duas medições
+#'     consecutivas da mesma árvore (bloco) e a média era registrada. O
+#'     sorteio continuava até as combinações fossem realizadas na
+#'     árvore, então passava-se para a próxima árvore. Evidentemente, a
+#'     medida feita com o trena ficava sempre para o final (testemunha).
+#' @format Um \code{data.frame} com 200 observações e 4 variáveis.
+#'
+#' \describe{
+#'
+#' \item{\code{apar}}{Fator de níveis categóricos que identifica os
+#'     aparelhos utilizados pelos operadores para medição da altura
+#'     total das árvores}
+#'
+#' \item{\code{oper}}{Fator de níveis categóricos que identifica os
+#'     operadores que utilizaram os aparelhos.}
+#'
+#' \item{\code{bloc}}{Fator de níveis categóricos que representa as
+#'     árvores que foram medidas. Cada árvore funciona como um bloco
+#'     onde todos os operadores x aparelhos foram empregados.}
+#'
+#' \item{\code{alt}}{Altura total da árvore (média de duas medidas
+#'     consecutivas, em metros) determinada por cada aparelho ou
+#'     instrumento de medida e operador.}
+#'
+#' }
+#' @keywords DBC FAT2
+#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
+#'     Experimentos Agronômicos (2nd ed.). Londrina, PR:
+#'     Mecenas. (pág. 114)
+#'
+#' Simões, J. W., Mello, H. A., Barbin, D. (1967). Eficiência dos
+#'     aparelhos e e influência do operador na medição de altura total
+#'     de ávores. O Solo, Piracicaba, v.2, p.57-63.
+#' @examples
+#'
+#' library(latticeExtra)
+#'
+#' data(BarbinPg114)
+#'
+#' str(BarbinPg114)
+#'
+#' xyplot(alt ~ oper | bloc, data = BarbinPg114,
+#'        groups = apar, type = "b",
+#'        as.table = TRUE,
+#'        auto.key = list(space = "top", columns = 2,
+#'                        title = "Aparelhos", cex.title = 1.1),
+#'        strip = strip.custom(strip.names = TRUE,
+#'                             sep = " ", var.name = "Árvore"),
+#'        xlab = "Operadores",
+#'        ylab = "Altura total (m)") +
+#'     layer(panel.abline(h = mean(y), lwd = 2))
+#'
+#' xyplot(alt ~ oper | apar, data = BarbinPg114,
+#'        groups = bloc, type = "b",
+#'        as.table = TRUE,
+#'        auto.key = list(space = "right",
+#'                        title = "Árvore", cex.title = 1.1),
+#'        xlab = "Operadores",
+#'        ylab = "Altura total (m)")
+#'
+NULL
diff --git a/R/BarbinPg125.R b/R/BarbinPg125.R
new file mode 100644
index 0000000..1566012
--- /dev/null
+++ b/R/BarbinPg125.R
@@ -0,0 +1,48 @@
+#' @name BarbinPg125
+#' @title Adubação NPK no Cafeeiro
+#' @description Experimento no o delineamento de blocos casualizados que
+#'     estudou a combinação de nitrogênio, fósforo e potássio, cada um
+#'     com dois níveis (fatorial \eqn{2^3}), na produção de café
+#'     coco. Os níveis dos fertilizantes foram codificados para 0 e 1 e
+#'     não foi informada as doses reais de cada um deles.
+#' @format Um \code{data.frame} com 48 observações e 5 variáveis.
+#'
+#' \describe{
+#'
+#' \item{\code{N}}{Inteiro que codifica dois níveis de nitrogênio (0 e
+#'     1).}
+#'
+#' \item{\code{P}}{Inteiro que codifica dois níveis de fósforo (0 e 1).}
+#'
+#' \item{\code{K}}{Inteiro que codifica dois níveis de potássio (0 e 1).}
+#'
+#' \item{\code{bloc}}{Fator de níveis categóricos considerado para
+#'     controle local.}
+#'
+#' \item{\code{prod}}{Produção de café coco, em kg por parcela de 105
+#'     metros quadrados (12 covas no espaçamento 3,5 \eqn{\times} 2,5
+#'     m).}
+#'
+#' }
+#' @keywords DBC FAT3
+#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
+#'     Experimentos Agronômicos (2nd ed.). Londrina, PR:
+#'     Mecenas. (pág. 125)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(BarbinPg125)
+#'
+#' str(BarbinPg125)
+#'
+#' xyplot(prod ~ as.factor(N) | as.factor(P), data = BarbinPg125,
+#'        groups = K, type = c("p", "a"),
+#'        auto.key = list(space = "top", columns = 2,
+#'                        title = "Potássio (K)", cex.title = 1.1),
+#'        strip = strip.custom(strip.names = c(TRUE),
+#'                             sep = " ", var.name = "Fósforo (P)"),
+#'        xlab = "Nitrogênio (N)",
+#'        ylab = "Produção de café coco (kg)")
+#'
+NULL
diff --git a/R/BarbinPg137.R b/R/BarbinPg137.R
new file mode 100644
index 0000000..fd373b5
--- /dev/null
+++ b/R/BarbinPg137.R
@@ -0,0 +1,75 @@
+#' @name BarbinPg137
+#' @title Adubação NPK na Produção de Algodão Herbáceo
+#' @description Produção de algodão herbáceo de um ensaio de adubação
+#'     NPK \eqn{3^3} com confundimento (grupo W) de dois graus de
+#'     liberdade da interação tripla. Cada combinação NPK teve duas
+#'     repetições por bloco e o ensaio foi conduzido por Cavalcanti
+#'     (1977) em Parnambuco.
+#' @format Um \code{data.frame} com 54 observações e 6 variáveis.
+#'     \describe{
+#'
+#' \item{\code{N}}{Dose de nitrogênio (kg ha\eqn{^{-1}}) usada na
+#'     adubação.}
+#'
+#' \item{\code{P}}{Dose de fósforo (kg ha\eqn{^{-1}}) usada na
+#'     adubação.}
+#'
+#' \item{\code{K}}{Dose de potássio (kg ha\eqn{^{-1}}) usada na
+#'     adubação.}
+#'
+#' \item{\code{bloc}}{Fator de níveis categóricos considerado para
+#'     controle local.}
+#'
+#' \item{\code{rept}}{Número inteiro que identifica as repetições das
+#'     celas experimentais dentro dos blocos.}
+#'
+#' \item{\code{prod}}{Produção de algodão herbáceo, em kg
+#'     ha\eqn{^{-1}}.}
+#'
+#' }
+#' @keywords DBC FAT3 confundimento
+#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
+#'     Experimentos Agronômicos (2nd ed.). Londrina, PR:
+#'     Mecenas. (pág. 137)
+#'
+#' Cavalcanti, F. B. (1977). A adubação mineral na cultura do algodão
+#'     (\emph{Gossypium hirsutum} L.) no Estado de
+#'     Pernambuco. Dissetação de Mestrado, Escola Superior de
+#'     Agricultura "Luiz de Queiroz"/USP, Piracicaba.
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(BarbinPg137)
+#'
+#' str(BarbinPg137)
+#'
+#' x <- c("N", "P", "K")
+#' forms <- unlist(lapply(mapply(FUN = combn,
+#'                               m = 1:2,
+#'                               MoreArgs = list(x = x)),
+#'                        FUN = function(x) {
+#'                            paste0("~",
+#'                                   apply(x,
+#'                                         MARGIN = 2,
+#'                                         FUN = paste,
+#'                                         collapse = "+"))
+#'                        }))
+#'
+#' # A frequência das combinações simples e duplas.
+#' sapply(forms, xtabs, data = BarbinPg137)
+#'
+#' xyplot(prod ~ as.factor(N) | as.factor(P), data = BarbinPg137,
+#'        groups = K, type = c("p", "a"),
+#'        auto.key = list(space = "top", columns = 3,
+#'                        title = expression(
+#'                            "Potássio"~(K * ", " * kg~ha^{-1})),
+#'                        cex.title = 1.1),
+#'        strip = strip.custom(strip.names = c(TRUE), sep = " = ",
+#'                             var.name = expression(
+#'                                 "Fósforo"~(P * ", " * kg~ha^{-1}))),
+#'        xlab = expression("Nitrogênio"~(N * ", " * kg~ha^{-1})),
+#'        ylab = expression(
+#'            "Produção de algodão herbáceo"~(kg~ha^{-1})))
+#'
+NULL
diff --git a/data-raw/BarbinPg114.txt b/data-raw/BarbinPg114.txt
new file mode 100644
index 0000000..d031206
--- /dev/null
+++ b/data-raw/BarbinPg114.txt
@@ -0,0 +1,201 @@
+apar	oper	bloc	alt
+Hipsômetro de Blume-Leiss	1	1	22.4
+Hipsômetro de Haga	1	1	22.9
+Hipsômetro Weise	1	1	23.5
+Pracheta dendrométrica	1	1	22.5
+Trena	1	1	21.45
+Hipsômetro de Blume-Leiss	2	1	22.65
+Hipsômetro de Haga	2	1	23
+Hipsômetro Weise	2	1	22
+Pracheta dendrométrica	2	1	22.9
+Trena	2	1	21.45
+Hipsômetro de Blume-Leiss	3	1	22.5
+Hipsômetro de Haga	3	1	22.5
+Hipsômetro Weise	3	1	22.75
+Pracheta dendrométrica	3	1	21.75
+Trena	3	1	21.35
+Hipsômetro de Blume-Leiss	4	1	21.25
+Hipsômetro de Haga	4	1	22.1
+Hipsômetro Weise	4	1	21.25
+Pracheta dendrométrica	4	1	21.9
+Trena	4	1	21.2
+Hipsômetro de Blume-Leiss	1	2	20.85
+Hipsômetro de Haga	1	2	21.4
+Hipsômetro Weise	1	2	21
+Pracheta dendrométrica	1	2	20.5
+Trena	1	2	19.2
+Hipsômetro de Blume-Leiss	2	2	20.65
+Hipsômetro de Haga	2	2	20.7
+Hipsômetro Weise	2	2	19.5
+Pracheta dendrométrica	2	2	21.2
+Trena	2	2	18.9
+Hipsômetro de Blume-Leiss	3	2	21.25
+Hipsômetro de Haga	3	2	21
+Hipsômetro Weise	3	2	20.5
+Pracheta dendrométrica	3	2	19.35
+Trena	3	2	19.2
+Hipsômetro de Blume-Leiss	4	2	21.25
+Hipsômetro de Haga	4	2	21.6
+Hipsômetro Weise	4	2	21.5
+Pracheta dendrométrica	4	2	21
+Trena	4	2	18.9
+Hipsômetro de Blume-Leiss	1	3	23.6
+Hipsômetro de Haga	1	3	23.95
+Hipsômetro Weise	1	3	23.75
+Pracheta dendrométrica	1	3	23.2
+Trena	1	3	23.35
+Hipsômetro de Blume-Leiss	2	3	23
+Hipsômetro de Haga	2	3	22.5
+Hipsômetro Weise	2	3	23.25
+Pracheta dendrométrica	2	3	24.6
+Trena	2	3	23.2
+Hipsômetro de Blume-Leiss	3	3	23.1
+Hipsômetro de Haga	3	3	23
+Hipsômetro Weise	3	3	22.75
+Pracheta dendrométrica	3	3	21.75
+Trena	3	3	23.2
+Hipsômetro de Blume-Leiss	4	3	22.25
+Hipsômetro de Haga	4	3	22.35
+Hipsômetro Weise	4	3	22.1
+Pracheta dendrométrica	4	3	22.75
+Trena	4	3	23.3
+Hipsômetro de Blume-Leiss	1	4	21
+Hipsômetro de Haga	1	4	22.25
+Hipsômetro Weise	1	4	20.75
+Pracheta dendrométrica	1	4	21
+Trena	1	4	20.35
+Hipsômetro de Blume-Leiss	2	4	20.75
+Hipsômetro de Haga	2	4	20.95
+Hipsômetro Weise	2	4	20.5
+Pracheta dendrométrica	2	4	21.5
+Trena	2	4	20.25
+Hipsômetro de Blume-Leiss	3	4	20.6
+Hipsômetro de Haga	3	4	21.75
+Hipsômetro Weise	3	4	19.5
+Pracheta dendrométrica	3	4	19.5
+Trena	3	4	20.3
+Hipsômetro de Blume-Leiss	4	4	21.25
+Hipsômetro de Haga	4	4	21.75
+Hipsômetro Weise	4	4	21.7
+Pracheta dendrométrica	4	4	20.75
+Trena	4	4	20.3
+Hipsômetro de Blume-Leiss	1	5	19.1
+Hipsômetro de Haga	1	5	21.4
+Hipsômetro Weise	1	5	19.5
+Pracheta dendrométrica	1	5	21
+Trena	1	5	19.95
+Hipsômetro de Blume-Leiss	2	5	20.25
+Hipsômetro de Haga	2	5	22.25
+Hipsômetro Weise	2	5	21.25
+Pracheta dendrométrica	2	5	21.2
+Trena	2	5	19.95
+Hipsômetro de Blume-Leiss	3	5	21
+Hipsômetro de Haga	3	5	22.75
+Hipsômetro Weise	3	5	20.5
+Pracheta dendrométrica	3	5	20.5
+Trena	3	5	20
+Hipsômetro de Blume-Leiss	4	5	18
+Hipsômetro de Haga	4	5	19.75
+Hipsômetro Weise	4	5	19.75
+Pracheta dendrométrica	4	5	19.7
+Trena	4	5	19.9
+Hipsômetro de Blume-Leiss	1	6	19.8
+Hipsômetro de Haga	1	6	21
+Hipsômetro Weise	1	6	19.5
+Pracheta dendrométrica	1	6	18.9
+Trena	1	6	19.35
+Hipsômetro de Blume-Leiss	2	6	19.8
+Hipsômetro de Haga	2	6	20.75
+Hipsômetro Weise	2	6	19.75
+Pracheta dendrométrica	2	6	20
+Trena	2	6	19.2
+Hipsômetro de Blume-Leiss	3	6	19.5
+Hipsômetro de Haga	3	6	20.35
+Hipsômetro Weise	3	6	19.75
+Pracheta dendrométrica	3	6	19
+Trena	3	6	19.3
+Hipsômetro de Blume-Leiss	4	6	20
+Hipsômetro de Haga	4	6	20.65
+Hipsômetro Weise	4	6	19.75
+Pracheta dendrométrica	4	6	20
+Trena	4	6	19.3
+Hipsômetro de Blume-Leiss	1	7	16.55
+Hipsômetro de Haga	1	7	16.9
+Hipsômetro Weise	1	7	17.5
+Pracheta dendrométrica	1	7	17.8
+Trena	1	7	17.45
+Hipsômetro de Blume-Leiss	2	7	17.25
+Hipsômetro de Haga	2	7	18
+Hipsômetro Weise	2	7	17.75
+Pracheta dendrométrica	2	7	18.7
+Trena	2	7	17.35
+Hipsômetro de Blume-Leiss	3	7	16.6
+Hipsômetro de Haga	3	7	17.2
+Hipsômetro Weise	3	7	17.25
+Pracheta dendrométrica	3	7	16.35
+Trena	3	7	17.5
+Hipsômetro de Blume-Leiss	4	7	17.25
+Hipsômetro de Haga	4	7	16.7
+Hipsômetro Weise	4	7	18.2
+Pracheta dendrométrica	4	7	18.45
+Trena	4	7	17.4
+Hipsômetro de Blume-Leiss	1	8	14.75
+Hipsômetro de Haga	1	8	14.85
+Hipsômetro Weise	1	8	14.5
+Pracheta dendrométrica	1	8	14.3
+Trena	1	8	14.45
+Hipsômetro de Blume-Leiss	2	8	15
+Hipsômetro de Haga	2	8	14.75
+Hipsômetro Weise	2	8	14.75
+Pracheta dendrométrica	2	8	15
+Trena	2	8	14.35
+Hipsômetro de Blume-Leiss	3	8	14.35
+Hipsômetro de Haga	3	8	14.85
+Hipsômetro Weise	3	8	14.25
+Pracheta dendrométrica	3	8	14.1
+Trena	3	8	14.4
+Hipsômetro de Blume-Leiss	4	8	14.65
+Hipsômetro de Haga	4	8	15.75
+Hipsômetro Weise	4	8	14.6
+Pracheta dendrométrica	4	8	14.3
+Trena	4	8	14.5
+Hipsômetro de Blume-Leiss	1	9	21.1
+Hipsômetro de Haga	1	9	22
+Hipsômetro Weise	1	9	20
+Pracheta dendrométrica	1	9	20.6
+Trena	1	9	22
+Hipsômetro de Blume-Leiss	2	9	19.75
+Hipsômetro de Haga	2	9	20.5
+Hipsômetro Weise	2	9	20.5
+Pracheta dendrométrica	2	9	21.5
+Trena	2	9	21.8
+Hipsômetro de Blume-Leiss	3	9	20.75
+Hipsômetro de Haga	3	9	22.35
+Hipsômetro Weise	3	9	21.5
+Pracheta dendrométrica	3	9	20.85
+Trena	3	9	21.9
+Hipsômetro de Blume-Leiss	4	9	21
+Hipsômetro de Haga	4	9	20.85
+Hipsômetro Weise	4	9	21.25
+Pracheta dendrométrica	4	9	20.75
+Trena	4	9	22
+Hipsômetro de Blume-Leiss	1	10	14.3
+Hipsômetro de Haga	1	10	15
+Hipsômetro Weise	1	10	14
+Pracheta dendrométrica	1	10	14.2
+Trena	1	10	14.75
+Hipsômetro de Blume-Leiss	2	10	14.25
+Hipsômetro de Haga	2	10	15.25
+Hipsômetro Weise	2	10	14.25
+Pracheta dendrométrica	2	10	14.2
+Trena	2	10	14.65
+Hipsômetro de Blume-Leiss	3	10	14.1
+Hipsômetro de Haga	3	10	16
+Hipsômetro Weise	3	10	14.25
+Pracheta dendrométrica	3	10	13.85
+Trena	3	10	14.8
+Hipsômetro de Blume-Leiss	4	10	14.25
+Hipsômetro de Haga	4	10	15.4
+Hipsômetro Weise	4	10	14.75
+Pracheta dendrométrica	4	10	15.1
+Trena	4	10	14.4
diff --git a/data-raw/BarbinPg125.txt b/data-raw/BarbinPg125.txt
new file mode 100644
index 0000000..677d402
--- /dev/null
+++ b/data-raw/BarbinPg125.txt
@@ -0,0 +1,49 @@
+N	P	K	bloc	prod
+0	0	0	I	31.8
+0	0	1	I	25.6
+0	1	0	I	36.2
+0	1	1	I	37.1
+1	0	0	I	35.3
+1	0	1	I	51.5
+1	1	0	I	43.8
+1	1	1	I	47
+0	0	0	II	40.5
+0	0	1	II	32.4
+0	1	0	II	37.8
+0	1	1	II	53
+1	0	0	II	39
+1	0	1	II	66.1
+1	1	0	II	32.7
+1	1	1	II	49.9
+0	0	0	III	25.7
+0	0	1	III	39.6
+0	1	0	III	40.9
+0	1	1	III	36.4
+1	0	0	III	36
+1	0	1	III	51.7
+1	1	0	III	43.3
+1	1	1	III	50.9
+0	0	0	IV	25.7
+0	0	1	IV	48.9
+0	1	0	IV	44.8
+0	1	1	IV	43
+1	0	0	IV	33.5
+1	0	1	IV	52
+1	1	0	IV	41.8
+1	1	1	IV	49.1
+0	0	0	V	37.2
+0	0	1	V	20.6
+0	1	0	V	32.4
+0	1	1	V	19.7
+1	0	0	V	28.2
+1	0	1	V	56.6
+1	1	0	V	31.9
+1	1	1	V	71.7
+0	0	0	VI	45.3
+0	0	1	VI	33.7
+0	1	0	VI	38.4
+0	1	1	VI	30.4
+1	0	0	VI	42.4
+1	0	1	VI	58.2
+1	1	0	VI	37.7
+1	1	1	VI	39.6
diff --git a/data-raw/BarbinPg137.txt b/data-raw/BarbinPg137.txt
new file mode 100644
index 0000000..ef5f3fe
--- /dev/null
+++ b/data-raw/BarbinPg137.txt
@@ -0,0 +1,55 @@
+N	P	K	bloc	rept	prod
+0	0	0	1	1	868
+0	60	120	1	1	951
+0	120	60	1	1	694
+40	0	60	1	1	972
+40	60	0	1	1	1319
+40	120	120	1	1	812
+80	0	120	1	1	951
+80	60	60	1	1	1493
+80	120	0	1	1	1076
+0	0	0	1	2	319
+0	60	120	1	2	521
+0	120	60	1	2	868
+40	0	60	1	2	486
+40	60	0	1	2	1139
+40	120	120	1	2	868
+80	0	120	1	2	1076
+80	60	60	1	2	1146
+80	120	0	1	2	1215
+0	0	60	2	1	625
+0	60	0	2	1	1319
+0	120	120	2	1	1042
+40	0	120	2	1	729
+40	60	60	2	1	764
+40	120	0	2	1	806
+80	0	0	2	1	1285
+80	60	120	2	1	972
+80	120	60	2	1	1042
+0	0	60	2	2	764
+0	60	0	2	2	1042
+0	120	120	2	2	729
+40	0	120	2	2	833
+40	60	60	2	2	1215
+40	120	0	2	2	625
+80	0	0	2	2	604
+80	60	120	2	2	1153
+80	120	60	2	2	729
+0	0	120	3	1	465
+0	60	60	3	1	833
+0	120	0	3	1	1069
+40	0	0	3	1	1215
+40	60	120	3	1	729
+40	120	60	3	1	660
+80	0	60	3	1	1076
+80	60	0	3	1	1250
+80	120	120	3	1	1076
+0	0	120	3	2	1181
+0	60	60	3	2	729
+0	120	0	3	2	660
+40	0	0	3	2	937
+40	60	120	3	2	1083
+40	120	60	3	2	625
+80	0	60	3	2	972
+80	60	0	3	2	1139
+80	120	120	3	2	1264
diff --git a/data/BarbinPg114.rda b/data/BarbinPg114.rda
new file mode 100644
index 0000000000000000000000000000000000000000..4055d4eee477e9df592fe3e145dc0513faf09503
GIT binary patch
literal 794
zcmV+#1LgceT4*^jL0KkKS#ixcjsOSxfB*mcXs|#J|KL<aRNz17-+({_05Aa{3;;+*
z03ZPX2m#OodEhFDVUS{xG8&!=88%U-(Etxq(liE|05sZ$O*A;slOqVk0|}tOCWAo9
zlSWL25Ey1uRMY?fXlT*uXaE{C$N&HU4m4!Q!Z85CXfO$&&@yDvlOco#5hzfm^)%4M
z8KN}wfCC@{MuSF!Kzf@~+a=h9KBzz_Kq&@^1tQgesR679o6OedY0TH@X(pE%h+M-*
zO#?gszY5xMXiyZUMMD|WVJ6x+L_+;lf<RILnXP4A*?VYMgpd?~C9VW2BvwI+gqzgV
zD`uc2$`aLUnL>d#0XIP^iG@P_505^Qkc6mfx&B;G!HrcD83jg$#^r3p1@!32%WNAv
z`kAjHsi}_@))WMgK@2ekZo9%~H_SQux%fDJn!83mvKr{1Sq3Oc2qJR`K+psQ0~8?$
z6Vgi6iDE>oSpras$rX$s08&Xv5Tz_7mhx0oVneYK^dWqp#t^Y8S}jQyGRbcov8A%v
zSfIV2p4f?&I2a^`JQ*pH+h@_)@CsH7PHF~dnN5yL+5=-^i$f9tNFX1?-jX^=C{7L^
z5qC?X<#k1EgrXrL0U)G`NH<@TqJ)d1Q;2m27x2iDLBUkGEO5A27?T)qKnOz%hA<|o
z%n1dIDVD~PlP(OA%xXl4mjupnFhY=_AVOtSCc#h)5n`oEn>&7^YjbOmWQjt|os>@W
z{r0GOx>86Ve)RXpFB$N-)1rEOa$|C(87P$*B|22j@Mb@MxGF~A`bIkhf$C5s4F@tv
z1cx}<m`#G6X`}p@;SIvuPE4|)oZY(P_gML|uWgoBtyrS#QQBr&pj-HM@_mwFltA*B
zyH&Xkc8h8|X3hM_28056!ced<P@%t4ycKx41INk;ng>pbN>WmiOjw)xxK3?vcwv!9
zNfH(@X}ampPNp0f^|}s9))s`ilqyu9$J(OdgxFM&NWgR;A`-y^>sGP|q!B_A?0RlG
Y84yi4qpC+~h<}T@BAh5lIOd#3038ui4FCWD

literal 0
HcmV?d00001

diff --git a/data/BarbinPg125.rda b/data/BarbinPg125.rda
new file mode 100644
index 0000000000000000000000000000000000000000..7ffefc83211ac836c45c436b81c8e4fdcf739d4a
GIT binary patch
literal 445
zcmV;u0Yd&lT4*^jL0KkKSysEGGXMfI|NsBH$RGd#ekK3^abQ2E-GD&^05Aan2mn9^
zKp+7G2m!DGm=yt%MA3*Rsp>sUfu^3O)B|d5LFqK~gVYD2Y*We{G}8n!8flS}2nLz}
z!f4Yb01z}0DWx(^MkkbMplE0SXa<0Kf$9JrpmVi9Vs<z8aa55>6=YK>$b_2<wwI;j
zT)U$CD{vdzX=RITuI6i%oob9hkGqOt{m3`}Lu5B~YsYga2<G3mhzAC|`fsKP0iFsN
zz;bZkhs~Ii$ERs_6i#4-RQrywux~0r4x*4wvP6-z3X9ukwo6(<T1L`Hn7Fx8fRMug
zwgj;O(Evh3Q%?nl2#}C@dTFpkwz9TK0=OweMC{LTQOKa;6Cwv_gM6*pviA#Ks#K{`
z6-`l5v?>sWMe;;7Kzet4vAmWDT_r^clrmXei0?7`iY9~8LcTp&AXUv;&@*fi5&%T>
z)DR&0o98s~w5;wLEW3Me0zC7q)9-E+YZe*p2Uu^f?tHlLKHP+Zq*Q;bYoDn3g8s!a
nFfYR?1VvD->XPWXQ7C1`?_pV*@3M0=75*;dig2MIt#?RfVED!~

literal 0
HcmV?d00001

diff --git a/data/BarbinPg137.rda b/data/BarbinPg137.rda
new file mode 100644
index 0000000000000000000000000000000000000000..7e96cce561fe8e0fb9bb171578415c69b04e10cf
GIT binary patch
literal 440
zcmV;p0Z0BqT4*^jL0KkKS^kP7-2elA|NsAcTo6D3d4N<&R6&2I-Gg8Ie1t#%L_k1P
zKmb5QKn1V?i~^#jjV97)(?iq%001-qGynhw5Xc;8Xc{!g(?*#AiGlzDpfm=V0f90E
zN<<?RJxv;DXa<AIXwjq7P-&yodO!w%dYeb8FtHid(?K*0I8al7Xjxhigv$uokn7WQ
z4TPA^JqExa!ZyAbjQf{$c7evbX%d5g8WlzeXr|F!1S<xrl63%`T1Wsxp$Rq~vLhM*
zR>UL#?AE9qy0#E5S4iAp3{}yn1{?f%bgHrz)Y)$n-DaQC+6uducQ9qOmM9Ci6jI!6
zWb$tFHTQg3dP{Xf7z9BQBvB+UL=?XQsAz~4!7G4&2!WOW@?&aXA@zt=$3f2T@Mq<G
zW%;e7Jsioss3D01R*fKzYM@YR7$K&qvjuZ|L_PW**A2Tsgg7wSScUwQ1U0yq2q$*1
zfI9fDC@RpHT1u{QU_C!Jm9ir4I4NV1Jpu(Gq(<UjBX338Ti3~QtxH#}oye|o$v{IH
i!f3^Wxx}8!3qfIJMm`}|icnxL_`8xR!i0zPQ6}hDs<^}e

literal 0
HcmV?d00001

diff --git a/man/BarbinPg114.Rd b/man/BarbinPg114.Rd
new file mode 100644
index 0000000..6cbcef3
--- /dev/null
+++ b/man/BarbinPg114.Rd
@@ -0,0 +1,81 @@
+% Generated by roxygen2 (4.1.1): do not edit by hand
+% Please edit documentation in R/BarbinPg114.R
+\name{BarbinPg114}
+\alias{BarbinPg114}
+\title{Influência do Aparelho e Operador na Medição de Árvores}
+\format{Um \code{data.frame} com 200 observações e 4 variáveis.
+
+\describe{
+
+\item{\code{apar}}{Fator de níveis categóricos que identifica os
+    aparelhos utilizados pelos operadores para medição da altura
+    total das árvores}
+
+\item{\code{oper}}{Fator de níveis categóricos que identifica os
+    operadores que utilizaram os aparelhos.}
+
+\item{\code{bloc}}{Fator de níveis categóricos que representa as
+    árvores que foram medidas. Cada árvore funciona como um bloco
+    onde todos os operadores x aparelhos foram empregados.}
+
+\item{\code{alt}}{Altura total da árvore (média de duas medidas
+    consecutivas, em metros) determinada por cada aparelho ou
+    instrumento de medida e operador.}
+
+}}
+\source{
+Barbin, D. (2013). Planejamento e Análise Estatística de
+    Experimentos Agronômicos (2nd ed.). Londrina, PR:
+    Mecenas. (pág. 114)
+
+Simões, J. W., Mello, H. A., Barbin, D. (1967). Eficiência dos
+    aparelhos e e influência do operador na medição de altura total
+    de ávores. O Solo, Piracicaba, v.2, p.57-63.
+}
+\description{
+Dados de um experimento fatorial 5 \eqn{\times} 4, em
+    delineamento de blocos casualizados, sobre e influência do
+    aparelho e do operador na determinação de altura de árvores, aos
+    7 anos de idade, de \emph{Eucaliptus saligna} (Simões,  Mello e
+    Barbin, 1967).
+
+Cinco aparelhos ou instrumentos de mensuração (hipsômetro de
+    Blume-Leiss, hipsômetro de Haga, hipsômetro Weise, prancheta
+    dendrométrica e trena) foram testados por 4 operadores resultando
+    em 20 combinações. Diante de uma árvore era sorteado um número no
+    universo de 1 a 20 que representava um operador \eqn{\times}
+    aparelho. Cada operador com um aparelho efetuava duas medições
+    consecutivas da mesma árvore (bloco) e a média era registrada. O
+    sorteio continuava até as combinações fossem realizadas na
+    árvore, então passava-se para a próxima árvore. Evidentemente, a
+    medida feita com o trena ficava sempre para o final (testemunha).
+}
+\examples{
+library(latticeExtra)
+
+data(BarbinPg114)
+
+str(BarbinPg114)
+
+xyplot(alt ~ oper | bloc, data = BarbinPg114,
+       groups = apar, type = "b",
+       as.table = TRUE,
+       auto.key = list(space = "top", columns = 2,
+                       title = "Aparelhos", cex.title = 1.1),
+       strip = strip.custom(strip.names = TRUE,
+                            sep = " ", var.name = "Árvore"),
+       xlab = "Operadores",
+       ylab = "Altura total (m)") +
+    layer(panel.abline(h = mean(y), lwd = 2))
+
+xyplot(alt ~ oper | apar, data = BarbinPg114,
+       groups = bloc, type = "b",
+       as.table = TRUE,
+       auto.key = list(space = "right",
+                       title = "Árvore", cex.title = 1.1),
+       xlab = "Operadores",
+       ylab = "Altura total (m)")
+}
+\keyword{DBC}
+\keyword{FAT2}
+
diff --git a/man/BarbinPg125.Rd b/man/BarbinPg125.Rd
new file mode 100644
index 0000000..2a4bbb9
--- /dev/null
+++ b/man/BarbinPg125.Rd
@@ -0,0 +1,55 @@
+% Generated by roxygen2 (4.1.1): do not edit by hand
+% Please edit documentation in R/BarbinPg125.R
+\name{BarbinPg125}
+\alias{BarbinPg125}
+\title{Adubação NPK no Cafeeiro}
+\format{Um \code{data.frame} com 48 observações e 5 variáveis.
+
+\describe{
+
+\item{\code{N}}{Inteiro que codifica dois níveis de nitrogênio (0 e
+    1).}
+
+\item{\code{P}}{Inteiro que codifica dois níveis de fósforo (0 e 1).}
+
+\item{\code{K}}{Inteiro que codifica dois níveis de potássio (0 e 1).}
+
+\item{\code{bloc}}{Fator de níveis categóricos considerado para
+    controle local.}
+
+\item{\code{prod}}{Produção de café coco, em kg por parcela de 105
+    metros quadrados (12 covas no espaçamento 3,5 \eqn{\times} 2,5
+    m).}
+
+}}
+\source{
+Barbin, D. (2013). Planejamento e Análise Estatística de
+    Experimentos Agronômicos (2nd ed.). Londrina, PR:
+    Mecenas. (pág. 125)
+}
+\description{
+Experimento no o delineamento de blocos casualizados que
+    estudou a combinação de nitrogênio, fósforo e potássio, cada um
+    com dois níveis (fatorial \eqn{2^3}), na produção de café
+    coco. Os níveis dos fertilizantes foram codificados para 0 e 1 e
+    não foi informada as doses reais de cada um deles.
+}
+\examples{
+library(lattice)
+
+data(BarbinPg125)
+
+str(BarbinPg125)
+
+xyplot(prod ~ as.factor(N) | as.factor(P), data = BarbinPg125,
+       groups = K, type = c("p", "a"),
+       auto.key = list(space = "top", columns = 2,
+                       title = "Potássio (K)", cex.title = 1.1),
+       strip = strip.custom(strip.names = c(TRUE),
+                            sep = " ", var.name = "Fósforo (P)"),
+       xlab = "Nitrogênio (N)",
+       ylab = "Produção de café coco (kg)")
+}
+\keyword{DBC}
+\keyword{FAT3}
+
diff --git a/man/BarbinPg137.Rd b/man/BarbinPg137.Rd
new file mode 100644
index 0000000..13930fc
--- /dev/null
+++ b/man/BarbinPg137.Rd
@@ -0,0 +1,83 @@
+% Generated by roxygen2 (4.1.1): do not edit by hand
+% Please edit documentation in R/BarbinPg137.R
+\name{BarbinPg137}
+\alias{BarbinPg137}
+\title{Adubação NPK na Produção de Algodão Herbáceo}
+\format{Um \code{data.frame} com 54 observações e 6 variáveis.
+    \describe{
+
+\item{\code{N}}{Dose de nitrogênio (kg ha\eqn{^{-1}}) usada na
+    adubação.}
+
+\item{\code{P}}{Dose de fósforo (kg ha\eqn{^{-1}}) usada na
+    adubação.}
+
+\item{\code{K}}{Dose de potássio (kg ha\eqn{^{-1}}) usada na
+    adubação.}
+
+\item{\code{bloc}}{Fator de níveis categóricos considerado para
+    controle local.}
+
+\item{\code{rept}}{Número inteiro que identifica as repetições das
+    celas experimentais dentro dos blocos.}
+
+\item{\code{prod}}{Produção de algodão herbáceo, em kg
+    ha\eqn{^{-1}}.}
+
+}}
+\source{
+Barbin, D. (2013). Planejamento e Análise Estatística de
+    Experimentos Agronômicos (2nd ed.). Londrina, PR:
+    Mecenas. (pág. 137)
+
+Cavalcanti, F. B. (1977). A adubação mineral na cultura do algodão
+    (\emph{Gossypium hirsutum} L.) no Estado de
+    Pernambuco. Dissetação de Mestrado, Escola Superior de
+    Agricultura "Luiz de Queiroz"/USP, Piracicaba.
+}
+\description{
+Produção de algodão herbáceo de um ensaio de adubação
+    NPK \eqn{3^3} com confundimento (grupo W) de dois graus de
+    liberdade da interação tripla. Cada combinação NPK teve duas
+    repetições por bloco e o ensaio foi conduzido por Cavalcanti
+    (1977) em Parnambuco.
+}
+\examples{
+library(lattice)
+
+data(BarbinPg137)
+
+str(BarbinPg137)
+
+x <- c("N", "P", "K")
+forms <- unlist(lapply(mapply(FUN = combn,
+                              m = 1:2,
+                              MoreArgs = list(x = x)),
+                       FUN = function(x) {
+                           paste0("~",
+                                  apply(x,
+                                        MARGIN = 2,
+                                        FUN = paste,
+                                        collapse = "+"))
+                       }))
+
+# A frequência das combinações simples e duplas.
+sapply(forms, xtabs, data = BarbinPg137)
+
+xyplot(prod ~ as.factor(N) | as.factor(P), data = BarbinPg137,
+       groups = K, type = c("p", "a"),
+       auto.key = list(space = "top", columns = 3,
+                       title = expression(
+                           "Potássio"~(K * ", " * kg~ha^{-1})),
+                       cex.title = 1.1),
+       strip = strip.custom(strip.names = c(TRUE), sep = " = ",
+                            var.name = expression(
+                                "Fósforo"~(P * ", " * kg~ha^{-1}))),
+       xlab = expression("Nitrogênio"~(N * ", " * kg~ha^{-1})),
+       ylab = expression(
+           "Produção de algodão herbáceo"~(kg~ha^{-1})))
+}
+\keyword{DBC}
+\keyword{FAT3}
+\keyword{confundimento}
+
-- 
GitLab


From 0b49395d6b68d4576970649ada1d2bacf525ff12 Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Fri, 29 Apr 2016 01:53:33 -0300
Subject: [PATCH 2/2] =?UTF-8?q?Realiza=20m=C3=ADnimas=20corre=C3=A7=C3=B5e?=
 =?UTF-8?q?s=20para=20adequa=C3=A7=C3=A3o?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 R/BarbinPg114.R    |  4 ++--
 R/BarbinPg125.R    |  2 +-
 R/BarbinPg137.R    |  6 +++---
 man/BarbinPg114.Rd |  8 +++++---
 man/BarbinPg125.Rd |  6 ++++--
 man/BarbinPg137.Rd | 10 ++++++----
 man/labestData.Rd  |  2 +-
 7 files changed, 22 insertions(+), 16 deletions(-)

diff --git a/R/BarbinPg114.R b/R/BarbinPg114.R
index 67455d1..939ca8a 100644
--- a/R/BarbinPg114.R
+++ b/R/BarbinPg114.R
@@ -22,7 +22,7 @@
 #'
 #' \item{\code{apar}}{Fator de níveis categóricos que identifica os
 #'     aparelhos utilizados pelos operadores para medição da altura
-#'     total das árvores}
+#'     total das árvores.}
 #'
 #' \item{\code{oper}}{Fator de níveis categóricos que identifica os
 #'     operadores que utilizaram os aparelhos.}
@@ -43,7 +43,7 @@
 #'
 #' Simões, J. W., Mello, H. A., Barbin, D. (1967). Eficiência dos
 #'     aparelhos e e influência do operador na medição de altura total
-#'     de ávores. O Solo, Piracicaba, v.2, p.57-63.
+#'     de árvores. O Solo, Piracicaba, v.2, p.57-63.
 #' @examples
 #'
 #' library(latticeExtra)
diff --git a/R/BarbinPg125.R b/R/BarbinPg125.R
index 1566012..65a0c71 100644
--- a/R/BarbinPg125.R
+++ b/R/BarbinPg125.R
@@ -40,7 +40,7 @@
 #'        groups = K, type = c("p", "a"),
 #'        auto.key = list(space = "top", columns = 2,
 #'                        title = "Potássio (K)", cex.title = 1.1),
-#'        strip = strip.custom(strip.names = c(TRUE),
+#'        strip = strip.custom(strip.names = TRUE,
 #'                             sep = " ", var.name = "Fósforo (P)"),
 #'        xlab = "Nitrogênio (N)",
 #'        ylab = "Produção de café coco (kg)")
diff --git a/R/BarbinPg137.R b/R/BarbinPg137.R
index fd373b5..cb26f54 100644
--- a/R/BarbinPg137.R
+++ b/R/BarbinPg137.R
@@ -4,7 +4,7 @@
 #'     NPK \eqn{3^3} com confundimento (grupo W) de dois graus de
 #'     liberdade da interação tripla. Cada combinação NPK teve duas
 #'     repetições por bloco e o ensaio foi conduzido por Cavalcanti
-#'     (1977) em Parnambuco.
+#'     (1977) em Pernambuco.
 #' @format Um \code{data.frame} com 54 observações e 6 variáveis.
 #'     \describe{
 #'
@@ -34,7 +34,7 @@
 #'
 #' Cavalcanti, F. B. (1977). A adubação mineral na cultura do algodão
 #'     (\emph{Gossypium hirsutum} L.) no Estado de
-#'     Pernambuco. Dissetação de Mestrado, Escola Superior de
+#'     Pernambuco. Dissertação de Mestrado, Escola Superior de
 #'     Agricultura "Luiz de Queiroz"/USP, Piracicaba.
 #' @examples
 #'
@@ -65,7 +65,7 @@
 #'                        title = expression(
 #'                            "Potássio"~(K * ", " * kg~ha^{-1})),
 #'                        cex.title = 1.1),
-#'        strip = strip.custom(strip.names = c(TRUE), sep = " = ",
+#'        strip = strip.custom(strip.names = TRUE, sep = " = ",
 #'                             var.name = expression(
 #'                                 "Fósforo"~(P * ", " * kg~ha^{-1}))),
 #'        xlab = expression("Nitrogênio"~(N * ", " * kg~ha^{-1})),
diff --git a/man/BarbinPg114.Rd b/man/BarbinPg114.Rd
index 6cbcef3..72b5cb8 100644
--- a/man/BarbinPg114.Rd
+++ b/man/BarbinPg114.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.1): do not edit by hand
+% Generated by roxygen2: do not edit by hand
 % Please edit documentation in R/BarbinPg114.R
 \name{BarbinPg114}
 \alias{BarbinPg114}
@@ -9,7 +9,7 @@
 
 \item{\code{apar}}{Fator de níveis categóricos que identifica os
     aparelhos utilizados pelos operadores para medição da altura
-    total das árvores}
+    total das árvores.}
 
 \item{\code{oper}}{Fator de níveis categóricos que identifica os
     operadores que utilizaram os aparelhos.}
@@ -30,7 +30,7 @@ Barbin, D. (2013). Planejamento e Análise Estatística de
 
 Simões, J. W., Mello, H. A., Barbin, D. (1967). Eficiência dos
     aparelhos e e influência do operador na medição de altura total
-    de ávores. O Solo, Piracicaba, v.2, p.57-63.
+    de árvores. O Solo, Piracicaba, v.2, p.57-63.
 }
 \description{
 Dados de um experimento fatorial 5 \eqn{\times} 4, em
@@ -51,6 +51,7 @@ Cinco aparelhos ou instrumentos de mensuração (hipsômetro de
     medida feita com o trena ficava sempre para o final (testemunha).
 }
 \examples{
+
 library(latticeExtra)
 
 data(BarbinPg114)
@@ -75,6 +76,7 @@ xyplot(alt ~ oper | apar, data = BarbinPg114,
                        title = "Árvore", cex.title = 1.1),
        xlab = "Operadores",
        ylab = "Altura total (m)")
+
 }
 \keyword{DBC}
 \keyword{FAT2}
diff --git a/man/BarbinPg125.Rd b/man/BarbinPg125.Rd
index 2a4bbb9..9455d3f 100644
--- a/man/BarbinPg125.Rd
+++ b/man/BarbinPg125.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.1): do not edit by hand
+% Generated by roxygen2: do not edit by hand
 % Please edit documentation in R/BarbinPg125.R
 \name{BarbinPg125}
 \alias{BarbinPg125}
@@ -35,6 +35,7 @@ Experimento no o delineamento de blocos casualizados que
     não foi informada as doses reais de cada um deles.
 }
 \examples{
+
 library(lattice)
 
 data(BarbinPg125)
@@ -45,10 +46,11 @@ xyplot(prod ~ as.factor(N) | as.factor(P), data = BarbinPg125,
        groups = K, type = c("p", "a"),
        auto.key = list(space = "top", columns = 2,
                        title = "Potássio (K)", cex.title = 1.1),
-       strip = strip.custom(strip.names = c(TRUE),
+       strip = strip.custom(strip.names = TRUE,
                             sep = " ", var.name = "Fósforo (P)"),
        xlab = "Nitrogênio (N)",
        ylab = "Produção de café coco (kg)")
+
 }
 \keyword{DBC}
 \keyword{FAT3}
diff --git a/man/BarbinPg137.Rd b/man/BarbinPg137.Rd
index 13930fc..f5cebfe 100644
--- a/man/BarbinPg137.Rd
+++ b/man/BarbinPg137.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.1): do not edit by hand
+% Generated by roxygen2: do not edit by hand
 % Please edit documentation in R/BarbinPg137.R
 \name{BarbinPg137}
 \alias{BarbinPg137}
@@ -32,7 +32,7 @@ Barbin, D. (2013). Planejamento e Análise Estatística de
 
 Cavalcanti, F. B. (1977). A adubação mineral na cultura do algodão
     (\emph{Gossypium hirsutum} L.) no Estado de
-    Pernambuco. Dissetação de Mestrado, Escola Superior de
+    Pernambuco. Dissertação de Mestrado, Escola Superior de
     Agricultura "Luiz de Queiroz"/USP, Piracicaba.
 }
 \description{
@@ -40,9 +40,10 @@ Produção de algodão herbáceo de um ensaio de adubação
     NPK \eqn{3^3} com confundimento (grupo W) de dois graus de
     liberdade da interação tripla. Cada combinação NPK teve duas
     repetições por bloco e o ensaio foi conduzido por Cavalcanti
-    (1977) em Parnambuco.
+    (1977) em Pernambuco.
 }
 \examples{
+
 library(lattice)
 
 data(BarbinPg137)
@@ -70,12 +71,13 @@ xyplot(prod ~ as.factor(N) | as.factor(P), data = BarbinPg137,
                        title = expression(
                            "Potássio"~(K * ", " * kg~ha^{-1})),
                        cex.title = 1.1),
-       strip = strip.custom(strip.names = c(TRUE), sep = " = ",
+       strip = strip.custom(strip.names = TRUE, sep = " = ",
                             var.name = expression(
                                 "Fósforo"~(P * ", " * kg~ha^{-1}))),
        xlab = expression("Nitrogênio"~(N * ", " * kg~ha^{-1})),
        ylab = expression(
            "Produção de algodão herbáceo"~(kg~ha^{-1})))
+
 }
 \keyword{DBC}
 \keyword{FAT3}
diff --git a/man/labestData.Rd b/man/labestData.Rd
index 24932f7..8a8c53a 100644
--- a/man/labestData.Rd
+++ b/man/labestData.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.1): do not edit by hand
+% Generated by roxygen2: do not edit by hand
 % Please edit documentation in R/labestData.R
 \docType{package}
 \name{labestData}
-- 
GitLab