From ff6d53561924e8792f8c4d9c8c9c36a8e5830dfa Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Sat, 25 Jun 2016 15:26:36 -0300
Subject: [PATCH] Adiciona os datasets faltantes do Dias e conclui a obra.

---
 R/DiasEg11.1.R            |  45 +++++++++++++++++++
 R/DiasEg5.1.R             |  35 +++++++++++++++
 R/DiasEg5.3.R             |  35 +++++++++++++++
 R/DiasEg6.2.R             |  39 ++++++++++++++++
 R/DiasEg7.1.R             |  37 ++++++++++++++++
 R/DiasEx11.7.8.R          |  44 ++++++++++++++++++
 R/DiasEx11.7.9.R          |  41 +++++++++++++++++
 data-raw/DiasEg11.1.txt   |  55 +++++++++++++++++++++++
 data-raw/DiasEg5.1.txt    |  21 +++++++++
 data-raw/DiasEg5.3.txt    |  16 +++++++
 data-raw/DiasEg6.2.txt    |  21 +++++++++
 data-raw/DiasEg7.1.txt    |  19 ++++++++
 data-raw/DiasEx11.7.8.txt |  17 +++++++
 data-raw/DiasEx11.7.9.txt |  91 ++++++++++++++++++++++++++++++++++++++
 data/DiasEg11.1.rda       | Bin 0 -> 499 bytes
 data/DiasEg5.1.rda        | Bin 0 -> 267 bytes
 data/DiasEg5.3.rda        | Bin 0 -> 251 bytes
 data/DiasEg6.2.rda        | Bin 0 -> 309 bytes
 data/DiasEg7.1.rda        | Bin 0 -> 224 bytes
 data/DiasEx11.7.8.rda     | Bin 0 -> 366 bytes
 data/DiasEx11.7.9.rda     | Bin 0 -> 642 bytes
 man/DiasEg11.1.Rd         |  53 ++++++++++++++++++++++
 man/DiasEg5.1.Rd          |  44 ++++++++++++++++++
 man/DiasEg5.3.Rd          |  43 ++++++++++++++++++
 man/DiasEg6.2.Rd          |  48 ++++++++++++++++++++
 man/DiasEg7.1.Rd          |  46 +++++++++++++++++++
 man/DiasEx11.7.8.Rd       |  52 ++++++++++++++++++++++
 man/DiasEx11.7.9.Rd       |  50 +++++++++++++++++++++
 28 files changed, 852 insertions(+)
 create mode 100644 R/DiasEg11.1.R
 create mode 100644 R/DiasEg5.1.R
 create mode 100644 R/DiasEg5.3.R
 create mode 100644 R/DiasEg6.2.R
 create mode 100644 R/DiasEg7.1.R
 create mode 100644 R/DiasEx11.7.8.R
 create mode 100644 R/DiasEx11.7.9.R
 create mode 100644 data-raw/DiasEg11.1.txt
 create mode 100644 data-raw/DiasEg5.1.txt
 create mode 100644 data-raw/DiasEg5.3.txt
 create mode 100644 data-raw/DiasEg6.2.txt
 create mode 100644 data-raw/DiasEg7.1.txt
 create mode 100644 data-raw/DiasEx11.7.8.txt
 create mode 100644 data-raw/DiasEx11.7.9.txt
 create mode 100644 data/DiasEg11.1.rda
 create mode 100644 data/DiasEg5.1.rda
 create mode 100644 data/DiasEg5.3.rda
 create mode 100644 data/DiasEg6.2.rda
 create mode 100644 data/DiasEg7.1.rda
 create mode 100644 data/DiasEx11.7.8.rda
 create mode 100644 data/DiasEx11.7.9.rda
 create mode 100644 man/DiasEg11.1.Rd
 create mode 100644 man/DiasEg5.1.Rd
 create mode 100644 man/DiasEg5.3.Rd
 create mode 100644 man/DiasEg6.2.Rd
 create mode 100644 man/DiasEg7.1.Rd
 create mode 100644 man/DiasEx11.7.8.Rd
 create mode 100644 man/DiasEx11.7.9.Rd

