Adiciona os datasets faltantes do Dias e conclui a obra.

R/DiasEg11.1.R

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

R/DiasEg5.1.R

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

R/DiasEg5.3.R

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

R/DiasEg6.2.R

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

R/DiasEg7.1.R

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

R/DiasEx11.7.8.R

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

R/DiasEx11.7.9.R

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

data-raw/DiasEg11.1.txt

+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

data-raw/DiasEg5.1.txt

+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

data-raw/DiasEg5.3.txt

+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

data-raw/DiasEg6.2.txt

+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

data-raw/DiasEg7.1.txt

+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

data-raw/DiasEx11.7.8.txt

+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

data-raw/DiasEx11.7.9.txt

+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