Adiciona quadro 3.2.1 do Banzatto & Kronka para referência.

R/BanzattoQd3.2.1.R

+#' @name BanzattoQd3.2.1
+#' @title Controle de pulgão na cultura de pepino
+#' @description Dados de um experimento visando controle de pulgão
+#'     (\emph{Aphis gossypii} Glover) em cultura de pepino, instalado em
+#'     delineamento inteiramente casualizado com 6 repetições. A
+#'     resposta observada foi o número de pulgões após a aplicação de
+#'     produtos indicados para seu controle.
+#' @format Um \code{data.frame} com 30 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{trat}{Fator de níveis nominais. Tratamento aplicado para
+#'     controle do púlgão.}
+#'
+#' \item{rept}{Número inteiro que identifica as repetições de cada
+#'     tratamento.}
+#'
+#' \item{pulgoes}{Número de pulgões coletados 36 horas após a
+#'     pulverização dos tratamentos.}
+#'
+#' }
+#' @keywords DIC contagem
+#' @source Banzatto, D. A., & Kronka, S. D. (2013). Experimentação
+#'     Agrícola (4th ed.). Jaboticabal, SP: Funep. (pg 44)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(BanzattoQd3.2.1)
+#'
+#' aggregate(pulgoes ~ trat,  data = BanzattoQd3.2.1,
+#'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
+#'
+#' xyplot(pulgoes ~ trat, data = BanzattoQd3.2.1,
+#'        xlab = "Tratamentos",
+#'        ylab = "Número de pulgões 36h após pulverização")
+NULL

data-raw/BanzattoQd3.2.1.txt

+trat	rept	pulgoes
+Testemunha	1	2370
+Azinfós etílico	1	1282
+Supracid 40CE dose 1	1	562
+Supracid 40CE dose 2	1	173
+Diazinon 60CE	1	193
+Testemunha	2	1687
+Azinfós etílico	2	1527
+Supracid 40CE dose 1	2	321
+Supracid 40CE dose 2	2	127
+Diazinon 60CE	2	71
+Testemunha	3	2592
+Azinfós etílico	3	871
+Supracid 40CE dose 1	3	636
+Supracid 40CE dose 2	3	132
+Diazinon 60CE	3	82
+Testemunha	4	2283
+Azinfós etílico	4	1025
+Supracid 40CE dose 1	4	317
+Supracid 40CE dose 2	4	150
+Diazinon 60CE	4	62
+Testemunha	5	2910
+Azinfós etílico	5	825
+Supracid 40CE dose 1	5	485
+Supracid 40CE dose 2	5	129
+Diazinon 60CE	5	96
+Testemunha	6	3020
+Azinfós etílico	6	920
+Supracid 40CE dose 1	6	842
+Supracid 40CE dose 2	6	227
+Diazinon 60CE	6	44

man/BanzattoQd3.2.1.Rd

+% Generated by roxygen2 (4.1.1): do not edit by hand
+% Please edit documentation in R/BanzattoQd3.2.1.R
+\name{BanzattoQd3.2.1}
+\alias{BanzattoQd3.2.1}
+\title{Controle de pulgão na cultura de pepino}
+\format{Um \code{data.frame} com 30 observações e 3 variáveis, em que
+
+\describe{
+
+\item{trat}{Fator de níveis nominais. Tratamento aplicado para
+    controle do púlgão.}
+
+\item{rept}{Número inteiro que identifica as repetições de cada
+    tratamento.}
+
+\item{pulgoes}{Número de pulgões coletados 36 horas após a
+    pulverização dos tratamentos.}
+
+}}
+\source{
+Banzatto, D. A., & Kronka, S. D. (2013). Experimentação
+    Agrícola (4th ed.). Jaboticabal, SP: Funep. (pg 44)
+}
+\description{
+Dados de um experimento visando controle de pulgão
+    (\emph{Aphis gossypii} Glover) em cultura de pepino, instalado em
+    delineamento inteiramente casualizado com 6 repetições. A
+    resposta observada foi o número de pulgões após a aplicação de
+    produtos indicados para seu controle.
+}
+\examples{
+library(lattice)
+
+data(BanzattoQd3.2.1)
+
+aggregate(pulgoes ~ trat,  data = BanzattoQd3.2.1,
+          FUN = function(x) { c(mean = mean(x), var = var(x)) })
+
+xyplot(pulgoes ~ trat, data = BanzattoQd3.2.1,
+       xlab = "Tratamentos",
+       ylab = "Número de pulgões 36h após pulverização")
+}
+\keyword{DIC}
+\keyword{contagem}
+