diff --git a/R/DiasEg11.1.R b/R/DiasEg11.1.R
new file mode 100644
index 00000000..e89c3af3
--- /dev/null
+++ b/R/DiasEg11.1.R
@@ -0,0 +1,45 @@
+#' @name DiasEg11.1
+#' @title Grupo de Experimentos com Cultivares de Feijão
+#' @description Resultados de experimentos em 3 sítios, em delineamento
+#'     de blocos casualizados, que avaliaram a produção de 6 cultivares
+#'     de feijão.
+#' @format Um \code{data.frame} com 54 observações e 4 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{cult}}{Fator categórico que representa as cultivares de
+#'     feijão.}
+#'
+#' \item{\code{sitio}}{Fator categórico que representa os sítios onde os
+#'     experimento foram instalados.}
+#'
+#' \item{\code{bloc}}{Fator categórico que identifica os blocos dentro
+#'     dos experimentos.}
+#'
+#'  \item{\code{prod}}{Produção de grãos (ton/ha).}
+#'
+#' }
+#'
+#' @keywords DBC GE
+#' @source Dias, L. A. S., Barros, W. S. (2009). Biometria
+#'     Experimental. Viçosa, MG: UFV. (Exemplo 11.1, pág. 305)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(DiasEg11.1)
+#' str(DiasEg11.1)
+#'
+#'
+#' ftable(xtabs(~sitio + bloc + cult, data = DiasEg11.1))
+#'
+#' xyplot(prod ~ cult | sitio, groups = bloc, data = DiasEg11.1,
+#'        type = c("p", "a"), as.table = TRUE,
+#'        xlab = "Cultivares",
+#'        ylab = "Produção (ton/ha)",
+#'        auto.key = list(title = "Blocos", cex.title = 1.1,
+#'                        columns = 3),
+#'        strip = strip.custom(var.name = "Sítio",
+#'                             strip.names = TRUE))
+#'
+NULL
diff --git a/R/DiasEg5.1.R b/R/DiasEg5.1.R
new file mode 100644
index 00000000..40332ef6
--- /dev/null
+++ b/R/DiasEg5.1.R
@@ -0,0 +1,35 @@
+#' @name DiasEg5.1
+#' @title Número de Ovos Eclodidos de Nematóides Após Aplicação de
+#'     Nematicidas Naturais
+#' @description Resultados de um experimento em delineamento
+#'     inteiramente casualizado que avaliou o efeito de 5 nematicidas
+#'     naturais na eclosão de ovos de nematoides.
+#' @format Um \code{data.frame} com 20 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{nemat}}{Fator categórico que identifica os nematicidas.}
+#'
+#' \item{\code{rept}}{Inteiro que representa as repetições.}
+#'
+#' \item{\code{ovos}}{Número de ovos eclodidos.}
+#'
+#' }
+#' @keywords DIC contagem
+#' @source Dias, L. A. S., Barros, W. S. (2009). Biometria
+#'     Experimental. Viçosa, MG: UFV. (Exemplo 5.1, pág. 130)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(DiasEg5.1)
+#' str(DiasEg5.1)
+#'
+#' unstack(DiasEg5.1, ovos ~ nemat)
+#'
+#' xyplot(ovos ~ reorder(nemat, ovos), data = DiasEg5.1,
+#'        type = c("p", "a"),
+#'        xlab = "Nematicidas",
+#'        ylab = "Número de ovos eclodidos")
+#'
+NULL
diff --git a/R/DiasEg5.3.R b/R/DiasEg5.3.R
new file mode 100644
index 00000000..bb048a07
--- /dev/null
+++ b/R/DiasEg5.3.R
@@ -0,0 +1,35 @@
+#' @name DiasEg5.3
+#' @title Produtividade de Cultivares de Milho
+#' @description Resultados de um experimento em delineamento
+#'     inteiramente casualizado que mediu a produtividade de cultivares
+#'     de milho.
+#' @format Um \code{data.frame} com 15 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{cult}}{Fator categórico que representa as cultivares de
+#'     milho.}
+#'
+#' \item{\code{rept}}{Inteiro que indica as repetições das cultivares.}
+#'
+#' \item{\code{prod}}{Produtividade de grãos (toneladas por hectare).}
+#'
+#' }
+#' @keywords DIC
+#' @source Dias, L. A. S., Barros, W. S. (2009). Biometria
+#'     Experimental. Viçosa, MG: UFV. (Exercício 9, Cap. 11, pág. 321)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(DiasEg5.3)
+#' str(DiasEg5.3)
+#'
+#' unstack(DiasEg5.3, prod ~ cult)
+#'
+#' xyplot(prod ~ reorder(cult, prod), data = DiasEg5.3,
+#'        type = c("p", "a"), jitter.x = TRUE,
+#'        xlab = "Cultivares de milho",
+#'        yalb = "Produtividade de grãos (ton/ha)")
+#'
+NULL
diff --git a/R/DiasEg6.2.R b/R/DiasEg6.2.R
new file mode 100644
index 00000000..02d1dd61
--- /dev/null
+++ b/R/DiasEg6.2.R
@@ -0,0 +1,39 @@
+#' @name DiasEg6.2
+#' @title Adubação NPK na Produção de Feijão
+#' @description Experimento instalado em delineamento de blocos
+#'     casualizados para estudar o efeito da adubação NPK na
+#'     produtividade do feijoeiro.
+#' @format Um \code{data.frame} com 20 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{npk}}{Fator métrico que são as doses de NPK (kg
+#'     ha\eqn{^{-1}}).}
+#'
+#' \item{\code{bloco}}{Fator cetegórico que são os blocos do
+#'     experimento.}
+#'
+#' \item{\code{prod}}{Produtividade de grãos de feijão (kg
+#'     parcela\eqn{^{-1}}).}
+#'
+#' }
+#' @keywords DBC RP
+#' @source Dias, L. A. S., Barros, W. S. (2009). Biometria
+#'     Experimental. Viçosa, MG: UFV. (Exemplo 6.2, pág. 164)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(DiasEg6.2)
+#' str(DiasEg6.2)
+#'
+#' names(DiasEg6.2)[2] <- "bloc"
+#'
+#' xyplot(prod ~ npk, data = DiasEg6.2,
+#'        groups = bloc, type = "b",
+#'        xlab = expression("Dose de NPK"~(kg~ha^{-1})),
+#'        ylab = expression("Produtividade de grãos"~(kg~parcela^{-1})),
+#'        auto.key = list(title = "Bloco", cex.title = 1.1,
+#'                        columns = 4))
+#'
+NULL
diff --git a/R/DiasEg7.1.R b/R/DiasEg7.1.R
new file mode 100644
index 00000000..a6607366
--- /dev/null
+++ b/R/DiasEg7.1.R
@@ -0,0 +1,37 @@
+#' @name DiasEg7.1
+#' @title Luz e Água na Produção de Tomateiros
+#' @description Resultados de um experimento que avaliou o efeito da
+#'     quantidade de luz e de água na produção de tomateiros.
+#' @format Um \code{data.frame} com 18 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{luz}}{Fator métrico que identifica, em escala codificada,
+#'     a quantidade de luz aplicada.}
+#'
+#' \item{\code{agua}}{Fator métrico que identifica, em escala codificada,
+#'     a quantidade de água aplicada.}
+#'
+#' \item{\code{prod}}{Produção de tomateiros.}
+#'
+#' }
+#' @keywords DIC RM
+#' @source Dias, L. A. S., Barros, W. S. (2009). Biometria
+#'     Experimental. Viçosa, MG: UFV. (Exemplo 7.1, pág. 187)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(DiasEg7.1)
+#' str(DiasEg7.1)
+#'
+#' xtabs(~luz + agua, data = DiasEg7.1)
+#'
+#' xyplot(prod ~ luz, groups = agua, data = DiasEg7.1,
+#'        type = c("p", "a"), jitter.x = TRUE,
+#'        xlab = "Níveis de luz (codificados)",
+#'        ylab = "Produção de tomateiros",
+#'        auto.key = list(title = "Água (codificado)",
+#'                        cex.title = 1.1, columns = 2))
+#'
+NULL
diff --git a/R/DiasEx11.7.8.R b/R/DiasEx11.7.8.R
new file mode 100644
index 00000000..b29e890f
--- /dev/null
+++ b/R/DiasEx11.7.8.R
@@ -0,0 +1,44 @@
+#' @name  DiasEx11.7.8
+#' @title Competição de Genótipos de Alho
+#' @description Resultados de um grupo de experimento de competiação de
+#'     genótipos de alho. Os valores disponíveis são as médias dos
+#'     genótipos em cada experimento.
+#' @format Um \code{data.frame} com 16 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{geno}}{Fator categórico que representa os genótipos de
+#'     alho.}
+#'
+#' \item{\code{exper}}{Fator categórico que representa os experimentos.}
+#'
+#'  \item{\code{prod}}{Produção de bulbos de alho.}
+#'
+#' }
+#' @keywords DBC
+#' @source Dias, L. A. S., Barros, W. S. (2009). Biometria
+#'     Experimental. Viçosa, MG: UFV. (Exercício 8, Cap. 11, pág. 321
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(DiasEx11.7.8)
+#' str(DiasEx11.7.8)
+#'
+#'
+#' xtabs(~geno + exper, data = DiasEx11.7.8)
+#'
+#' # Totais.
+#' with(DiasEx11.7.8,
+#'      addmargins(tapply(prod,
+#'                        list(geno = geno, exper = exper),
+#'                        FUN = sum)))
+#'
+#' xyplot(prod ~ geno, groups = exper, data = DiasEx11.7.8,
+#'        type = c("p", "a"),
+#'        xlab = "Genótipos",
+#'        ylab = "Produção",
+#'        auto.key = list(title = "Experimentos", cex.title = 1.1,
+#'                        columns = 4))
+#'
+NULL
diff --git a/R/DiasEx11.7.9.R b/R/DiasEx11.7.9.R
new file mode 100644
index 00000000..311316cb
--- /dev/null
+++ b/R/DiasEx11.7.9.R
@@ -0,0 +1,41 @@
+#' @name DiasEx11.7.9
+#' @title Ensaios de Competição de Cultivares de Milho
+#' @description Resultados de ensaio de competição de cultivares de
+#'     milho em diferentes locais onde foi avaliada a produção em grãos.
+#' @format Um \code{data.frame} com 90 observações e 4 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{local}}{Fator categórico que representa os locais de
+#'     instalação do experimento.}
+#'
+#' \item{\code{cult}}{Fator categórico que representa as cultivares de
+#'     milho.}
+#'
+#' \item{\code{rept}}{Inteiro que representa as repetições das
+#'     cultivares em cada experimento.}
+#'
+#'  \item{\code{prod}}{Produção de grãos de milho.}
+#'
+#' }
+#' @keywords GE DIC
+#' @source Dias, L. A. S., Barros, W. S. (2009). Biometria
+#'     Experimental. Viçosa, MG: UFV. (Exercício 9, Cap. 11, pág. 321)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(DiasEx11.7.9)
+#' str(DiasEx11.7.9)
+#'
+#' with(DiasEx11.7.9,
+#'      tapply(prod,
+#'             list(cult = cult, rept = rept, local = local),
+#'             FUN = sum))
+#'
+#' xyplot(prod ~ cult | local, data = DiasEx11.7.9,
+#'        type = c("p", "a"), as.table = TRUE,
+#'        xlab = "Cultivares", ylab = "Produção de grãos",
+#'        strip = strip.custom(strip.names = TRUE, var.name = "Local"))
+#'
+NULL
diff --git a/data-raw/DiasEg11.1.txt b/data-raw/DiasEg11.1.txt
new file mode 100644
index 00000000..e5b0809d
--- /dev/null
+++ b/data-raw/DiasEg11.1.txt
@@ -0,0 +1,55 @@
+cult	sitio	bloc	prod
+1	1	1	1.84
+1	1	2	1.91
+1	1	3	1.76
+2	1	1	1.99
+2	1	2	1.89
+2	1	3	2.17
+3	1	1	1.95
+3	1	2	1.85
+3	1	3	2.18
+4	1	1	2
+4	1	2	1.84
+4	1	3	2.07
+5	1	1	1.61
+5	1	2	1.79
+5	1	3	1.59
+6	1	1	1.93
+6	1	2	2.03
+6	1	3	2
+1	2	1	2.43
+1	2	2	2.63
+1	2	3	2.56
+2	2	1	2.71
+2	2	2	2.82
+2	2	3	2.95
+3	2	1	2.4
+3	2	2	2.51
+3	2	3	2.71
+4	2	1	2.83
+4	2	2	2.75
+4	2	3	2.62
+5	2	1	1.93
+5	2	2	1.72
+5	2	3	1.51
+6	2	1	2.92
+6	2	2	2.88
+6	2	3	3.01
+1	3	1	2.79
+1	3	2	3.1
+1	3	3	2.78
+2	3	1	2.63
+2	3	2	2.58
+2	3	3	3.03
+3	3	1	2.67
+3	3	2	2.5
+3	3	3	3.12
+4	3	1	2.91
+4	3	2	2.69
+4	3	3	2.91
+5	3	1	2.5
+5	3	2	2.5
+5	3	3	2.63
+6	3	1	2.97
+6	3	2	2.86
+6	3	3	2.91
diff --git a/data-raw/DiasEg5.1.txt b/data-raw/DiasEg5.1.txt
new file mode 100644
index 00000000..d465b3ca
--- /dev/null
+++ b/data-raw/DiasEg5.1.txt
@@ -0,0 +1,21 @@
+nemat	rept	ovos
+A	1	1
+B	1	9
+C	1	17
+D	1	0
+E	1	32
+A	2	4
+B	2	12
+C	2	23
+D	2	9
+E	2	19
+A	3	2
+B	3	21
+C	3	29
+D	3	15
+E	3	13
+A	4	7
+B	4	13
+C	4	18
+D	4	11
+E	4	28
diff --git a/data-raw/DiasEg5.3.txt b/data-raw/DiasEg5.3.txt
new file mode 100644
index 00000000..1b93b126
--- /dev/null
+++ b/data-raw/DiasEg5.3.txt
@@ -0,0 +1,16 @@
+cult	rept	prod
+1	1	4
+1	2	3
+1	3	2
+2	1	6
+2	2	5
+2	3	4
+3	1	4
+3	2	4
+3	3	5
+4	1	6
+4	2	7
+4	3	6
+5	1	6
+5	2	8
+5	3	7
diff --git a/data-raw/DiasEg6.2.txt b/data-raw/DiasEg6.2.txt
new file mode 100644
index 00000000..c232e508
--- /dev/null
+++ b/data-raw/DiasEg6.2.txt
@@ -0,0 +1,21 @@
+npk	bloc	prod
+0	I	7.5
+0	II	7.8
+0	III	7.9
+0	IV	7.7
+25	I	7.7
+25	II	7.3
+25	III	7.6
+25	IV	7.9
+50	I	8.1
+50	II	8.2
+50	III	7.9
+50	IV	8.8
+75	I	9.2
+75	II	9.1
+75	III	9.2
+75	IV	9.3
+100	I	8.3
+100	II	8.2
+100	III	8.6
+100	IV	8.6
diff --git a/data-raw/DiasEg7.1.txt b/data-raw/DiasEg7.1.txt
new file mode 100644
index 00000000..b7e35d00
--- /dev/null
+++ b/data-raw/DiasEg7.1.txt
@@ -0,0 +1,19 @@
+luz	agua	prod
+1	1	12
+1	1	9
+1	1	8
+1	2	13
+1	2	15
+1	2	14
+2	1	16
+2	1	14
+2	1	12
+2	2	20
+2	2	16
+2	2	16
+3	1	18
+3	1	25
+3	1	20
+3	2	25
+3	2	27
+3	2	29
diff --git a/data-raw/DiasEx11.7.8.txt b/data-raw/DiasEx11.7.8.txt
new file mode 100644
index 00000000..856941f7
--- /dev/null
+++ b/data-raw/DiasEx11.7.8.txt
@@ -0,0 +1,17 @@
+geno	exper	prod
+Quitéria	1	0.83
+Quitéria	2	0.95
+Quitéria	3	0.78
+Quitéria	4	0.66
+Contestado	1	0.93
+Contestado	2	1.08
+Contestado	3	1.06
+Contestado	4	1.01
+Choran	1	1.21
+Choran	2	1.32
+Choran	3	1.24
+Choran	4	1.11
+Caxiense	1	0.66
+Caxiense	2	0.78
+Caxiense	3	0.54
+Caxiense	4	0.88
diff --git a/data-raw/DiasEx11.7.9.txt b/data-raw/DiasEx11.7.9.txt
new file mode 100644
index 00000000..72783de5
--- /dev/null
+++ b/data-raw/DiasEx11.7.9.txt
@@ -0,0 +1,91 @@
+local	cult	rept	prod
+1	C1	1	5.39
+1	C1	2	6.1
+1	C1	3	7.98
+1	C1	4	7.32
+1	C1	5	7.49
+1	C2	1	8.73
+1	C2	2	8.05
+1	C2	3	8.57
+1	C2	4	7.96
+1	C2	5	7.73
+1	C3	1	2.22
+1	C3	2	2.15
+1	C3	3	2.54
+1	C3	4	2.37
+1	C3	5	2.2
+1	C4	1	1.41
+1	C4	2	1.26
+1	C4	3	1.61
+1	C4	4	1.66
+1	C4	5	1.33
+1	C5	1	5.11
+1	C5	2	6.04
+1	C5	3	6.25
+1	C5	4	6.91
+1	C5	5	7.35
+1	C6	1	6.51
+1	C6	2	8.6
+1	C6	3	8.62
+1	C6	4	7.69
+1	C6	5	7.13
+2	C1	1	4.24
+2	C1	2	4.77
+2	C1	3	3.68
+2	C1	4	4.23
+2	C1	5	6.94
+2	C2	1	4.33
+2	C2	2	4.71
+2	C2	3	4.75
+2	C2	4	4.69
+2	C2	5	4.37
+2	C3	1	3.43
+2	C3	2	3.41
+2	C3	3	3.47
+2	C3	4	3.46
+2	C3	5	5.43
+2	C4	1	2.33
+2	C4	2	1.54
+2	C4	3	1.74
+2	C4	4	1.64
+2	C4	5	1.45
+2	C5	1	2.23
+2	C5	2	4.15
+2	C5	3	3.1
+2	C5	4	2.61
+2	C5	5	2.14
+2	C6	1	5.22
+2	C6	2	7.41
+2	C6	3	7.37
+2	C6	4	6.26
+2	C6	5	5.24
+3	C1	1	6.43
+3	C1	2	6.02
+3	C1	3	5.55
+3	C1	4	4.32
+3	C1	5	6.49
+3	C2	1	6.01
+3	C2	2	6.12
+3	C2	3	6.39
+3	C2	4	6.55
+3	C2	5	6.21
+3	C3	1	1.6
+3	C3	2	1.62
+3	C3	3	1.63
+3	C3	4	1.65
+3	C3	5	1.62
+3	C4	1	3.16
+3	C4	2	3.13
+3	C4	3	3.15
+3	C4	4	3.51
+3	C4	5	3.21
+3	C5	1	4.31
+3	C5	2	5.3
+3	C5	3	4.51
+3	C5	4	3.53
+3	C5	5	2.65
+3	C6	1	2.55
+3	C6	2	3.74
+3	C6	3	4.45
+3	C6	4	5.13
+3	C6	5	4.37
diff --git a/data/DiasEg11.1.rda b/data/DiasEg11.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..4849e11fc6d744a216992735dbef3c1d1922ab17
GIT binary patch
literal 499
zcmZ>Y%CIzaj8qGbtZZqLVPKl@|NsBbK8y^B_DshP7`WIk|3AZtp}~NMk-<SijG;k+
zgE{{I;~v)49GXimWEiC|E?{6>U~<7kDs!;|6Q|p(B$Hdh4h#$?3=9lXCJc|=e0r1x
zc+{F1X7Mts`AQl|I3x;94qR20tG;BGRK|%6TL)fV6JEB)1&lv~b|&s9G1Arw;EHO@
ztd=aW)Cn_CV&PmIVfsojV`GD7W>8<@<!EEm5?<-19;1jo63HF{J8wRGe^`Ir2iEJI
zOS+ck&z>flH0Nxz9M?0e_De@aDg%U;#hm+`AHMc*-M^PFx{DTuNHktn;BfBwbycg&
zrL9tldAYB^HX*~NB|S+3%1oRb0ujplzw<s{?~;AGb&XSzT5X7Y^MQwd7fILUX`d4Q
zDx)QEl5xkxMnk0o452SqR5TnfJ<odYj+OE4Z^07QUTww=lQZ|LHcWIm(md1u$rZ*@
z(Uj+@3Bg52J}Wtix-=wP8BfR*Tv*20!pxm?c)@eG@C$v4hKsE}vaq_Ai~2=tlx99@
z6TH#P$1qv+fPL+xw0j*qffL@F-ck*>l<2#_#CcP|lHt;yd3^ly!`^n(xMy$PR@~fo
z`;GgLSseDu#h0#iv7OVu-Ayr~Pjgee<I#gR&bk;nXQ=coUljCG`@eXRt3|*BP$UBY
DLFmaP

literal 0
HcmV?d00001

diff --git a/data/DiasEg5.1.rda b/data/DiasEg5.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..30ea6e7a71e1e2ec19e1671ab9ec42e98465fa25
GIT binary patch
literal 267
zcmZ>Y%CIzaj8qGboV;*5GXtYc{lWjnJ}iQPR&D<n1RV62-)(SUU|?}z+`w?ganVd+
z=S!K3ubi2DC36A;uf!|~1_lPk1sB*FGFUo&6|NjK<Z<g!yC9H~?6NNQ@;0}Ok_)q=
zm--cNW+<9;B+cy*{{m*lO${tBkMP*8@z?2WE=-xB%IWhn)TS(z{rG>buK|<7W~h8{
zz1Ez@vGtaaka|YY^0>2meNwk|Gx4iT_GET;xS{H@fMI3_AK$bke{VPkFf88t;z_}b
zHK!H_G95_`bFjJeS?1UESh4<X(YZXwW<NaC$lH5c_T(dx02h_685`=(&77?Hw9)Ca
a;J%6W+26&su<!5QsWeB!!}G%J#s&b3KXRV{

literal 0
HcmV?d00001

diff --git a/data/DiasEg5.3.rda b/data/DiasEg5.3.rda
new file mode 100644
index 0000000000000000000000000000000000000000..af8660ac4fa3ed34badf26e05f39025bf4cbdc20
GIT binary patch
literal 251
zcmZ>Y%CIzaj8qGb-1GOMH3P%1{|EjTpK)<uv}15%5OC06e!sziL4k1t!)1e(t42w=
zY8S4Y<@n0Ol)3E6EuN60w*JBX!6^+43=A1Unm+x(R~Q%=Oc<o>Ochnl48k^T+rjD~
z(xJ3U@r;A2#)Py>a-zTUa+(&gPUcIreN%g|b^nCVN58o=B{Z;RF7kN2N+g)2QFzO;
zo7=3HemFBFKvKw;LrQ{oNvGwF*1(3$3@%lsvd+d9g{J3LDehC)o!b|4lo;@3ubW?~
z?)paR->03g6K~w`P`EYC^Y5AHD{*}yGx-&5W-SlN<l~#@#^)G*y8R$yf!>p@f`y8e
IzZaDO0Jzd;b^rhX

literal 0
HcmV?d00001

diff --git a/data/DiasEg6.2.rda b/data/DiasEg6.2.rda
new file mode 100644
index 0000000000000000000000000000000000000000..3d5e92ee3f692f1951112286aa33ce6e6cea15f8
GIT binary patch
literal 309
zcmZ>Y%CIzaj8qGbOo>an!@ww1|Mb7H5Bmp3Nd-3r!36vDcN-iS7z`ZP7+4q>H!w>3
zuq^U0kzz1nb9Q{ixPWcmf|DYb9hWIwxR8-@!I0s?k%LMLO-{5Oky4wLB*AiQ;>5-B
z3+-oAwQmTB;Pkvz)IN1eREvnp#YJ5o#U?UEM>3!KziJDAoLlX+vtpe}ubAAf@Gh_k
z?JV|L<iRncV`Wh2t|^P1dOVk~f7mr)k%+AU@2)n(9YWlChqX-<^Jg)ssU6Nx&gcJo
zse;4e{lla0VpliMF6~RuTCr%=N~1;rt@6BEjcz7OxlX%i6ukLR*Sp`p-t4sfTAikH
zjlU&!E85RIY1{dJ_gweVZT)vnr%6oHvB-~{#3{D6W!vYEXB14@#LPV=wH!*7vpqA>
RApK*xN^mPDo9i>(0|4cjgEIgC

literal 0
HcmV?d00001

diff --git a/data/DiasEg7.1.rda b/data/DiasEg7.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..7cd84459be7be38dbac4a9a5536f9b20c2f49757
GIT binary patch
literal 224
zcmZ>Y%CIzaj8qGbluGa0%E0ib{@_332!?>rl2vXD0uK7i?@e%EU|?im+`zD-+0~cr
z%4J`Pd6O?LlxUm9Y_`JS!es|u2DS!<6cbL7&X=6COl^Ien0Rd+C!}?L30yWSbJ|Le
zn=u=<y?QR!VaCjL!_nkM)<VXRDXo234<%I3IT@(wemlI*!Lhd^I*#w#1m%M>Htatt
z)Odicg-2q7>%@#86V~qzit`?@o^tOxTywmciP3SQc$s1DUZIc^wa5DN8jtLW6!Wdv
gqMgxsV&7(|&Q0zn|93XC|A{>*^3cg4bDq@|0Ck96z5oCK

literal 0
HcmV?d00001

diff --git a/data/DiasEx11.7.8.rda b/data/DiasEx11.7.8.rda
new file mode 100644
index 0000000000000000000000000000000000000000..98d05ce3520c242d84b61f5031993d98cb6ad2ef
GIT binary patch
literal 366
zcmZ>Y%CIzaj8qGbjEP{~&A`a^|Nj4SAI646n?rpE3|#b|-@o9*(4olSAi==UpcJ3Y
zxPj5acj2mejcg4k7ceknT)uLG*@3Ocp{gb1t9=MhFSDu11;&mP1_nc3X0@3T9!q?s
z+@~-*@G>wfq%bhB_1XuO1}hb7wXm7Ts5T|GhIOV(<qK_Tv?`E!sXcK`!o-b_KSvb@
zv@B2MaZ%Z<snNN4<yIY?M<*0LE_tlF6maSCW>+)4ZC9`7PCX)egqKN5g4guOk;L;1
z4(S`CzqaazNO8`w=`XU=diweU!;C|FmM%Q=l!HrO@=;3Ey2W=~zO0Dybeg7}v*G_E
zw)ln!-&IKrR^>6m(hMDC*=?sAS3I}ayiWb0ppsEhMiX=FWzERdd*1jiWiWZj66BS5
z#qr>5`-2UcALHEaR2^AX%fzY7>9ly0>Q0TCwz?OqKPDs>)lHw?x<`Q7zsdfhl#ZH`
V1-}R51bM|o@gi4?fC-@R1pqJ+lHmXV

literal 0
HcmV?d00001

diff --git a/data/DiasEx11.7.9.rda b/data/DiasEx11.7.9.rda
new file mode 100644
index 0000000000000000000000000000000000000000..e2aa321dc74c7c1a0af60d629007a0f5b5cf4aac
GIT binary patch
literal 642
zcmZ>Y%CIzaj8qGb+#54rl!1A2{r~^<_4O|j?H8RpU=X6O{{My(LxTY?BZGqk8$*Kv
z5BtvpOg2m>uBd8G^tD-hVWz~D%l-iw3=Ael8B!(}7#A*Ix%i67tyagCPiFdGs#-qf
z-pXYHM-HfQHaJdfNlJEHa@m*X$`{207o>Ql*nAn-8kmKheVKh3OfoJoTwKuU;UFx;
zAZ5aE*-dfb0%l)^3sNQw{DG6pS4Z*e3SgQZpgWVpvvE_0VS|7(@1u>!(-<TUa46~?
z=MrQx<_+0$jk7}1ok7$<XGQ6!oBvih#g|*l?#xe@=#ZSqQ@~&txjZteaq;H--EohD
zvlcjVPhi=)ba~#Cy(=$X|1|UF#{3ReK?U|rOl?~d-D*0c!d4xV7C+=PY08vE*IdKp
ztQcB@oLrb3Jq4B3n_o!&l3CX_wMlyQb~o`(CmpxRIVwh<e{NqLbbxOSd&WIS4Ub*-
z4F23%(D7fi-(1@?HT!VTMh5Thn+yHsa{4Y!n&3a*@8d+~8(ZV}PCx9sko&K{h_|CU
z(t%fa;-n@1`;|BiJDK{zGlE>cTx43T)i*=2K=6{c$Vsi#1Ex;OKf`Pe7<BD$dve58
z_(1W#?pF*i?A{(oJfvuHKh>k%rrM;bpfPM=*71YvrrlM)k1Rd0o%d7QUA~14rnBdU
zC#6*8o_ycBr04V|H6H8gS^Ph<);P>cIM%MZOK+9OrK`H;QpHa%YV_M|akhHMbfqJP
zSN&DlCZ!4{?Y=i$zOpaUQh%piQ~dh3uUx9Dj%UV-Wh;`8=CdEVy5K@bZYM9>>4n`w
zch+5~+tB2q*5)*kqqBl1%kHs9i;H8=<?BDnxHDuv{GM*n8vn6eCAgK7`|8P$0RW;X
B7f}EJ

literal 0
HcmV?d00001

diff --git a/man/DiasEg11.1.Rd b/man/DiasEg11.1.Rd
new file mode 100644
index 00000000..874d53ef
--- /dev/null
+++ b/man/DiasEg11.1.Rd
@@ -0,0 +1,53 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/DiasEg11.1.R
+\name{DiasEg11.1}
+\alias{DiasEg11.1}
+\title{Grupo de Experimentos com Cultivares de Feijão}
+\format{Um \code{data.frame} com 54 observações e 4 variáveis, em que
+
+\describe{
+
+\item{\code{cult}}{Fator categórico que representa as cultivares de
+    feijão.}
+
+\item{\code{sitio}}{Fator categórico que representa os sítios onde os
+    experimento foram instalados.}
+
+\item{\code{bloc}}{Fator categórico que identifica os blocos dentro
+    dos experimentos.}
+
+ \item{\code{prod}}{Produção de grãos (ton/ha).}
+
+}}
+\source{
+Dias, L. A. S., Barros, W. S. (2009). Biometria
+    Experimental. Viçosa, MG: UFV. (Exemplo 11.1, pág. 305)
+}
+\description{
+Resultados de experimentos em 3 sítios, em delineamento
+    de blocos casualizados, que avaliaram a produção de 6 cultivares
+    de feijão.
+}
+\examples{
+
+library(lattice)
+
+data(DiasEg11.1)
+str(DiasEg11.1)
+
+
+ftable(xtabs(~sitio + bloc + cult, data = DiasEg11.1))
+
+xyplot(prod ~ cult | sitio, groups = bloc, data = DiasEg11.1,
+       type = c("p", "a"), as.table = TRUE,
+       xlab = "Cultivares",
+       ylab = "Produção (ton/ha)",
+       auto.key = list(title = "Blocos", cex.title = 1.1,
+                       columns = 3),
+       strip = strip.custom(var.name = "Sítio",
+                            strip.names = TRUE))
+
+}
+\keyword{DBC}
+\keyword{GE}
+
diff --git a/man/DiasEg5.1.Rd b/man/DiasEg5.1.Rd
new file mode 100644
index 00000000..dab2e8f4
--- /dev/null
+++ b/man/DiasEg5.1.Rd
@@ -0,0 +1,44 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/DiasEg5.1.R
+\name{DiasEg5.1}
+\alias{DiasEg5.1}
+\title{Número de Ovos Eclodidos de Nematóides Após Aplicação de
+    Nematicidas Naturais}
+\format{Um \code{data.frame} com 20 observações e 3 variáveis, em que
+
+\describe{
+
+\item{\code{nemat}}{Fator categórico que identifica os nematicidas.}
+
+\item{\code{rept}}{Inteiro que representa as repetições.}
+
+\item{\code{ovos}}{Número de ovos eclodidos.}
+
+}}
+\source{
+Dias, L. A. S., Barros, W. S. (2009). Biometria
+    Experimental. Viçosa, MG: UFV. (Exemplo 5.1, pág. 130)
+}
+\description{
+Resultados de um experimento em delineamento
+    inteiramente casualizado que avaliou o efeito de 5 nematicidas
+    naturais na eclosão de ovos de nematoides.
+}
+\examples{
+
+library(lattice)
+
+data(DiasEg5.1)
+str(DiasEg5.1)
+
+unstack(DiasEg5.1, ovos ~ nemat)
+
+xyplot(ovos ~ reorder(nemat, ovos), data = DiasEg5.1,
+       type = c("p", "a"),
+       xlab = "Nematicidas",
+       ylab = "Número de ovos eclodidos")
+
+}
+\keyword{DIC}
+\keyword{contagem}
+
diff --git a/man/DiasEg5.3.Rd b/man/DiasEg5.3.Rd
new file mode 100644
index 00000000..9efc530b
--- /dev/null
+++ b/man/DiasEg5.3.Rd
@@ -0,0 +1,43 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/DiasEg5.3.R
+\name{DiasEg5.3}
+\alias{DiasEg5.3}
+\title{Produtividade de Cultivares de Milho}
+\format{Um \code{data.frame} com 15 observações e 3 variáveis, em que
+
+\describe{
+
+\item{\code{cult}}{Fator categórico que representa as cultivares de
+    milho.}
+
+\item{\code{rept}}{Inteiro que indica as repetições das cultivares.}
+
+\item{\code{prod}}{Produtividade de grãos (toneladas por hectare).}
+
+}}
+\source{
+Dias, L. A. S., Barros, W. S. (2009). Biometria
+    Experimental. Viçosa, MG: UFV. (Exercício 9, Cap. 11, pág. 321)
+}
+\description{
+Resultados de um experimento em delineamento
+    inteiramente casualizado que mediu a produtividade de cultivares
+    de milho.
+}
+\examples{
+
+library(lattice)
+
+data(DiasEg5.3)
+str(DiasEg5.3)
+
+unstack(DiasEg5.3, prod ~ cult)
+
+xyplot(prod ~ reorder(cult, prod), data = DiasEg5.3,
+       type = c("p", "a"), jitter.x = TRUE,
+       xlab = "Cultivares de milho",
+       yalb = "Produtividade de grãos (ton/ha)")
+
+}
+\keyword{DIC}
+
diff --git a/man/DiasEg6.2.Rd b/man/DiasEg6.2.Rd
new file mode 100644
index 00000000..cb99a1c6
--- /dev/null
+++ b/man/DiasEg6.2.Rd
@@ -0,0 +1,48 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/DiasEg6.2.R
+\name{DiasEg6.2}
+\alias{DiasEg6.2}
+\title{Adubação NPK na Produção de Feijão}
+\format{Um \code{data.frame} com 20 observações e 3 variáveis, em que
+
+\describe{
+
+\item{\code{npk}}{Fator métrico que são as doses de NPK (kg
+    ha\eqn{^{-1}}).}
+
+\item{\code{bloco}}{Fator cetegórico que são os blocos do
+    experimento.}
+
+\item{\code{prod}}{Produtividade de grãos de feijão (kg
+    parcela\eqn{^{-1}}).}
+
+}}
+\source{
+Dias, L. A. S., Barros, W. S. (2009). Biometria
+    Experimental. Viçosa, MG: UFV. (Exemplo 6.2, pág. 164)
+}
+\description{
+Experimento instalado em delineamento de blocos
+    casualizados para estudar o efeito da adubação NPK na
+    produtividade do feijoeiro.
+}
+\examples{
+
+library(lattice)
+
+data(DiasEg6.2)
+str(DiasEg6.2)
+
+names(DiasEg6.2)[2] <- "bloc"
+
+xyplot(prod ~ npk, data = DiasEg6.2,
+       groups = bloc, type = "b",
+       xlab = expression("Dose de NPK"~(kg~ha^{-1})),
+       ylab = expression("Produtividade de grãos"~(kg~parcela^{-1})),
+       auto.key = list(title = "Bloco", cex.title = 1.1,
+                       columns = 4))
+
+}
+\keyword{DBC}
+\keyword{RP}
+
diff --git a/man/DiasEg7.1.Rd b/man/DiasEg7.1.Rd
new file mode 100644
index 00000000..68d6ad06
--- /dev/null
+++ b/man/DiasEg7.1.Rd
@@ -0,0 +1,46 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/DiasEg7.1.R
+\name{DiasEg7.1}
+\alias{DiasEg7.1}
+\title{Luz e Água na Produção de Tomateiros}
+\format{Um \code{data.frame} com 18 observações e 3 variáveis, em que
+
+\describe{
+
+\item{\code{luz}}{Fator métrico que identifica, em escala codificada,
+    a quantidade de luz aplicada.}
+
+\item{\code{agua}}{Fator métrico que identifica, em escala codificada,
+    a quantidade de água aplicada.}
+
+\item{\code{prod}}{Produção de tomateiros.}
+
+}}
+\source{
+Dias, L. A. S., Barros, W. S. (2009). Biometria
+    Experimental. Viçosa, MG: UFV. (Exemplo 7.1, pág. 187)
+}
+\description{
+Resultados de um experimento que avaliou o efeito da
+    quantidade de luz e de água na produção de tomateiros.
+}
+\examples{
+
+library(lattice)
+
+data(DiasEg7.1)
+str(DiasEg7.1)
+
+xtabs(~luz + agua, data = DiasEg7.1)
+
+xyplot(prod ~ luz, groups = agua, data = DiasEg7.1,
+       type = c("p", "a"), jitter.x = TRUE,
+       xlab = "Níveis de luz (codificados)",
+       ylab = "Produção de tomateiros",
+       auto.key = list(title = "Água (codificado)",
+                       cex.title = 1.1, columns = 2))
+
+}
+\keyword{DIC}
+\keyword{RM}
+
diff --git a/man/DiasEx11.7.8.Rd b/man/DiasEx11.7.8.Rd
new file mode 100644
index 00000000..0365bad5
--- /dev/null
+++ b/man/DiasEx11.7.8.Rd
@@ -0,0 +1,52 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/DiasEx11.7.8.R
+\name{DiasEx11.7.8}
+\alias{DiasEx11.7.8}
+\title{Competição de Genótipos de Alho}
+\format{Um \code{data.frame} com 16 observações e 3 variáveis, em que
+
+\describe{
+
+\item{\code{geno}}{Fator categórico que representa os genótipos de
+    alho.}
+
+\item{\code{exper}}{Fator categórico que representa os experimentos.}
+
+ \item{\code{prod}}{Produção de bulbos de alho.}
+
+}}
+\source{
+Dias, L. A. S., Barros, W. S. (2009). Biometria
+    Experimental. Viçosa, MG: UFV. (Exercício 8, Cap. 11, pág. 321
+}
+\description{
+Resultados de um grupo de experimento de competiação de
+    genótipos de alho. Os valores disponíveis são as médias dos
+    genótipos em cada experimento.
+}
+\examples{
+
+library(lattice)
+
+data(DiasEx11.7.8)
+str(DiasEx11.7.8)
+
+
+xtabs(~geno + exper, data = DiasEx11.7.8)
+
+# Totais.
+with(DiasEx11.7.8,
+     addmargins(tapply(prod,
+                       list(geno = geno, exper = exper),
+                       FUN = sum)))
+
+xyplot(prod ~ geno, groups = exper, data = DiasEx11.7.8,
+       type = c("p", "a"),
+       xlab = "Genótipos",
+       ylab = "Produção",
+       auto.key = list(title = "Experimentos", cex.title = 1.1,
+                       columns = 4))
+
+}
+\keyword{DBC}
+
diff --git a/man/DiasEx11.7.9.Rd b/man/DiasEx11.7.9.Rd
new file mode 100644
index 00000000..b568d445
--- /dev/null
+++ b/man/DiasEx11.7.9.Rd
@@ -0,0 +1,50 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/DiasEx11.7.9.R
+\name{DiasEx11.7.9}
+\alias{DiasEx11.7.9}
+\title{Ensaios de Competição de Cultivares de Milho}
+\format{Um \code{data.frame} com 90 observações e 4 variáveis, em que
+
+\describe{
+
+\item{\code{local}}{Fator categórico que representa os locais de
+    instalação do experimento.}
+
+\item{\code{cult}}{Fator categórico que representa as cultivares de
+    milho.}
+
+\item{\code{rept}}{Inteiro que representa as repetições das
+    cultivares em cada experimento.}
+
+ \item{\code{prod}}{Produção de grãos de milho.}
+
+}}
+\source{
+Dias, L. A. S., Barros, W. S. (2009). Biometria
+    Experimental. Viçosa, MG: UFV. (Exercício 9, Cap. 11, pág. 321)
+}
+\description{
+Resultados de ensaio de competição de cultivares de
+    milho em diferentes locais onde foi avaliada a produção em grãos.
+}
+\examples{
+
+library(lattice)
+
+data(DiasEx11.7.9)
+str(DiasEx11.7.9)
+
+with(DiasEx11.7.9,
+     tapply(prod,
+            list(cult = cult, rept = rept, local = local),
+            FUN = sum))
+
+xyplot(prod ~ cult | local, data = DiasEx11.7.9,
+       type = c("p", "a"), as.table = TRUE,
+       xlab = "Cultivares", ylab = "Produção de grãos",
+       strip = strip.custom(strip.names = TRUE, var.name = "Local"))
+
+}
+\keyword{DIC}
+\keyword{GE}
+
-- 
GitLab