#' @name ZimmermannTb10.15
#' @title Aduba\enc{çã}{ca}o Ap\enc{ó}{o}s Pastagem em Cultivares de
#' Arroz
#' @description Dados de um experimento conduzido em faixas, no
#' delineamento de blocos ao acaso, para testar o efeito da
#' aplicação de adubos em arroz após pastagem no qual foram
#' utilizadas três cultivares. Nesta tabela constam os dados de de
#' produção de arroz, em kg ha\eqn{^{-1}}, de duas dessas
#' cultivares.
#' @format Um \code{data.frame} com 24 observações e 4 variáveis
#'
#' \describe{
#'
#' \item{\code{bloco}}{Fator de níveis categóricos que identifica o
#' bloco ao qual a observação pertence.}
#'
#' \item{\code{adub}}{Fator de níveis métricos que identifica a
#' quantidade de adubação aplicada. Os níveis estão codificados na
#' escala natural e não na escala real.}
#'
#' \item{\code{geno}}{Fator de níveis cateóricos que identifica o
#' genótipo de arroz.}
#'
#' \item{\code{prod}}{Produção de arroz em kg ha\eqn{^{-1}}.}
#'
#' }
#' @details A formulação da adubação empregada no ensaio de cultivar de
#' arroz teve a seguinte composição
#'
#' \tabular{rrrrrr}{
#' Adub \tab N \tab P\eqn{_2}O\eqn{_5} \tab K\eqn{_2}O
#' \tab Micros \tab Zn\cr
#' 1 \tab 6 \tab 30 \tab 27 \tab 45 \tab 2\cr
#' 2 \tab 12 \tab 60 \tab 54 \tab 90 \tab 4\cr
#' 3 \tab 18 \tab 90 \tab 81 \tab 135 \tab 6
#' }
#' @keywords DBC EF
#' @source ZIMMERMANN (2004), Tabela 10.15, pág. 210.
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb10.15)
#'
#' str(ZimmermannTb10.15)
#'
#' xyplot(prod ~ adub | geno, groups = bloco, data = ZimmermannTb10.15,
#' type = c("p", "a"),
#' xlab = "Nível de adubação",
#' ylab = expression("Produção de arroz"~(kg~ha^{-1})))
#'
NULL
#' @name ZimmermannTb10.20
#' @title Nitrog\enc{ê}{e}nio, Irriga\enc{çã}{ca}o e Preparo do Solo
#' para Feijoeiro
#' @description Dados de um experimento conduzido em faixas, no
#' delineamento de blocos ao acaso, com duas repetições e parcelas
#' divididas. Se testaram, nas faixas horizontais, as lâminas de
#' água aplicada em irrigação por aspersão, nas faixas verticais as
#' formas de preparo de solo e nas subparcelas, doses de
#' nitrogênio. Os dados são de massa de 100 grãos de feijão, sem
#' unidade de medida.
#' @format Um \code{data.frame} com 72 observações e 5 variáveis
#'
#' \describe{
#'
#' \item{\code{lam}}{Fator de níveis categóricos que identifica a lâmina
#' de água aplicada ou intensidade de irrigação.}
#'
#' \item{\code{nit}}{Fator de níveis categóricos que identifica a dose
#' de nitrogênio aplicada.}
#'
#' \item{\code{solo}}{Fator de níveis categóricos que identifica a forma
#' de preparação do solo.}
#'
#' \item{\code{bloco}}{Fator de níveis categóricos que identifica o
#' bloco.}
#'
#' \item{\code{massa}}{Massa de 100 grãos de feijão, sem unidade de
#' medida.}
#'
#' }
#' @keywords DBC PSS EF
#' @source ZIMMERMANN (2004), Tabela 10.20, pág 213.
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb10.20)
#' str(ZimmermannTb10.20)
#'
#' ftable(xtabs(~solo + nit + lam, data = ZimmermannTb10.20))
#'
#' xyplot(massa ~ lam | solo, groups = nit,
#' data = ZimmermannTb10.20,
#' type = c("p", "a"), as.table = TRUE,
#' auto.key = list(title = "Níveis de nitrgênio",
#' cex.title = 1.1, columns = 3),
#' strip = strip.custom(strip.names = TRUE, var.name = "Solo"),
#' xlab = "Lâmina de irrigação",
#' ylab = "Massa de 100 grãos de feijão")
#'
NULL
#' @name ZimmermannTb10.6
#' @title Doses de Fungicida para Brusone na Cultura do Arroz
#' @description Dados de um experimento com dois fatores, em
#' delineamento de parcelas divididas em blocos ao acaso. O
#' experimento avaliou o efeito de 3 doses do fungicida Fongorene
#' (0, 400 e 800 gramas por 100 kg) em cultivares de arroz. Mediu-se
#' a percentagem de área foliar lesionada por brusone em cinco
#' datas, e depois calculou-se a área sob a curva do progresso da
#' doença (ASCPD). Os dados estão transformados em logaritmo.
#' @format Um \code{data.frame} com 27 observações e 4 variáveis
#'
#' \describe{
#'
#' \item{\code{cult}}{Fator categórico que indica a cultivar do arroz.}
#'
#' \item{\code{bloco}}{Fator categórico que identifica o bloco ao qual a
#' observação pertence.}
#'
#' \item{\code{dose}}{Fator métrico que representa a dose usada do
#' fungicida, em gramas por hectare.}
#'
#' \item{\code{ascpd}}{Logarítimo da área sob a curva de progresso da
#' doença.}
#'
#' }
#' @keywords PS
#' @source ZIMMERMANN (2004), (Tabela 10.6, pág. 201)
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb10.6)
#' str(ZimmermannTb10.6)
#'
#' xyplot(ascpd ~ dose, groups = cult, data = ZimmermannTb10.6,
#' type = c("p", "a"),
#' xlab = expression("Doses de inseticida"~(g~100~kg^{-1})),
#' ylab = "Logaritmo da área sob a curva de progresso da doença")
#'
NULL
#' @name ZimmermannTb10.9
#' @title \enc{É}{E}poca de Plantio e Manejo de Inseticida em Cultivares
#' de Arroz
#' @description Dados de um em delineamento de blocos completos ao
#' acaso, em parcelas subdivididas. O experimento avaliou o efeito
#' de 2 épocas de plantio e aplicação (ou não) do inseticida
#' Fipronil em três cultivares de arroz. As épocas de plantio foram
#' implantadas nas parcelas principais, o inseticida nas subparcelas
#' e os genótipos nas sub-parcelas. Os resultados são dados de peso
#' de 100 espiguetas de arroz, em gramas.
#' @format Um \code{data.frame} com 48 observações e 5 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{epoca}}{Fator de níveis categóricos que indica a época do
#' plantio.}
#'
#' \item{\code{inset}}{Fator de níveis numéricos que representa a
#' aplicação (1) ou não (0) de Fipronil.}
#'
#' \item{\code{genot}}{Fator de níveis nominais que identifica o
#' genótipo de arroz.}
#'
#' \item{\code{bloco}}{Fator de níveis nominais que identifica o bloco
#' ao qual a observação pertence.}
#'
#' \item{\code{peso}}{Peso de 100 espiguetas de arroz, em gramas.}
#'
#' }
#' @keywords PSS
#' @source ZIMMERMANN (2004), Tabela 10.9, pág. 205.
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb10.9)
#' str(ZimmermannTb10.9)
#'
#' ftable(xtabs(~genot + epoca + inset, data = ZimmermannTb10.9))
#'
#' xyplot(peso ~ genot | epoca, groups = inset,
#' data = ZimmermannTb10.9,
#' type = c("p", "a"),
#' xlab = "Genótipo de arroz",
#' ylab = "Peso de 100 espiguetas (g)")
#'
NULL
#' @name ZimmermannTb11.1
#' @title Espa\enc{ç}{c}amento e Densidade de Plantio na
#' Produ\enc{çã}{ca}o de Arroz
#' @description Dados de um experimento fatorial \eqn{2^3}, com
#' confundimento total da interação dupla. O ensaio foi conduzido em
#' dois blocos ao acaso de tamanho 4 dentro de quatro repetições, em
#' que cada uma continha um par de blocos (8 parcelas). Os fatores
#' estudados foram: densidades de plantio de 50 e 90 sementes por
#' metro, espaçamentos entre linhas de 35cm e 50cm e fator presença
#' ou ausência de adubação nitrogenada em cobertura. A variável
#' resposta é a produtividade de grãos, em kg ha\eqn{^{-1}}.
#' @format Um \code{data.frame} com 32 observações e 4 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{rept}}{Fator categórico que identifica a repetição. Cada
#' repetição contém um par de blocos de tamanho 4.}
#'
#' \item{\code{bloco}}{Fator de níveis categóricos que identifica o
#' bloco em cada repetição.}
#'
#' \item{\code{densi}}{Fator codificado que representa a densidade de
#' plantio (50 e 90).}
#'
#' \item{\code{espac}}{Fator codificado que representa o espaçamento
#' entre as linhas de semeadura (35 e 50 cm).}
#'
#' \item{\code{adub}}{Fator codificado que indica a presença ou não de
#' adubação nitrogenada (1 e 0).}
#'
#' \item{\code{prod}}{Produção de arroz, em kg ha\eqn{^{-1}}.}
#'
#' }
#' @seealso \code{\link{ZimmermannTb11.7}}. Os ensaios
#' \code{ZimmermannTb11.1} e \code{ZimmermannTb11.7} possuem os
#' mesmos valores observados da resposta e fatores estudados, o que
#' muda é a estrutura de confundimento utilizada, com modificação do
#' tamanho dos blocos para que isso fosse ilustrado. O primeiro tem
#' 2 blocos de tamanho 4 em cada repetição e o segundo tem 4 blocos
#' de tamanho 2. Essa modificação dos dados é artificial e foi feita
#' para fins didáticos. Não se deve alterar o delineamento de dados
#' reais para conduzir as análises.
#' @keywords DBC FAT2K confundimento
#' @source ZIMMERMANN (2004), (Tabela 11.1, pág. 221)
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb11.1)
#' str(ZimmermannTb11.1)
#'
#' xyplot(prod ~ factor(densi) | factor(adub), groups = espac,
#' data = ZimmermannTb11.1,
#' type = c("p", "a"),
#' xlab = "Densidade de semeadura",
#' ylab = expression ("Produção de Arroz"~(kg~ha^{-1})),
#' auto.key = list(title = "Espaçamento", cex.title = 1.1,
#' columns = 2),
#' strip = strip.custom(strip.names = TRUE,
#' var.name = "Adubação"))
#'
NULL
#' @name ZimmermannTb11.10
#' @title Espa\enc{ç}{c}amento Entre Linhas e Densidade no Plantio de
#' Feij\enc{ã}{a}o
#' @description Dados de um experimento fatorial \eqn{3^2}, com a
#' cultura do feijoeiro testando espaçamento entre linhas de plantio
#' (0.45, 0.6 e 0.75 m) e densidade de plantio (7, 10 e 13 sementes
#' por metro). Os dados se referem à cultivar Jalo
#' Precoce. Adotou-se o delineamento de blocos ao acaso com
#' confundimento parcial de 2 graus de liberdade da interação
#' densidade com espaçamento. Os resultados são de altura de
#' plantas, em centímetros.
#' @format Um \code{data.frame} com 36 observações e 6 variáveis
#'
#' \describe{
#'
#' \item{\code{rept}}{Fator categórico que identifica a repetição. Cada
#' repetição tinha 3 blocos de tamanho 3.}
#'
#' \item{\code{bloco}}{Fator categórico que identifica o bloco em cada
#' repetição.}
#'
#' \item{\code{espac}}{Fator de níveis codificados que identifica o
#' espaçamento utilizado (0.45, 0.6 e 0.75 m).}
#'
#' \item{\code{dens}}{Fator de níveis codificados que identifica a
#' densidade de plantio utilizada (7, 10 e 13 sementes por metro).}
#'
#' \item{\code{altura}}{Altura de plantas, em cm.}
#'
#' }
#' @keywords DBC FAT2K confundimento
#' @source ZIMMERMANN (2004), pág. 231.
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb11.10)
#' str(ZimmermannTb11.10)
#'
#' ftable(xtabs(~espac + dens + rept, data = ZimmermannTb11.10))
#' ftable(xtabs(~espac + dens + interaction(rept, bloco),
#' data = ZimmermannTb11.10))
#'
#' xyplot(altura ~ factor(espac) | rept, groups = dens,
#' data = ZimmermannTb11.10, as.table = TRUE,
#' type = c("p", "a"),
#' xlab = "Níveis de espaçamento",
#' ylab = "Altura de plantas (cm)",
#' auto.key = list(title = "Densidade", cex.title = 1.1,
#' columns = 3),
#' strip = strip.custom(strip.names = TRUE,
#' var.name = "Repetição"))
#'
NULL
#' @name ZimmermannTb11.13
#' @title Absor\enc{çã}{ca}o e Transloca\enc{çã}{ca}o de Zinco em Arroz
#' de Terras Altas
#' @description Dados de um experimento fatorial \eqn{3^3}, com
#' confundimento parcial de 2 graus de liberdade da interação dupla.
#' O estudo é sobre a absorção e translocação de zinco em arroz de
#' terras altas sob a influência de fósforo e calcário num
#' delineamento de blocos ao acaso organizado em repetições.
#' Utilizou-se o grupo Z de Yates para fazer o confundimento. Os
#' dados são de produção de grãos, em kg ha\eqn{^{-1}}.
#' @format Um \code{data.frame} com 81 observações e 6 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{rept}}{Fator categórico que identifica as repetições. Cada
#' repetição tem 3 blocos de tamanho 9.}
#'
#' \item{\code{bloco}}{Fator de níveis categóricos que identifica os
#' blocos em cada repretição.}
#'
#' \item{\code{zinco}}{Fator de níveis codificados que indica o nível de
#' zinco aplicado: 0, 5 e 10 kg ha\eqn{^{-1}}.}
#'
#' \item{\code{fosf}}{Fator de níveis codificados que indica o nível de
#' fósforo aplicado: 0, 50 e 100 kg ha\eqn{^{-1}}.}
#'
#' \item{\code{calc}}{Fator de níveis codificados que indica o nível de
#' calcário aplicado: 0, 1.5 e 3 kg ton ha\eqn{^{-1}}.}
#'
#' \item{\code{prod}}{Produtividade de grãos, em kg ha\eqn{^{-1}}.}
#'
#' }
#' @keywords DBC FAT3K confundimento
#' @source ZIMMERMANN (2004), Tabela 11.13, pág. 234.
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb11.13)
#' str(ZimmermannTb11.13)
#'
#' ftable(xtabs(~fosf + calc + zinco,
#' data = ZimmermannTb11.13))
#'
#' ftable(xtabs(~fosf + calc + zinco +
#' interaction(bloco, rept),
#' data = ZimmermannTb11.13))
#'
#' xyplot(prod ~ factor(fosf) | factor(calc),
#' data = ZimmermannTb11.13, as.table = TRUE,
#' groups = zinco, type = c("p", "a"),
#' xlab = "Fósforo",
#' ylab = expression("Produção de grãos"~(kg~ha^{-1})),
#' auto.key = list(title = "Zinco", cex.title = 1.1,
#' columns = 3),
#' strip = strip.custom(strip.names = TRUE,
#' var.name = "Calcário"))
#'
NULL
#' @name ZimmermannTb11.19
#' @title Produtividade de Arroz Irrigado em Ensaio Fatorial com
#' Confundimento
#' @description Dados de um experimento fatorial \eqn{2^5}, com
#' confundimento da interação de quinta ordem. Estudou-se o efeito
#' dos cinco principais problemas da cultura: controle de invasoras,
#' adubação, irrigação, controle de doenças e cultivar. A interação
#' de quarta ordem (5 fatores) foi confundida com blocos. Os dados
#' da produtividade do arroz estão em kg/ha.
#' @format Um \code{data.frame} com 32 observações e 7 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{bloc}}{Fator categórico que identifica o bloco.}
#'
#' \item{\code{irri}}{Fator codificado que representa a irrigação:
#' permanente e interminentente.}
#'
#' \item{\code{adub}}{Fator codificado que representa a adubação: 30 e
#' 60 kg de N ha\eqn{^{-1}}.}
#'
#' \item{\code{cult}}{Fator codificado que representa a cultivar de
#' arroz: IAC 435 e IR 841-63-5-I-9-33.}
#'
#' \item{\code{doen}}{Fator codificado que representa o controle das
#' doenças: sem controle e controle com aplicação de Manzate.}
#'
#' \item{\code{inva}}{Fator codificado que representa o controle das
#' plantas invasoras: aplicação de Stan F-34 e Ronstar.}
#'
#' \item{\code{prod}}{Produtividade de arroz irrigado (kg
#' ha\eqn{^{-1}}).}
#'
#' }
#' @keywords DBC FAT2K confundimento
#' @source ZIMMERMANN (2004), (Tabela 11.19, pág. 237)
#' @examples
#'
#' library(lattice)
#' library(latticeExtra)
#'
#' data(ZimmermannTb11.19)
#' str(ZimmermannTb11.19)
#'
#' ftable(xtabs(~irri + cult + adub + doen + inva,
#' data = ZimmermannTb11.19))
#'
#' useOuterStrips(
#' xyplot(prod ~ factor(irri) | factor(inva) + factor(doen),
#' data = ZimmermannTb11.19,
#' groups = interaction(cult, adub, sep = ":"),
#' type = c("p", "a"),
#' xlab = "Irrigação",
#' ylab = expression("Produtividade"~(kg~ha^{-1})),
#' auto.key = list(title = "Cultivar:Adubação",
#' cex.title = 1.1,
#' columns = 4)),
#' strip = strip.custom(strip.names = TRUE,
#' var.name = "Invasora"),
#' strip.left = strip.custom(strip.names = TRUE,
#' var.name = "Doença"))
#'
NULL
#' @name ZimmermannTb11.7
#' @title Espa\enc{ç}{c}amento, Densidade e Nitrog\enc{ê}{e}nio na
#' Produ\enc{çã}{ca}o de Arroz
#' @description Dados de um experimento fatorial \eqn{2^3}, com
#' confundimento de duas das interações simples. Referem-se à
#' produtividade de grãos, em kg ha\eqn{^{-1}}. O ensaio foi
#' conduzido em 4 blocos ao acaso de tamanho 2 dentro de quatro
#' repetições, em que cada uma continha 4 blocos (8 parcelas). Os
#' fatores foram: densidades de plantio de 50 e 90 sementes por
#' metro, espaçamentos entre linhas de 35cm e 50cm e fator presença
#' ou ausência de adubação nitrogenada em cobertura.
#' @format Um \code{data.frame} com 32 observações e 7 variáveis
#'
#' \describe{
#'
#' \item{\code{rept}}{Fator categórico que identifica a repetição. Cada
#' repetição contém quatro blocos de tamanho 2.}
#'
#' \item{\code{bloco}}{Fator de níveis categóricos que identifica o
#' bloco em cada repetição.}
#'
#' \item{\code{dens}}{Fator codificado que representa a densidade de
#' plantio (50 e 90).}
#'
#' \item{\code{espac}}{Fator codificado que representa o espaçamento
#' entre as linhas de semeadura (35 e 50 cm).}
#'
#' \item{\code{adub}}{Fator codificado que indica a presença ou não de
#' adubação nitrogenada (1 e 0).}
#'
#' \item{\code{prod}}{Produção de arroz, em kg ha\eqn{^{-1}}.}
#'
#' }
#' @seealso \code{\link{ZimmermannTb11.1}}. Os ensaios
#' \code{ZimmermannTb11.1} e \code{ZimmermannTb11.7} possuem os
#' mesmos valores observados da resposta e fatores estudados, o que
#' muda é a estrutura de confundimento utilizada, com modificação do
#' tamanho dos blocos para que isso fosse ilustrado. O primeiro tem
#' 2 blocos de tamanho 4 em cada repetição e o segundo tem 4 blocos
#' de tamanho 2. Essa modificação dos dados é artificial e foi feita
#' para fins didáticos. Não se deve alterar o delineamento de dados
#' reais para conduzir as análises.
#' @keywords DBC FAT2K confundimento
#' @source ZIMMERMANN (2004), Tabela 11.7, pág. 226.
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb11.7)
#'
#' str(ZimmermannTb11.7)
#'
#' ftable(xtabs(~adub + espac + dens + bloco, data = ZimmermannTb11.7))
#'
#' xyplot(prod ~ factor(dens) | factor(adub), groups = espac,
#' data = ZimmermannTb11.7,
#' type = c("p", "a"),
#' xlab = "Densidade de semeadura",
#' ylab = expression ("Produção de Arroz"~(kg~ha^{-1})),
#' auto.key = list(title = "Espaçamento", cex.title = 1.1,
#' columns = 2),
#' strip = strip.custom(strip.names = TRUE,
#' var.name = "Adubação"))
#'
NULL
#' @name ZimmermannTb12.1
#' @title Produtividade de Gr\enc{ã}{a}os de Arroz Irrigado
#' @description Dados do Ensaio 1 de um experimento em DIC, que estudou
#' a produtividade de grãos de arroz em lavoura conduzida com
#' inundação contínua durante todo o ciclo. O experimento teve seis
#' repetições e sete tratamentos.
#' @format Um \code{data.frame} com 42 observações e 3 variáveis
#'
#' \describe{
#'
#' \item{\code{geno}}{Fator de níveis nominais. Tratamento aplicado em
#' arroz irrigado.}
#'
#' \item{\code{rept}}{Número inteiro que identifica as repetições de
#' cada tratamento.}
#'
#' \item{\code{prod}}{Produção de grãos de arroz irrigado. A unidade de
#' medida não é conhecida.}
#'
#' }
#' @keywords DIC
#' @source ZIMMERMANN (2004), pág. 249.
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb12.1)
#' str(ZimmermannTb12.1)
#'
#' xyplot(prod ~ geno, data = ZimmermannTb12.1,
#' type = c("p", "a"),
#' xlab = "Tratamentos",
#' ylab = "Produção de grãos de arroz irrigado")
#'
#' aggregate(prod ~ geno, data = ZimmermannTb12.1,
#' FUN = function(x) { c(mean = mean(x), var = var(x)) })
#'
NULL
#' @name ZimmermannTb12.13
#' @title Propor\enc{çã}{ca}o de Insetos Infectados
#' @description Dados do ensaio 1 de um experimento em DBC que estudou a
#' patogenicidade de fungos ao percevejo do grão de arroz. A
#' testemunha sem infecção (1) era o tratamento comum entre os dois
#' experimentos. Os dados se referem à proporção de percevejos
#' infectados, medida transformada pelo arco seno da raiz quadrada
#' da proporção.
#' @format Um \code{data.frame} com 35 observações e 3 variáveis
#'
#' \describe{
#'
#' \item{\code{trat}}{Fator de níveis nominais. Tratamento aplicado em
#' arroz.}
#'
#' \item{\code{bloco}}{Número inteiro que identifica o bloco da
#' observação.}
#'
#' \item{\code{asinprop}}{Arco seno da raíz quadrada
#' (\eqn{\arcsin(\sqrt{p})}) da proporção (em radianos) de insetos
#' infectados.}
#'
#' }
#' @keywords DBC proporção
#' @source ZIMMERMANN (2004), Tab 12.13, pág 255.
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb12.13)
#' str(ZimmermannTb12.13)
#'
#' xyplot(asinprop ~ trat , groups = bloco, data = ZimmermannTb12.13,
#' type = c("p", "a"), jitter.x = TRUE,
#' xlab = "Tratamentos",
#' ylab = "Arco seno da raíz da proporção de insetos infectados")
#'
#' aggregate(asinprop ~ trat, data = ZimmermannTb12.13,
#' FUN = function(x) { c(mean = mean(x), var = var(x)) })
#'
NULL
#' @name ZimmermannTb12.14
#' @title Propor\enc{çã}{ca}o de Insetos Infectados
#' @description Dados do ensaio 2 de um experimento em DBC que estudou a
#' patogenicidade de fungos as percevejo do grão de arroz. A
#' testemunha sem infecção (1) era o tratamento comum entre os dois
#' experimentos. Os dados se referem à proporção de percevejos
#' infectados, transformada pelo arco seno da raiz quadrada da
#' proporção.
#' @format Um \code{data.frame} com 35 observações e 3 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{trat}}{Fator de níveis nominais. Tratamento aplicado em
#' arroz.}
#'
#' \item{\code{bloco}}{Número inteiro que identifica o bloco da
#' observação.}
#'
#' \item{\code{asinprop}}{Arco seno da raíz quadrada
#' (\eqn{\arcsin(\sqrt{p})}) da proporção (em radianos) de insetos
#' infectados.}
#'
#' }
#' @keywords DBC proporção
#' @source ZIMMERMANN (2004), pág. 255.
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb12.14)
#' str(ZimmermannTb12.14)
#'
#' xyplot(asinprop ~ trat , groups = bloco, data = ZimmermannTb12.14,
#' type = c("p", "a"), jitter.x = TRUE,
#' xlab = "Tratamentos",
#' ylab = "Arco seno da raíz da proporção de insetos infectados")
#'
#' aggregate(asinprop ~ trat, data = ZimmermannTb12.14,
#' FUN = function(x) { c(mean = mean(x), var = var(x)) })
#'
NULL
#' @name ZimmermannTb12.19
#' @title Produtividade de feij\enc{ã}{a}o em Ensaio de
#' Competi\enc{çã}{ca}o de Cultivares
#' @description Dados do ensaio 1 de um experimento em DBC de competição
#' de cultivares de feijão do grupo preto. Este ensaio foi realizado
#' no município de Senador Canedo (GO). Houveram três cultivares
#' testemunhas e mais seis em cada ensaio. Cada experimento foi
#' conduzido no período de inverno, sob irrigação por aspersão. Os
#' dados são relativos à produtividade de grãos, em kg/ha.
#' @format Um \code{data.frame} com 36 observações e 3 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{cult}}{Fator de níveis nominais. Identifica a cultivar de
#' feijão.}
#'
#' \item{\code{bloco}}{Número inteiro que identifica o bloco da
#' observação.}
#'
#' \item{\code{prod}}{Produtividade de grãos em kg ha\eqn{^{-1}}.}
#'
#' }
#' @keywords DBC
#' @source ZIMMERMANN (2004), Tabela 12.19, pág 258.
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb12.19)
#' str(ZimmermannTb12.19)
#'
#' xyplot(prod ~ cult, data = ZimmermannTb12.19,
#' groups = bloco, type = "b",
#' xlab = "Tratamentos",
#' ylab = "Produtividade de grãos",
#' scales = list(x = list(rot = 90)))
#'
#' aggregate(prod ~ cult, data = ZimmermannTb12.19,
#' FUN = function(x) { c(mean = mean(x), var = var(x)) })
#'
NULL
#' @name ZimmermannTb12.2
#' @title Estudo Sobre Produtividade de Gr\enc{ã}{a}os de Arroz Irrigado
#' @description Dados do Ensaio 2 de um experimento em DIC, que estudou
#' a produtividade de grãos de arroz em lavoura conduzida com
#' inundação contínua até a fase de diferenciação do primórdio
#' floral e drenada após esta fase. O experimento teve seis
#' repetições e sete tratamentos.
#' @format Um \code{data.frame} com 42 observações e 3 variáveis, em que
#'
#' \describe{
#'
#' \item{geno}{Fator de níveis nominais. Genótipo do arroz
#' irrigado.}
#'
#' \item{rept}{Número inteiro que identifica as repetições de cada
#' tratamento.}
#'
#' \item{prod}{Produção de grãos de arroz irrigado. A unidade de medida
#' não é conhecida.}
#'
#' }
#' @keywords DIC
#' @source ZIMMERMANN (2004), Tabela 12.2, pág 249.
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb12.2)
#'
#' str(ZimmermannTb12.2)
#'
#' xyplot(prod ~ geno, data = ZimmermannTb12.2,
#' type = c("p", "a"),
#' xlab = "Tratamentos",
#' ylab = "Produção de grãos de arroz irrigado")
#'
#' aggregate(prod ~ geno, data = ZimmermannTb12.2,
#' FUN = function(x) { c(mean = mean(x), var = var(x)) })
NULL
#' @name ZimmermannTb12.20
#' @title Produtividade de Gr\enc{ã}{a}os de Cultivares de
#' Feij\enc{ã}{a}o
#' @description Dados do ensaio 2 de um experimento em DBC de competição
#' de cultivares de feijão do grupo preto. Este ensaio foi realizado
#' no município de Santo Antonio de Goiás (GO). Houveram três
#' cultivares testemunhas e mais seis em cada ensaio. Cada
#' experimento foi conduzido no período de inverno, sob irrigação
#' por aspersão. Os dados são relativos à produtividade de grãos, em
#' kg/ha.
#' @format Um \code{data.frame} com 36 observações e 3 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{cult}}{Fator de níveis nominais. dentifica a cultivar de
#' feijão.}
#'
#' \item{\code{bloco}}{Número inteiro que identifica o bloco da
#' observação.}
#'
#' \item{\code{prod}}{Produtividade de grãos em kg ha\eqn{^{-1}}.}
#'
#' }
#' @keywords DBC
#' @source ZIMMERMANN (2004), pág. 258.
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb12.20)
#' str(ZimmermannTb12.20)
#'
#' xyplot(prod ~ cult , groups = bloco, data = ZimmermannTb12.20,
#' type = c("p", "a"),
#' xlab = "Tratamentos",
#' ylab = "Produtividade de grãos")
#'
#' aggregate(prod ~ cult, data = ZimmermannTb12.20,
#' FUN = function(x) { c(mean = mean(x), var = var(x)) })
NULL
#' @name ZimmermannTb12.26
#' @title Produtividade de Arroz para Resist\enc{ê}{e}ncia a Insetos
#' @description Ensaio 1 de um experimento em DQL, que avaliou a
#' resistência a insetos em seis cultivares de arroz, sendo uma
#' delas comum ao ensaio 2. Os dados são de produtividade de
#' espiguetas, em gramas.
#' @format Um \code{data.frame} com 36 observações e 4 variáveis
#'
#' \describe{
#'
#' \item{linha}{Fator de níveis numéricos. Indica em que linha do
#' quadrado a unidade experimental está.}
#'
#' \item{coluna}{Fator de níveis numéricos. Indica em que coluna do
#' quadrado a unidade experimental está.}
#'
#' \item{cult}{Indica a cultivar.}
#'
#' \item{prod}{Produção de espiguetas, em gramas.}
#'
#' }
#' @keywords DQL
#' @source ZIMMERMANN (2004), pág. 261.
#' @examples
#'
#' library(lattice)
#' library(reshape)
#'
#' data(ZimmermannTb12.26)
#' str(ZimmermannTb12.26)
#'
#' cast(ZimmermannTb12.26, linha ~ coluna, value = "cult")
#' cast(ZimmermannTb12.26, linha ~ coluna, value = "prod")
#'
#' levelplot(prod ~ linha + coluna,
#' data = ZimmermannTb12.26, aspect = "iso",
#' panel = function(x, y, z, subscripts, ...) {
#' panel.levelplot(x, y, z, subscripts = subscripts, ...)
#' panel.text(x, y, ZimmermannTb12.26$cult[subscripts],
#' cex = 0.8)
#' panel.text(x, y, z, pos = 1)
#' })
#'
#' xyplot(prod ~ cult, data = ZimmermannTb12.26, type = c("p", "a"),
#' xlab = "Cultivares",
#' ylab = expression("Produtividade de espiguetas"~(g)))
#'
NULL
#' @name ZimmermannTb12.27
#' @title Produtividade de Arroz para Resist\enc{ê}{e}ncia a Insetos
#' @description Ensaio 2 de um experimento em delineamento quadrado
#' latino, que avaliou a resistência a insetos em seis cultivares de
#' arroz, sendo uma delas comum ao ensaio 1. Os dados são de
#' produtividade de espiguetas, em gramas.
#' @format Um \code{data.frame} com 36 observações e 4 variáveis
#'
#' \describe{
#'
#' \item{linha}{Fator de níveis nominais. Indica em que linha do
#' quadrado latino a unidade experimental está.}
#'
#' \item{coluna}{Fator de níveis nominais. Indica em que coluna do
#' quadrado latino a unidade experimental está.}
#'
#' \item{cult}{Fator de níveis nominais que representam as cultivares
#' de arroz.}
#'
#' \item{prod}{Produção de espiguetas, em gramas.}
#'
#' }
#' @keywords DQL
#' @source ZIMMERMANN (2004), Tabela 12.27, pág.262.
#' @examples
#'
#' library(lattice)
#' library(reshape)
#'
#' data(ZimmermannTb12.27)
#' str(ZimmermannTb12.27)
#'
#' cast(ZimmermannTb12.27, linha ~ coluna, value = "cult")
#' cast(ZimmermannTb12.27, linha ~ coluna, value = "prod")
#'
#' levelplot(prod ~ linha + coluna,
#' data = ZimmermannTb12.27, aspect = "iso",
#' panel = function(x, y, z, subscripts, ...) {
#' panel.levelplot(x, y, z, subscripts = subscripts, ...)
#' panel.text(x, y, ZimmermannTb12.27$cult[subscripts],
#' cex = 0.8)
#' panel.text(x, y, z, pos = 1)
#' })
#'
#' xyplot(prod ~ cult, data = ZimmermannTb12.27, type = c("p", "a"),
#' xlab = "Cultivares",
#' ylab = expression("Produtividade de espiguetas"~(g)))
#'
NULL
#' @name ZimmermannTb12.32
#' @title Competi\enc{çã}{ca}o de Cultivares de Feij\enc{ã}{a}o
#' @description Dados de um estudo em delineamento de blocos completos
#' com quatro repetições. O experimento foi um ensaio de competição
#' de cultivares e linhagens de feijão, em cultivos irrigado e de
#' sequeiro. São apresentadas na tabela a média nos ensaios
#' irrigados, nos de sequeiro e geral.
#' @format Um \code{data.frame} com 13 observações e 4 variáveis
#'
#' \describe{
#'
#' \item{\code{geno}}{Fator de níveis nominais. Identifica o genótipo
#' repetição da observação.}
#'
#' \item{\code{irrigados}}{Médias nos ensaios irrigados.}
#'
#' \item{\code{sequeiro}}{Médias nos ensaios de sequeiro.}
#'
#' \item{\code{geral}}{Média geral.}
#'
#' }
#' @keywords DBC
#' @source ZIMMERMANN (2004), Tabela 12.32, pág.264.
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb12.32)
#' str(ZimmermannTb12.32)
#'
#' xyplot(geral ~ geno, data = ZimmermannTb12.32,
#' type = "o", jitter.x = TRUE,
#' xlab = "Genótipo",
#' ylab = "Média Geral",
#' main = "Competição de Cultivares de Feijão",
#' scales = list(x = list(rot = 90)))
NULL
#' @name ZimmermannTb12.33
#' @title Competi\enc{çã}{ca}o de Cultivares de Feij\enc{ã}{a}o
#' @description Dados de um estudo em delineamento de blocos completos
#' com quatro repetições. O experimento foi um ensaio de competição
#' de cultivares e linhagens de feijão, em cultivos irrigado e de
#' sequeiro. São apresentadas na tabela o total nos ensaios
#' irrigados, nos de sequeiro e geral.
#' @format Um \code{data.frame} com 13 observações e 4 variáveis
#'
#' \describe{
#'
#' \item{\code{geno}}{Fator de níveis nominais. Identifica o genótipo
#' repetição da observação.}
#'
#' \item{\code{irrigados}}{Totais nos ensaios irrigados.}
#'
#' \item{\code{sequeiro}}{Totais nos ensaios de sequeiro.}
#'
#' \item{\code{geral}}{Total geral.}
#'
#' }
#' @keywords DBC
#' @source ZIMMERMANN (2004), Tabela 12.33, pág. 265.
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb12.33)
#' str(ZimmermannTb12.33)
#'
#' xyplot(geral ~ geno, data = ZimmermannTb12.33,
#' type = "o", jitter.x = TRUE,
#' xlab = "Genótipo",
#' ylab = "Total Geral",
#' main = "Competição de Cultivares de Feijão",
#' scales = list(x = list(rot = 90)))
NULL
#' @name ZimmermannTb12.7
#' @title \enc{Á}{A}rea Sob a Curva do Progresso de Brusone
#' @description Dados do ensaio 1 de um experimento que avaliou as
#' cultivares para a área foliar atacada por brusone
#' (\emph{Pyricularia Orizae} L.) em diferentes datas e se calculou
#' área sob a curva do progresso da doença. Este primeiro
#' experimento foi semeado na densidade de oitenta sementes por
#' metro. Os dados foram transformados por logaritmo natural,
#' procurando-se uma maior homogeneização das variâncias.
#' @format Um \code{data.frame} com 18 observações e 3 variáveis
#'
#' \describe{
#'
#' \item{\code{cult}}{Fator de níveis nominais. Indica a cultivar.}
#'
#' \item{\code{bloco}}{Número inteiro que identifica o bloco da
#' observação.}
#'
#' \item{\code{aacpd}}{Logaritmo natural da área sob a curva de
#' progresso da doença. A unidade de medida não é conhecida.}
#'
#' }
#' @keywords DBC
#' @source ZIMMERMANN (2004), Tabela 12.7, pág. 251.
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb12.7)
#' str(ZimmermannTb12.7)
#'
#' xyplot(aacpd ~ cult , groups = bloco, data = ZimmermannTb12.7,
#' type = c("p", "a"),
#' xlab = "Tratamentos",
#' ylab = "Logaritmo da área sob a curva de progresso da doença")
#'
#' aggregate(aacpd ~ cult, data = ZimmermannTb12.7,
#' FUN = function(x) { c(mean = mean(x), var = var(x)) })
#'
NULL
#' @name ZimmermannTb12.8
#' @title \enc{Á}{A}rea Sob a Curva do Progresso de uma doen\enc{ç}{c}a
#' @description Dados do ensaio 1 de um experimento que avaliou as
#' cultivares para a área foliar atacada por brusone
#' (\emph{Pyricularia Orizae} L.) em diferentes datas e se calculou
#' área sob a curva do progresso da doença. Este primeiro
#' experimento foi semeado na densidade de duzentas sementes por
#' metro. Os dados foram transformados por logaritmo natural,
#' procurando-se uma maior homogeneização das variâncias.
#' @format Um \code{data.frame} com 18 observações e 3 variáveis
#'
#' \describe{
#'
#' \item{\code{cult}}{Fator de níveis nominais. Indica a cultivar.}
#'
#' \item{\code{bloco}}{Número inteiro que identifica o bloco da
#' observação.}
#'
#' \item{\code{aacpd}}{Logaritmo natural da área sob a curva de
#' progresso da doença. A unidade de medida não é conhecida.}
#'
#' }
#' @keywords DBC
#' @source ZIMMERMANN (2004), pág. 252.
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb12.8)
#' str(ZimmermannTb12.8)
#'
#' xyplot(aacpd ~ cult, groups = bloco, data = ZimmermannTb12.8,
#' type = c("p", "a"),
#' xlab = "Tratamentos",
#' ylab = "Área sob a curva do progresso da doença")
#'
#' aggregate(aacpd ~ cult, data = ZimmermannTb12.8,
#' FUN = function(x) { c(mean = mean(x), var = var(x)) })
#'
NULL
#' @name ZimmermannTb13.1
#' @title \enc{Í}{I}ndice de \enc{Á}{A}rea de Folhar e Idade das Plantas
#' @description Em um plantio de feijão com a cultivar Jalo Precoce
#' foram coletadas plantas em dias sequenciais (Idades), e o índice
#' de área foliar (IAF) foi medido.
#' @format Um \code{data.frame} com 8 observações e 5 variáveis
#'
#' \describe{
#'
#' \item{\code{idade}}{Variável métrica que a idade das plantas.}
#'
#' \item{\code{IAF}}{Índice de área foliar.}
#'
#' \item{\code{x2}}{IAF elevada ao quadrado.}
#'
#' \item{\code{y2}}{Idade elevada ao quadrado.}
#'
#' \item{\code{xy}}{Produto entre idade e IAF.}
#'
#' }
#' @keywords RM
#' @source ZIMMERMANN (2004), Tabela 13.1, pág. 272.
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb13.1)
#' str(ZimmermannTb13.1)
#'
#' splom(ZimmermannTb13.1, type = c("p", "smooth"))
#'
NULL
#' @name ZimmermannTb14.3
#' @title Estande de Plantas e Produtividade de Cultivares de
#' Feij\enc{ã}{a}o
#' @description Dados de um ensaio de competição de cultivares de feijão
#' onde foram registrados a produtivididade, bem como o estande por
#' área útil, para sete cultivares de arroz. O experimento foi feito
#' em delineamento de blocos completos ao acaso e a informação de
#' estande foi medida para explicar parte da variação em
#' produtividade das parcelas, já maior estande favorece maior
#' produtividade.
#' @format Um \code{data.frame} com 28 observações e 4 variáveis
#'
#' \describe{
#'
#' \item{\code{bloc}}{Fator categórico que identifica os blocos.}
#'
#' \item{\code{cult}}{Fator categórico que identifica as cultivares de
#' feijão.}
#'
#' \item{\code{stand}}{Estande de plantas na área útil da parcela.}
#'
#' \item{\code{prod}}{Produtividade, em kg ha\eqn{^{-1}}}
#'
#' }
#' @seealso \code{\link{ZimmermannTb4.4}} contém dados referentes ao
#' mesmo ensaio, porém com mais cultivares e sem a informação de
#' estande.
#' @keywords DBC COV
#' @source ZIMMERMANN (2004), Tabela 14.3, pág. 293.
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb14.3)
#' str(ZimmermannTb14.3)
#'
#' cex <- with(ZimmermannTb14.3, {
#' x <- stand - min(stand)
#' x <- 0.5 + 1 * x/max(x)
#' L <- cbind(cex = fivenum(x), labels = fivenum(stand))
#' return(list(cex = x, legend = L))
#' })
#'
#' key <- list(
#' title = "Stand", cex.title = 1.1, columns = 5,
#' points = list(pch = 1, cex = cex$legend[, "cex"]),
#' text = list(c(sprintf("%0.0f", cex$legend[, "labels"]))))
#'
#' xyplot(prod ~ cult, data = ZimmermannTb14.3,
#' type = c("p", "a"), cex = cex$cex,
#' xlab = "Cultivares", ylab = "Produção", key = key)
#'
#' xyplot(prod ~ cult, groups = bloc, data = ZimmermannTb14.3,
#' type = "a", xlab = "Cultivares", ylab = "Produção",
#' key = key,
#' panel = function(x, y, subscripts, groups, ...) {
#' panel.xyplot(x = x, y = y,
#' subscripts = subscripts,
#' groups = groups, ...)
#' col <- trellis.par.get()$superpose.symbol$col[
#' groups[subscripts]]
#' panel.points(x = x, y = y, cex = cex$cex[subscripts],
#' col = col)
#' panel.text(x = x, y = y, pos = 2, cex = 0.8,
#' labels = sprintf("%d", ZimmermannTb14.3$stand))
#' })
#'
NULL
#' @name ZimmermannTb14.9
#' @title Controle de Insetos na Produtividade de Gr\enc{ã}{a}os de
#' Arroz
#' @description Dados de um ensaio de controle de insetos/pragas na
#' cultura do arroz. O experimento foi feito em delineamento
#' quadrado latino 6 \eqn{\times} 6 mas há uma um dado perdido
#' (linha 6, coluna 2). Esta observação recebeu o valor \code{NA}.
#' @format Um \code{data.frame} com 36 observações e 4 variáveis
#'
#' \describe{
#'
#' \item{\code{linha}}{Fator que indica a linha do quadrado latino.}
#'
#' \item{\code{coluna}}{Fator que indica a coluna do quadrado latino.}
#'
#' \item{\code{inset}}{Fator que indica o tratamento para controle de
#' insetos.}
#'
#' \item{\code{prod}}{Produção de grãos por área útil da parcela.}
#'
#' }
#' @seealso Dados do mesmo experimento, referente à variável de contagem
#' número de perfilhos de arroz, estão disponíveis em
#' \code{\link{ZimmermannTb5.15}}.
#' @keywords DQL desbalanceado
#' @source ZIMMERMANN (2004), Tabela 14.9, pág. 297.
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb14.9)
#' str(ZimmermannTb14.9)
#'
#' # Indicadora de observação perdida/ausente.
#' is.na(ZimmermannTb14.9$prod)
#'
#' levelplot(prod ~ linha + coluna,
#' data = ZimmermannTb14.9, aspect = "iso",
#' panel = function(x, y, z, subscripts, ...) {
#' panel.levelplot(x, y, z, subscripts = subscripts)
#' panel.text(x, y,
#' labels = ZimmermannTb14.9$inset[subscripts],
#' pos = 3)
#' panel.text(x, y, sprintf("%0.1f", z), pos = 1,
#' col = is.na(z[subscripts]) + 1)
#' })
#'
#' xyplot(prod ~ inset,
#' data = na.omit(ZimmermannTb14.9),
#' type = c("p", "a"),
#' xlab = "Inseticidas",
#' ylab = "Produção")
#'
NULL
#' @name ZimmermannTb15.1
#' @title Produ\enc{çã}{ca}o de Perfilhos por Planta em Fun\enc{çã}{ca}o
#' de 4 Fatores
#' @description Dados de um ensaio fatorial fracionado \eqn{2^{4-1}}, em
#' blocos ao acaso. O experimento mediu o número médio de perfilhos
#' por planta. Os quatro fatores estudados foram: cultivar,
#' calcário, gesso e fósforo. Para os fatores abióticos, o nível
#' baixo correspondeu à não aplicação do insumo e para as
#' cultivares, a IAC 47. O nível 1 correspondeu a: cultivar IAC 165,
#' 5000 kg ha\eqn{^{-1}} de calcário, 1500 kg ha\eqn{^{-1}} de gesso
#' e kg ha\eqn{^{-1}} de fósforo.
#' @format Um \code{data.frame} com 24 observações e 3 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{bloc}}{Fator categórico que representa os blocos.}
#'
#' \item{\code{cult}}{Fator de níveis codificados que representa as
#' cultivares: IAC 47 e IAC 165.}
#'
#' \item{\code{calc}}{Fator codificado que representa as doses de
#' calcário: 0 e 5000 kg ha\eqn{^{-1}}.}
#'
#' \item{\code{gess}}{Fator codificado que representa as doses de gesso:
#' 0 e 1500 kg ha\eqn{^{-1}}.}
#'
#' \item{\code{p2o5}}{Fator codificado que representa as doses de
#' fósforo: 0 e 50 kg de P\eqn{_2}O\eqn{_5} ha\eqn{^{-1}}.}
#'
#' \item{\code{perf}}{Número médio de perfilhos por planta.}
#'
#' }
#' @details Apesar de ter sido um experimento feito em blocos, não foi
#' utilizado confundimento bom blocos, pois todos os blocos tiveram
#' a mesma fração do fatorial (a fração complementar não foi
#' utilizada).
#' @keywords DBC FAT2K FRAC
#' @source ZIMMERMANN (2004), pág. 306.
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb15.1)
#' str(ZimmermannTb15.1)
#'
#' ftable(xtabs(~cult + calc + gess + p2o5, data = ZimmermannTb15.1))
#'
#' xyplot(perf ~ factor(calc) | factor(cult),
#' groups = interaction(gess, p2o5, sep = ":"),
#' data = ZimmermannTb15.1,
#' xlab = "Nível de calcário",
#' ylab = "Número médio de perfilhos por planta",
#' auto.key = list(title = "Gesso:Fósforo", cex.title = 1.1,
#' columns = 4),
#' strip = strip.custom(strip.names = TRUE,
#' var.name = "Cultivar",
#' factor.levels = c("IAC 47", "IAC 165")))
#'
NULL
#' @name ZimmermannTb15.10
#' @title Aduba\enc{çã}{ca}o NPK na Produ\enc{çã}{ca}o de Arroz
#' @description Dados de produção de grãos em terras altas, em kg
#' ha\eqn{^{-1}}. Este é um ensaio contendo apenas uma repetição de
#' um fatorial fracionado correspondente a 1/5 de um \eqn{5^3}.
#' @format Um \code{data.frame} com 25 observações e 3 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{N}}{Fator codificado que representa a dose de
#' nitrogênio.}
#'
#' \item{\code{P}}{Fator codificado que representa a dose de fósforo.}
#
#' \item{\code{K}}{Fator codificado que representa a dose de potássio.}
#'
#' \item{\code{prod}}{Produção de grãos, kg ha\eqn{^{-1}}.}
#'
#' }
#' @keywords FRAC
#' @source ZIMMERMANN (2004), Tabela 15.10, pág. 314.
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb15.10)
#' str(ZimmermannTb15.10)
#'
#' # Arranjo de fatores como a estrutura de quadrado latino.
#' reshape::cast(data = ZimmermannTb15.10,
#' formula = N ~ P, value = "K")
#'
#' xyplot(prod ~ N + P + K, data = ZimmermannTb15.10,
#' outer = TRUE, as.table = TRUE, type = c("p", "a"),
#' xlab = "Níveis de NPK",
#' ylab = "Produção de grãos")
#'
NULL
#' @name ZimmermannTb15.4
#' @title Fatorial Fracionado para Estudo da Aduba\enc{çã}{ca}o em Arroz
#' @description Dados de um ensaio com fração 1/3 de um fatorial
#' \eqn{3^3}, conduzido em blocos ao acaso. O estudo é sobre a
#' absorção e translocação de zinco em arroz de terras altas sob a
#' influência de fósforo e calcário. Os níveis dos fatores eram de
#' 0, 5 e 10 kg ha\eqn{^{-1}} para o zinco, 0, 50 e 100 kg
#' ha\eqn{^{-1}} para o fósforo e 0, 1.5 e 3 ton ha\eqn{^{-1}} para
#' o calcário. Os dados são de produção de grãos, em kg
#' ha\eqn{^{-1}}.
#' @format Um \code{data.frame} com 27 observações e 3 variáveis
#'
#' \describe{
#'
#' \item{\code{bloco}}{Fator de níveis categóricos que identifica os
#' blocos.}
#'
#' \item{\code{zinco}}{Fator de níveis codificados que indica o nível de
#' zinco aplicado: 0, 5 e 10 kg ha\eqn{^{-1}}.}
#'
#' \item{\code{fosf}}{Fator de níveis codificados que indica o nível de
#' fósforo aplicado: 0, 50 e 100 kg ha\eqn{^{-1}}.}
#'
#' \item{\code{calc}}{Fator de níveis codificados que indica o nível de
#' calcário aplicado: 0, 1.5 e 3 kg ton ha\eqn{^{-1}}.}
#'
#' \item{\code{prod}}{Produtividade de grãos, em kg ha\eqn{^{-1}}.}
#'
#' }
#' @seealso Estes dados são na realiadade uma adaptação dos dados em
#' \code{\link{ZimmermannTb11.13}} pois referem-se ao conjunto dos 3
#' blocos (do total de 9) continham a combinação 000 de zinco,
#' fósforo e cálcio.
#' @keywords FAT3K FRAC
#' @source ZIMMERMANN (2004), Tabela 15.4, pág. 309.
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb15.4)
#' str(ZimmermannTb15.4)
#'
#' xyplot(prod ~ zinco | factor(fosf), groups = calc,
#' data = ZimmermannTb15.4, as.table = TRUE,
#' xlab = "Níveis codificados de zinco",
#' ylab = expression("Produção de grãos"~(kg~ha^{-1})),
#' auto.key = list(title = "Calcário", cex.title = 1.1,
#' columns = 3),
#' strip = strip.custom(strip.names = TRUE,
#' var.name = "Fósforo"))
#'
NULL
#' @name ZimmermannTb16.1
#' @aliases ZimmermannTb16.2
#' @title An\enc{á}{a}lise de Composi\enc{çã}{ca}o do Solo Aluviais
#' @description Dados de análise de solos aluviais, que apresentaram pH
#' abaixo de sete, referentes à associação existente entre teor de
#' matéria orgânica no solo (porcentagem) com disponibilidade de
#' fósforo (mg kg\eqn{^{-1}}). A amostra tem apenas sete
#' observações.
#' @format Um \code{data.frame} com 7 observações e 7 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{origem}}{Fator de níveis nominais que identifica o local
#' de origem da amostra de solo.}
#'
#' \item{\code{mo}}{Matéria orgânica no solo (\%).}
#'
#' \item{\code{fosf}}{Disponibilidade de fósforo no solo (mg
#' kg\eqn{^{-1}}).}
#'
#' \item{\code{pmo}}{Posto da váriavel \code{mo}.}
#'
#' \item{\code{pfosf}}{Posto da váriavel \code{fosf}.}
#'
#' \item{\code{Nc}}{Indica o número de pares de postos concordantes.}
#'
#' \item{\code{Nd}}{Indica o número de pares de postos discordantes.}
#'
#' }
#' @keywords AASM
#' @source ZIMMERMANN (2004), Tabela 16.1, pág. 327.
#' @examples
#'
#' data(ZimmermannTb16.1)
#' str(ZimmermannTb16.1)
#'
#' mean(ZimmermannTb16.1$mo)
#' mean(ZimmermannTb16.1$fosf)
#'
#' with(ZimmermannTb16.1, {
#' cbind(pmo = rank(mo), pfosf = rank(fosf))
#' })
#'
NULL
#' @name ZimmermannTb16.10
#' @title N\enc{ú}{u}mero de Colmos Atacados por \emph{Elasmopalpus}
#' @description Experimento realizado em delineamento quadrado latino 6
#' \eqn{times} 6. Os dados são referentes ao número de colmos
#' atacados por \emph{Elasmopalpus lignosellus} L. em plantas de
#' arroz. São apresentados na tabela também os respectivos postos de
#' cada dado.
#' @format Um \code{data.frame} com 36 observações e 5 variáveis
#'
#' \describe{
#'
#' \item{linha}{Fator categórico que representa as linhas do quadrado
#' latino.}
#'
#' \item{coluna}{Fator categórico que representa as colunas do quadrado
#' latino.}
#'
#' \item{trat}{Fator que representa o tratamento aplicado.}
#'
#' \item{colmos}{Número de colmos atacados por \emph{E. lignosellus}.}
#'
#' \item{posto}{Posto correspondente ao número de colmos atacados de
#' cada unidade experimental (\eqn{6 \times 6 = 36}).}
#'
#' }
#' @keywords DQL contagem
#' @source ZIMMERMANN (2004), Tabela 16.10, pág. 357.
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb16.10)
#' str(ZimmermannTb16.10)
#'
#' ZimmermannTb16.10$posto <- rank(ZimmermannTb16.10$colmos)
#'
#' levelplot(colmos ~ linha + coluna,
#' data = ZimmermannTb16.10, aspect = "iso",
#' panel = function(x, y, z, subscripts, ...) {
#' panel.levelplot(x, y, z, subscripts = subscripts)
#' trat <- ZimmermannTb16.10$trat[subscripts]
#' posto <- ZimmermannTb16.10$posto[subscripts]
#' panel.text(x, y, labels = trat, pos = 3)
#' panel.text(x, y,
#' labels = sprintf("%0.1f (%0.1f)",
#' z, posto),
#' pos = 1)
#' })
#'
#' xyplot(colmos ~ trat, data = ZimmermannTb16.10,
#' type = c("p", "a"),
#' ylab = "Número de colmos atacados",
#' xlab = "Tratamento")
#'
NULL
#' @name ZimmermannTb16.3
#' @title Teores de Mat\enc{é}{e}ria Org\enc{â}{a}nica de Solos de
#' V\enc{á}{a}rzea
#' @description Teores de matéria orgânica de solos aluviais e gely
#' húmicos.
#' @format Um \code{data.frame} com 14 observações e 2 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{solo}}{Tipo de solo, sendo A - aluviais e B - gley
#' húmicos.}
#'
#' \item{\code{mo}}{Teor de matéria orgânica do solo (\%).}
#'
#' }
#' @keywords TODO
#' @source ZIMMERMANN (2004), Tabela 16.3, pág. 337.
#' @examples
#'
#' # Postos.
#' rank(ZimmermannTb16.3$mo)
#'
#' aggregate(mo ~ solo, data = ZimmermannTb16.3, FUN = mean)
#'
NULL
#' @name ZimmermannTb16.4
#' @title Hastes Mortas de Arroz por \emph{Elasmopalpus lignosellus} L.
#' @description Dados de um experimento em delineamento inteiramente
#' casualizado que estudou cultivares de arroz, em casa de
#' vegetação. Os dados são referentes ao número de hastes mortas por
#' \emph{Elasmopalpus lignosellus} por parcela. Cada cultivar foi
#' repetida três vezes.
#' @format Um \code{data.frame} com 9 observações e 3 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{cult}}{Fator categórico que identifica as cultivares de
#' arroz.}
#'
#' \item{\code{nmort}}{Número de hastes mortas por \emph{Elasmopalpus
#' lignosellus} por parcela.}
#'
#' \item{\code{posto}}{Posto da váriavel \code{nmort}.}
#'
#' }
#' @keywords DIC contagem
#' @source ZIMMERMANN (2004), Tabela 16.4, pág. 341.
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb16.4)
#' str(ZimmermannTb16.4)
#'
#' xyplot(nmort ~ cult, data = ZimmermannTb16.4,
#' xlab = "Cultivar",
#' ylab = "Número de hastes mortas")
#'
#' rank(ZimmermannTb16.4$nmort)
#'
NULL
#' @name ZimmermannTb16.5
#' @title N\enc{ú}{u}mero de Dias para Flora\enc{çã}{ca}o de Cultivares
#' de Arroz
#' @description Experimento realizado em delineamento em blocos
#' completos ao acaso, utilizando oito cultivares de arroz
#' irrigado. Os dados são referentes ao número de dias até a
#' floração das plantas de arroz, uma variável do tipo tempo até o
#' evento/desfecho. São apresentados na tabela também os respectivos
#' postos de cada dado, a fim de facilitar a aplicação do teste de
#' Friedman (teste não paramétrico).
#' @format Um \code{data.frame} com 24 observações e 4 variáveis, em que
#'
#' \describe{
#'
#' \item{bloco}{Fator categórico que indica o bloco.}
#'
#' \item{cult}{Fator categórico que indica a cultivar.}
#'
#' \item{dias}{Número total de dias até a floração das plantas.}
#'
#' \item{posto}{Posto corresponden ao número de dias de cada cultivas
#' dentro de cada bloco. O posto pode ser calculado com a função
#' \code{\link[base]{rank}}.}
#'
#' }
#' @keywords DIC sobrevivência
#' @source ZIMMERMANN (2004), Tabela 16.5, pág 347.
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb16.5)
#' str(ZimmermannTb16.5)
#'
#' # Como calcular o posto no R.
#' p <- by(data = ZimmermannTb16.5,
#' INDICES = ZimmermannTb16.5$bloco,
#' FUN = function(dataset) {
#' dataset$posto <- rank(dataset$dias)
#' return(dataset)
#' })
#' ZimmermannTb16.5 <- do.call(rbind, p)
#' rownames(ZimmermannTb16.5) <- NULL
#'
#' xyplot(dias + posto ~ cult, outer = TRUE, groups = bloco,
#' data = ZimmermannTb16.5, jitter.x = TRUE,
#' scales = list(y = list(relation = "free"),
#' x = list(rot = 90)),
#' xlab = "Cultivares", ylab = "",
#' strip = strip.custom(factor.levels = c("Dias para floração",
#' "Posto")))
#'
#' xyplot(posto ~ dias, data = ZimmermannTb16.5,
#' xlab = "Dias para floração", ylab = "Posto",
#' jitter.y = TRUE)
#'
NULL
#' @name ZimmermannTb16.8
#' @title Dias para Flora\enc{çã}{ca}o de Cultivares de Arroz em um
#' Reticulado Quadrado
#' @description Experimento realizado em delineamento reticulado
#' quadrado 5 \eqn{\times} 5, com três repetições. Os dados são
#' referentes ao número de dias até a floração das cultivares de
#' arroz de terras altas. São apresentados na tabela também os
#' respectivos postos de cada dado, segundo a metodologia definida
#' no teste de Durbin.
#' @format Um \code{data.frame} com 75 observações e 5 variáveis, em que
#'
#' \describe{
#'
#' \item{rept}{Fator categórico que representas as repetições de
#' blocos. Cada repetição contém 5 blocos de tamanho 5 e uma
#' repetição de cada cultivar.}
#'
#' \item{bloco}{Fator que identifica os blocos dentro de cada
#' repetição.}
#'
#' \item{cult}{Fator que representa as cultivares.}
#'
#' \item{dias}{Número total de dias até a floração.}
#'
#' \item{posto}{Posto correpondente ao número de dias para floração das
#' cultivares dentro dos blocos.}
#'
#' }
#' @seealso Os dados de produção de arroz do mesmo ensaio estão
#' disponíveis em \code{\link{ZimmermannTb7.1}}.
#' @keywords LAT sobrevivência
#' @source ZIMMERMANN (2004), Tabela 16.8, pág. 353.
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb16.8)
#' str(ZimmermannTb16.8)
#'
#' p <- by(data = ZimmermannTb16.8,
#' INDICES = with(ZimmermannTb16.8,
#' interaction(bloco, rept)),
#' FUN = function(dataset) {
#' dataset$posto <- rank(dataset$dias)
#' return(dataset)
#' })
#' ZimmermannTb16.8 <- do.call(rbind, p)
#' rownames(ZimmermannTb16.5) <- NULL
#'
#' xyplot(dias + posto ~ cult, outer = TRUE, groups = rept,
#' data = ZimmermannTb16.8, jitter.x = TRUE,
#' scales = list(y = list(relation = "free"),
#' x = list(rot = 90)),
#' xlab = "Cultivares", ylab = "",
#' strip = strip.custom(factor.levels = c("Dias para floração",
#' "Posto")))
#'
#' xyplot(posto ~ dias, data = ZimmermannTb16.8,
#' xlab = "Dias para floração", ylab = "Posto",
#' jitter.y = TRUE)
#'
NULL
#' @name ZimmermannTb3.12
#' @title Dados de Mat\enc{é}{e}ria seca em Plantas
#' @description Experimento em DIC que estudou a produção de matéria
#' seca em plantas de arroz, em gramas. No experimento foram
#' utilizados cinco vasos para cada um de quatro tratamentos e três
#' plantas para cada vaso (parcela).
#' @format Um \code{data.frame} com 75 observações e 4 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{solo}}{Fator de níveis nominais representados por
#' inteiros. Indica o tipo de solo aonde o arroz foi plantado.}
#'
#' \item{\code{planta}}{Fator de níveis numéricos que identifica as
#' plantas dentro dos vasos.}
#'
#' \item{\code{vaso}}{Fator de níveis numéricos que identifica os vasos
#' de cada tratamento.}
#'
#' \item{\code{prod}}{Produção de matéria seca das plantas, em gramas.}
#'
#' }
#' @keywords DIC
#' @source ZIMMERMANN (2004), Table 3.12, pág. 62.
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb3.12)
#' str(ZimmermannTb3.12)
#'
#' xtabs(~solo + vaso, data = ZimmermannTb3.12)
#'
#' aggregate(prod ~ solo, data = ZimmermannTb3.12,
#' FUN = function(x) { c(mean = mean(x), var = var(x)) })
#'
#' xyplot(prod ~ solo, groups = vaso, data = ZimmermannTb3.12,
#' type = c("p", "a"), jitter.x = TRUE,
#' xlab = "Tratamentos",
#' ylab = "Produção de matéria seca das plantas (g)")
#'
NULL
#' @name ZimmermannTb3.2.1
#' @title Aduba\enc{çã}{ca}o Nitrogenada na Cultura do Arroz
#' @description Dados de um experimento em DIC que visa estudar a
#' adubação nitrogenada no arroz irrigado, com 4 tratamentos e 8
#' repetições. A resposta observada foi a produção de grãos de arroz
#' irrigado, em kg ha\eqn{^{-1}}.
#' @format Um \code{data.frame} com 24 observações e 3 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{adub}}{Fator de níveis nominais. Indica a adubação
#' aplicada ao arroz irrigado.}
#'
#' \item{\code{rept}}{Número inteiro que identifica as repetições de
#' cada tratamento.}
#'
#' \item{\code{prod}}{Produção de grãos de arroz irrigado em kg
#' ha\eqn{^{-1}}.}
#'
#' }
#' @keywords DIC
#' @source ZIMMERMANN (2004), pág. 54.
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb3.2.1)
#' str(ZimmermannTb3.2.1)
#'
#' unstack(x = ZimmermannTb3.2.1, form = prod ~ adub)
#'
#' aggregate(prod ~ adub, data = ZimmermannTb3.2.1,
#' FUN = function(x) { c(mean = mean(x), var = var(x)) })
#'
#' xyplot(prod ~ adub, data = ZimmermannTb3.2.1,
#' type = c("p", "a"), jitter.x = TRUE,
#' xlab = "Tratamentos",
#' ylab = expression(Produção~de~grãos~(kg~ha^{-1})))
#'
NULL
#' @name ZimmermannTb3.5
#' @title Fracionamento da Aduba\enc{çã}{ca}o na Produ\enc{çã}{ca}o de
#' Gr\enc{ã}{a}os de Arroz Irrigado
#' @description Dados de um estudo sobre adubação nitrogenada na cultura
#' do arroz irrigado. Foram testadas quatros formas de aplicação do
#' adubo fazendo o fracionamento das quantidades em diferentes
#' épocas. O experimento foi instalado em delineamento inteiramente
#' casualizado com 8 repetições.
#' @format Um \code{data.frame} com 32 observações e 3 variáveis
#'
#' \describe{
#'
#' \item{\code{trat}}{Fator de níveis categóricos que representa as
#' formas de adubação: 1 = 80 kg/ha no plantio, 2 = 40 kg/ha 40 dias
#' no plantio após a emergência (DAE), 3 = 13.2 kg/ha no plantio e
#' 66.8 kg/ha aos 40 DAE, e 4 = 13.2 kg/ha no plantio e 33.4 kg/ha
#' aos 40 e 60 DAE.}
#'
#' \item{\code{rept}}{Inteiro que identifica as repretições de uma forma
#' de adubação.}
#'
#' \item{\code{prod}}{Produção de grãos de arroz irrigado (ka
#' ha\eqn{^{-1}}).}
#'
#' }
#' @keywords DIC contrastes
#' @source ZIMMERMANN (2004), Tabela 3.5, pág. 54.
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb3.5)
#' str(ZimmermannTb3.5)
#'
#' # Quantidade[época].
#' adub <- expression(80[0],
#' 40[0] + 40[40],
#' 13.2[0] + 66.8[40],
#' 13.2[0] + 33.4[40] + 33.4[60])
#'
#' xyplot(prod ~ adub, data = ZimmermannTb3.5,
#' type = c("p", "a"), jitter.x = TRUE,
#' xlab = "Formas de adubação",
#' ylab = expression("Produção de arroz"~(kg~ha^{-1})),
#' scales = list(x = list(labels = adub)))
#'
#' aggregate(prod ~ adub, data = ZimmermannTb3.5,
#' FUN = function(x) { c(mean = mean(x), sd = sd(x)) })
#'
NULL
#' @name ZimmermannTb4.11
#' @title Alturas M\enc{é}{e}dias de Perfilhos
#' @description Dados de um ensaio com dez genótipos, quatro blocos e
#' cinco amostras por parcela, tomadas ao acaso, das alturas dos
#' perfilhos, medidos em cm.
#' @format Um \code{data.frame} com 200 observações e 4 variáveis
#'
#' \describe{
#'
#' \item{\code{geno}}{Fator de níveis nominais. Identifica o genótipo
#' da planta.}
#'
#' \item{\code{bloco}}{Número inteiro que identifica o bloco da
#' observação.}
#'
#' \item{\code{amostra}}{Fator de níveis numéricos. Identifica à qual
#' amostra pertence a observação.}
#'
#' \item{\code{alt}}{Altura de perfilhos (cm).}
#'
#' }
#' @keywords DBC
#' @source ZIMMERMANN (2004), Tabela 4.11, pág. 79.
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb4.11)
#' str(ZimmermannTb4.11)
#'
#' xyplot(alt ~ geno, groups = bloco,
#' data = ZimmermannTb4.11,
#' type = c("p", "a"), jitter.x = TRUE,
#' xlab = "Tratamentos",
#' ylab = "Altura média de perfilhos (cm)",
#' scales=list(x=list(rot=90)))
#'
#' aggregate(alt ~ geno, data = ZimmermannTb4.11,
#' FUN = function(x) { c(mean = mean(x), var = var(x)) })
#'
NULL
#' @name ZimmermannTb4.4
#' @title Competi\enc{çã}{ca}o de Cultivares de Feij\enc{ã}{a}o
#' @description Dados de um ensaio de competição de cultivares, em
#' blocos completos ao acaso, da produção de grãos de feijão em
#' kg/ha. O experimento teve quinze tratamentos (cultivares e/ou
#' linhagens) e quatro blocos.
#' @format Um \code{data.frame} com 60 observações e 3 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{cult}}{Fator de níveis nominais. Cultivar de feijão.}
#'
#' \item{\code{bloco}}{Número inteiro que identifica o bloco da
#' observação.}
#'
#' \item{\code{prod}}{Produção de grãos de feijão (ka ha\eqn{^{-1}}).}
#'
#' }
#' @keywords DBC
#' @source ZIMMERMANN (2004), Tabela 4.4, pág. 72.
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb4.4)
#'
#' str(ZimmermannTb4.4)
#'
#' xyplot(prod ~ cult, data = ZimmermannTb4.4,
#' groups = bloco, type = "o", jitter.x = TRUE,
#' xlab = "Cultivares",
#' ylab = expression("Produção de feijão"~(kg~ha^{-1})),
#' main = "Experimento de competição de cultivares",
#' scales = list(x = list(rot = 90)))
#'
#' aggregate(prod ~ cult, data = ZimmermannTb4.4,
#' FUN = function(x) { c(mean = mean(x), var = var(x)) })
#'
NULL
#' @name ZimmermannTb5.11
#' @title Propor\enc{çã}{ca}o de Hastes Sobreviventes ao Ataque de
#' Insetos
#' @description Experimento em delineamento quadrado latino onde foram
#' tomadas quatro amostras em cada uma das parcelas (tipo de
#' inseticida) no que diz respeito ao número total de hastes e
#' número de hastes mortas por cupim (\emph{Sinthermes} sp.) e
#' lagarta elasmo (\emph{Elasmopalpus} sp.). Com base nestes
#' números, a proporção de hastes sobreviventes ao ataque de insetos
#' foi calculada.
#' @format Um \code{data.frame} com 484 observações e 5 variáveis
#'
#' \describe{
#'
#' \item{linha}{Fator de níveis nominais. Indica em que linha do
#' quadrado latino em que está a unidade experimental.}
#'
#' \item{coluna}{Fator de níveis nominais. Indica em que coluna do
#' quadrado latino a unidade experimental está.}
#'
#' \item{inset}{Fator de níveis nominais. Indica o inseticida
#' aplicado.}
#'
#' \item{amostra}{Fator de níveis numéricos. Identifica a amostra em
#' cada unidade experimental.}
#'
#' \item{prop}{Proporção de hastes sobreviventes ao ataque de insetos. O
#' Só é conhecida a proporção amostral. Não são conhecidos o
#' númerador (número hastes sobreviventes) e denominador (total de
#' hastes avaliadas).}
#'
#' }
#' @keywords DQL
#' @source ZIMMERMANN (2004), Tabela 5.1, pág. 101.
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb5.11)
#' str(ZimmermannTb5.11)
#'
#' aux <- aggregate(prop ~ linha + coluna + inset,
#' data = ZimmermannTb5.11, FUN = mean)
#' str(aux)
#'
#' levelplot(prop ~ linha + coluna,
#' data = aux, aspect = "iso",
#' lbl = as.character(aux$inset),
#' panel = function(x, y, z, lbl, ...) {
#' panel.levelplot(x, y, z, ...)
#' panel.text(x = x, y = y, labels = lbl, pos = 3)
#' panel.text(x = x, y = y,
#' labels = sprintf("%0.2f", z),
#' pos = 1, cex = 0.8)
#' })
#'
#' xyplot(prop ~ inset, data = ZimmermannTb5.11,
#' type = c("p", "a"),
#' xlab = "Inseticida",
#' ylab = "Proporção de hastes sobreviventes")
#'
NULL
#' @name ZimmermannTb5.15
#' @title N\enc{ú}{u}mero de Perfilhos em Arroz em Fun\enc{çã}{ca}o de 6
#' Tratamentos
#' @description Esperimento conduzido pelo pesquisador Evane Ferreira,
#' em Santo Antônio de Goiás, em 1998. O estudo avaliou o número de
#' perfilhos de arroz em função de 6 tratamentos (não mencionados)
#' arranjados em um delineamento quadrado latino.
#' @format Um \code{data.frame} com 36 observações e 4 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{linha}}{Fator categórico que representa as linhas do
#' quadrado latino.}
#'
#' \item{\code{coluna}}{Fator categórico que representa as colunas do
#' quadrado latino.}
#'
#' \item{\code{trat}}{Fator categórico que representa os tratamentos
#' estudados.}
#'
#' \item{\code{perf}}{Número de perfilhos de arroz.}
#'
#' }
#' @keywords DQL contagem
#' @source ZIMMERMANN (2004), Tabela 5.15, pág. 107.
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb5.15)
#' str(ZimmermannTb5.15)
#'
#' xyplot(perf ~ trat,
#' data = ZimmermannTb5.15,
#' type = c("p", "a"),
#' xlab = "Tratamento",
#' ylab = "Número de perfilhos")
#'
NULL
#' @name ZimmermannTb5.2
#' @title Produ\enc{çã}{ca}o de Gr\enc{ã}{a}os de Gen\enc{ó}{o}tipos de
#' Arroz
#' @description Experimento em delineamento quadrado latino cujo
#' objetivo foi medir a resposta em produtividade de um grupo de
#' oito genótipos de arroz ao ataque inicial de pragas.
#' @format Um \code{data.frame} com 64 observações e 4 variáveis
#'
#' \describe{
#'
#' \item{linha}{Fator de níveis nominais. Indica em que linha do
#' quadrado latino a unidade experimental está.}
#'
#' \item{coluna}{Fator de níveis nominais. Indica em que coluna do
#' quadrado latino a unidade experimental está.}
#'
#' \item{geno}{Fator de níveis nominais que representam os genótipos de
#' arroz em estudo.}
#'
#' \item{prod}{Produção de arroz, em kg ha\eqn{^{-1}}.}
#'
#' }
#' @keywords DQL
#' @source ZIMMERMANN (2004), Tabela 5.2, pág. 92.
#' @examples
#'
#' library(lattice)
#' library(reshape)
#'
#' data(ZimmermannTb5.2)
#'
#' str(ZimmermannTb5.2)
#'
#' cast(ZimmermannTb5.2, linha ~ coluna, value = "geno")
#' cast(ZimmermannTb5.2, linha ~ coluna, value = "prod")
#'
#' levelplot(prod ~ linha + coluna,
#' data = ZimmermannTb5.2, aspect = "iso",
#' panel = function(x, y, z, subscripts, ...) {
#' panel.levelplot(x, y, z, subscripts = subscripts)
#' panel.text(x, y, ZimmermannTb5.2$geno[subscripts],
#' pos = 3)
#' panel.text(x, y, sprintf("%0.1f", z), pos = 1)
#' })
#'
#' xyplot(prod ~ geno, data = ZimmermannTb5.2, type = c("p", "a"),
#' xlab = "Genótipos de arroz",
#' ylab = expression("Produção de arroz"~(kg~ha^{-1})))
#'
NULL
#' @name ZimmermannTb7.1
#' @title Ensaio de Competi\enc{çã}{ca}o de Cultivares em Reticulado
#' Quadrado
#' @description Experimento feito pelos pesquisadores Orlando Peixoto
#' Moraes, Emilio da Maia de Castro e Flavio Breseghello, da Embrapa
#' Arroz e Feijão, na fazenda Capivara em Santo Antônio de Goiás. O
#' delineamento reticulado quadrado 5 \eqn{\times} 5 acomodou 25
#' cultivares, cada uma repetida 3 vezes. Foi medida a produção das
#' cultivares.
#' @format Um \code{data.frame} com 75 observações e 4 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{rept}}{Fator categórico que identifica os grupos de
#' blocos que formam uma repetição. Cada repetição tem 5 blocos de
#' tamanho 5.}
#'
#' \item{\code{bloc}}{Fator categórico que identifica os blocos dentro
#' das repetições.}
#'
#' \item{\code{cult}}{Fator categórico que representa as cultivares de
#' arroz.}
#'
#' \item{\code{prod}}{Produção de arroz, kg ha\eqn{^{-1}}.}
#'
#' }
#' @keywords LAT
#' @source ZIMMERMANN (2004), Tabela 7.1, pág. 136.
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb7.1)
#' str(ZimmermannTb7.1)
#'
#' ftable(xtabs(~rept + cult, data = ZimmermannTb7.1))
#' ftable(xtabs(~rept + bloc + cult, data = ZimmermannTb7.1))
#'
#' xyplot(prod ~ reorder(cult, prod), groups = rept,
#' data = ZimmermannTb7.1,
#' type = c("p", "a"),
#' xlab = "Cultivares",
#' ylab = expression("Produção"~(kg~ha^{-1})))
#'
NULL
#' @name ZimmermannTb7.4
#' @title Produ\enc{çã}{ca}o de Gr\enc{ã}{a}os de Arroz em Ensaio
#' Reticulado Retangular
#' @description Dados de um estudo sobre competição de cultivares e
#' linhagens de arroz irrigado quanto a produtividade. O experimento
#' foi conduzido em ensaio em reticulado retangular 5 \eqn{\times} 6
#' (blocos de tamanho 5, 6 blocos por repetição), com três
#' repetições.
#' @format Um \code{data.frame} com 90 observações e 3 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{rept}}{Fator categórico que representa as repetições do
#' experimento. Cada repetições tem 6 blocos de tamanho 3,
#' perfazendo 30 parcelas, uma para cada uma das
#' cultivares/linhagens estudadas.}
#'
#' \item{\code{bloco}}{Fator categórico que indentifica os blocos.}
#'
#' \item{\code{cult}}{Fator categórico que identifica as
#' cultivares/linhagens em competição.}
#'
#' \item{\code{prod}}{Produção de grãos de arroz irrigado (ka
#' ha\eqn{^{-1}}).}
#'
#' }
#' @keywords RET
#' @source ZIMMERMANN (2004), Tabela 7.4, pág. 140.
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb7.4)
#' str(ZimmermannTb7.4)
#'
#' xtabs(~bloc + rept, data = ZimmermannTb7.4)
#' xtabs(~cult + rept, data = ZimmermannTb7.4)
#'
#' xyplot(prod ~ reorder(cult, prod),
#' data = ZimmermannTb7.4, type = c("p", "a"),
#' xlab = "Cultiavres",
#' ylab = expression("Produção de grãos de arroz"~(kg~ha^{-1})))
#'
NULL
#' @name ZimmermannTb8.5
#' @title Produ\enc{çã}{ca}o de Gr\enc{ã}{a}os de Feij\enc{ã}{a}o em
#' Delineamento de Blocos Aumentos de Federer
#' @description Dados de um estudo em desenho de blocos aumentados de
#' Federer, com total de dezoito blocos, cada um com quatro
#' testemunhas (1 a 4), e 12 linhagens, num total de 216
#' linhagens. Os dados são de apenas 10 dos blocos, contendo 9
#' parcelas em cada um, 4 delas sendo testemunhas e as 5 restantes
#' são linhagens. A resposta medida foi a produção de grãos de
#' feijão em kg ha\eqn{^{-1}}.
#' @format Um \code{data.frame} com 90 observações e 3 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{bloc}}{Fator categórico que identifica os blocos do
#' experimento. Cada bloco tem tamanho 9.}
#'
#' \item{\code{linh}}{Fator categórico que identifica as linhagens do
#' experimento. A linhagens identificas de 1 a 4 são as
#' testemunhas.}
#'
#' \item{\code{prod}}{Produção de grãos de feijão (ka ha\eqn{^{-1}}).}
#'
#' }
#' @keywords BAF
#' @source ZIMMERMANN (2004), Tabela 8.5, pág. 158.
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb8.5)
#' str(ZimmermannTb8.5)
#'
#' xtabs(~linh, data = ZimmermannTb8.5)
#' xtabs(~bloc, data = ZimmermannTb8.5)
#'
#' xyplot(prod ~ reorder(linh, prod), data = ZimmermannTb8.5,
#' xlab = "Linhagens (ordenadas)",
#' ylab = expression("Produção de grãos de feijão"~(kg~ha^{-1})))
#'
NULL
#' @name ZimmermannTb9.13
#' @title Mat\enc{é}{e}ria Seca de Feij\enc{ã}{a}o
#' @description Dados de um estudo em ensaio fatorial 3 \eqn{times} 3,
#' considerando três níveis de densidade de solo e três doses
#' microelementos. Cada vaso continha três plantas de arroz e,
#' adicionalmente aos microelementos, foi feita adubação com 4 g por
#' vaso de formulado 5-30-15. Os dados são de matéria seca de
#' feijão, em escala logarítmica. 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{micro}}{Fator de níveis métricos que são as doses de
#' microelementos (FTE-BR-12) aplicado ao solo (g vaso\eqn{^{-1}}).}
#'
#' \item{\code{dens}}{Fator de níveis métricos que é densidade do solo
#' na qual foram cultivadas as plantas (g dm\eqn{^{-1}}).}
#'
#' \item{\code{rept}}{Inteiro que identifica as repetições de cada cela
#' experimental.}
#'
#' \item{\code{imseca}}{Logaritimo decimal da matéria seca das plantas
#' de feijão.}
#'
#' }
#' @keywords FAT3K
#' @source ZIMMERMANN (2004), Tabela 9.13, pág. 179.
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb9.13)
#' str(ZimmermannTb9.13)
#'
#' xtabs(~micro + dens, data = ZimmermannTb9.13)
#'
#' xyplot(lms ~ dens, data = ZimmermannTb9.13,
#' groups = micro, type = c("p", "a"),
#' auto.key = list(
#' title = expression("Microelementos"~(g~vaso^{-1})),
#' cex.title = 1.1, columns = 3),
#' xlab = expression("Densidade do solo"~(g~cm^{-3})),
#' ylab = "log da matéria seca")
#'
NULL
#' @name ZimmermannTb9.17
#' @title \enc{É}{E}poca de Aplica\enc{çã}{ca}o de NK na
#' Produ\enc{çã}{ca}o de Gr\enc{ã}{a}os de Arroz
#' @description Dados de um estudo em ensaio fatorial 3 \eqn{\times} 3,
#' referentes à produção de grãos de arroz, em kg ha\eqn{^{-1}}. O
#' delineamento é o de blocos completos ao acaso, com três
#' repetições. Foram testados os efeitos do nitrogênio, potássio e
#' épocas de aplicação destes elementos na produtividade da soca do
#' arroz irrigado.
#' @format Um \code{data.frame} com 81 observações e 5 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{epoc}}{Fator categórico que representa a época de
#' aplicação dos nutrientes.}
#'
#' \item{\code{pota}}{Fator categórico que representa a dose de potássio
#' aplicada.}
#'
#' \item{\code{nitr}}{Fator categórico que representa a dose de
#' nitrogênio aplicada.}
#'
#' \item{\code{bloc}}{Fator categórico que representa os blocos do
#' experimento. Os blocos tinham tamanho \eqn{3^3 = 27}.}
#'
#' \item{\code{prod}}{Produção de grão de arroz em (kg ha\eqn{^{-1}}).}
#'
#' }
#' @keywords FAT3K
#' @source ZIMMERMANN (2004), Tabela 9.17, pág. 182.
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb9.17)
#' str(ZimmermannTb9.17)
#'
#' ftable(xtabs(~nitr + pota + epoc, data = ZimmermannTb9.17))
#'
#' xyplot(prod ~ nitr | epoc, data = ZimmermannTb9.17,
#' groups = pota, type = c("p", "a"),
#' as.table = TRUE,
#' auto.key = list(title = "Potássio", cex.title = 1.1,
#' columns = 3),
#' strip = strip.custom(strip.names = TRUE,
#' var.name = "Época",
#' sep = " : "),
#' xlab = "Nitrogênio",
#' ylab = expression("Produção de grãos de arroz"~(kg~ha^{-1})))
#'
NULL
#' @name ZimmermannTb9.22
#' @title Fungicidas e Pol\enc{í}{i}mero na Infec\enc{çã}{ca}o de
#' \emph{Fusarium} em Sementes
#' @description Resultados de um experimento fatorial com tratamentos
#' adicionais \eqn{3 \times 3 + 2} que estudou o número de sementes
#' infectadas por fusaruim em função aplicação de fungicidas às
#' sementes e do uso associado de um polímero depois do fungicida ou
#' misturado a ele. Os dois tratamentos adicionais era a aplicação
#' isolada do polímero e uma testemunha sem qualquer tratamento. O
#' experimento foi instalado em delineamento inteiramente
#' casualizado.
#' @format Um \code{data.frame} com 55 observações e 4 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{trat}}{Fator cetegórico que identifica as celas
#' experimentais do fatorial com tratamentos adicionais.}
#'
#' \item{\code{fung}}{Fator categórico que identifica os níveis dos
#' fungicidas aplicados às sementes. Benlate, Captam e Derosal são
#' os fungicidas. O polímero puro e uma testemunha também foram
#' investigados.}
#'
#' \item{\code{aplic}}{Fator categórico que indica a forma de aplicação
#' do fungicida em relação ao polímero: antes do polímero, misturado
#' com o polímero ou o fungicída puro.}
#'
#' \item{\code{nsi}}{Número de sementes infectadas por \emph{fusarium}
#' de um total de 40 sementes.}
#'
#' }
#' @keywords FATADI binomial
#' @source ZIMMERMANN (2004), Tabela 9.22, pág. 188.
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb9.22)
#' str(ZimmermannTb9.22)
#'
#' xtabs(~fung + aplic, ZimmermannTb9.22)
#'
#' xyplot(nsi/40 ~ trat, data = ZimmermannTb9.22,
#' xlab = "Tratamentos",
#' ylab = "Proporção de sementes infectadas",
#' scales = list(x = list(rot = 90)))
#'
#' # Gráfico da função arco seno da raíz.
#' curve(asin(sqrt(x)), from = 0, to = 1)
#'
#' # Transformação arco seno da raíz quadrada da proporção.
#' asin(sqrt(ZimmermannTb9.22$nsi/40))
#'
#' # A transformação não elimina os zeros.
#' xyplot(asin(sqrt(nsi/40)) ~ trat, data = ZimmermannTb9.22,
#' xlab = "Tratamentos",
#' ylab = "Arco seno da raíz da proporção",
#' scales = list(x = list(rot = 90)))
#'
NULL
#' @name ZimmermannTb9.26
#' @title \enc{É}{E}poca de Aplica\enc{çã}{ca}o de NK na Altura de
#' Plantas
#' @description Dados de um estudo em fatorial \eqn{3^3}, sobre adubação
#' nitrogenada e potássica e suas épocas de aplicação. Os dados são
#' referentes a altura de plantas no cultivo da soca de arroz
#' irrigado. Dados referen-se apenas aos valores do primeiro
#' bloco. Veja \code{\link{ZimmermannTb9.17}}.
#' @format Um \code{data.frame} com 27 observações e 4 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{epoc}}{Fator categórico que representa a época de
#' aplicação dos nutrientes.}
#'
#' \item{\code{pota}}{Fator categórico que representa a dose de potássio
#' aplicada.}
#'
#' \item{\code{nitr}}{Fator categórico que representa a dose de
#' nitrogênio aplicada.}
#'
#' \item{\code{alt}}{Altura das plantas (cm).}
#'
#' }
#' @keywords FAT3K
#' @source ZIMMERMANN (2004), Tabela 9.26, pág. 190.
#' @examples
#'
#' library(lattice)
#' library(latticeExtra)
#'
#' data(ZimmermannTb9.26)
#' str(ZimmermannTb9.26)
#'
#' ftable(xtabs(~epoc + nitr + pota, data = ZimmermannTb9.26))
#'
#' useOuterStrips(xyplot(alt ~ nitr + pota | epoc, outer = TRUE,
#' data = ZimmermannTb9.26,
#' type = c("p", "a"),
#' xlab = "Níveis de nitrogênio/potássio",
#' ylab = "Altura das plantas (cm)"),
#' strip = strip.custom(
#' strip.name = TRUE, var.name = "Época"),
#' strip.left = strip.custom(
#' factor.levels = c("Nitrogênio", "Potássio")))
#'
NULL
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.