Adiciona os 3 arquivos das tabelas 12.19 e 12.20 do Zimmermann

R/ZimmermannTab12.19.R

+#' @name ZimmermannTab12.19
+#' @title Dados de produtividade de grãos de feijão
+#' @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
+#'
+#' \describe{
+#'
+#' \item{trat}{Fator de níveis nominais. Tratamento aplicado em plantas.}
+#'
+#' \item{bloco}{Número inteiro que identifica o bloco da observação.}
+#'
+#' \item{prod}{Produtividade de grãos.}
+#'
+#' }
+#' @keywords DBC feijão plantas grãos produtividade
+#' @source  Zimmermann, F.J.(2004), Estatística aplicada à pesquisa 
+#'          agrícola (1st ed.). Santo Antônio de Goiás, GO: Embrapa 
+#'          Arroz e Feijão. (pg 258)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(ZimmermannTab12.19)
+#' 
+#' xyplot(prod ~ trat , groups = bloco, data = ZimmermannTab12.19, 
+#'        type=c("p","a"),
+#'        xlab = "Tratamentos",
+#'        ylab = "Produtividade de grãos")
+#' 
+#' aggregate(prod ~ trat, data = ZimmermannTab12.19, 
+#'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
+NULL
\ No newline at end of file

R/ZimmermannTab12.20.R

+#' @name ZimmermannTab12.20
+#' @title Dados de produtividade de grãos de feijã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
+#'
+#' \describe{
+#'
+#' \item{trat}{Fator de níveis nominais. Tratamento aplicado em plantas.}
+#'
+#' \item{bloco}{Número inteiro que identifica o bloco da observação.}
+#'
+#' \item{prod}{Produtividade de grãos.}
+#'
+#' }
+#' @keywords DBC feijão plantas grãos produtividade
+#' @source  Zimmermann, F.J.(2004), Estatística aplicada à pesquisa 
+#'          agrícola (1st ed.). Santo Antônio de Goiás, GO: Embrapa 
+#'          Arroz e Feijão. (pg 258)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(ZimmermannTab12.20)
+#' 
+#' xyplot(prod ~ trat , groups = bloco, data = ZimmermannTab12.20, 
+#'        type=c("p","a"),
+#'        xlab = "Tratamentos",
+#'        ylab = "Produtividade de grãos")
+#' 
+#' aggregate(prod ~ trat, data = ZimmermannTab12.20, 
+#'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
+NULL
\ No newline at end of file

data-raw/ZimmermannTab12.19.txt

+"trat" "bloco" "prod"
+"CNFP 8015" 1 3700
+"CNFP 8016" 1 3600
+"CNFP 8017" 1 3925
+"CNFP 8018" 1 3875
+"CNFP 8019" 1 4200
+"CNFP 8020" 1 4850
+"Diamante Negro" 1 3300
+"FT Nobre" 1 4750
+"G. Brilhante" 1 4025
+"CNFP 8015" 2 3950
+"CNFP 8016" 2 3750
+"CNFP 8017" 2 2800
+"CNFP 8018" 2 3825
+"CNFP 8019" 2 3250
+"CNFP 8020" 2 3200
+"Diamante Negro" 2 2500
+"FT Nobre" 2 4950
+"G. Brilhante" 2 3575
+"CNFP 8015" 3 4050
+"CNFP 8016" 3 3550
+"CNFP 8017" 3 2825
+"CNFP 8018" 3 4000
+"CNFP 8019" 3 3950
+"CNFP 8020" 3 3450
+"Diamante Negro" 3 4025
+"FT Nobre" 3 4700
+"G. Brilhante" 3 3125
+"CNFP 8015" 4 2950
+"CNFP 8016" 4 3000
+"CNFP 8017" 4 3600
+"CNFP 8018" 4 3825
+"CNFP 8019" 4 3375
+"CNFP 8020" 4 4200
+"Diamante Negro" 4 3950
+"FT Nobre" 4 3575
+"G. Brilhante" 4 3825

data-raw/ZimmermannTab12.20.txt

+"trat" "bloco" "prod"
+"CNFP 8021" 1 4075
+"CNFP 8022" 1 2544.44
+"CNFP 8023" 1 2763.89
+"CNFP 8024" 1 3036.11
+"CNFP 8025" 1 2591.67
+"CNFP 8026" 1 2652.78
+"Diamante Negro" 1 1913.89
+"FT Nobre" 1 3713.89
+"G. Brilhante" 1 2400
+"CNFP 8021" 2 2252.78
+"CNFP 8022" 2 3133.33
+"CNFP 8023" 2 2250
+"CNFP 8024" 2 2369.44
+"CNFP 8025" 2 1466.67
+"CNFP 8026" 2 2927.78
+"Diamante Negro" 2 1850
+"FT Nobre" 2 3158.33
+"G. Brilhante" 2 1827.78
+"CNFP 8021" 3 3388.89
+"CNFP 8022" 3 2866.67
+"CNFP 8023" 3 1941.67
+"CNFP 8024" 3 3033.33
+"CNFP 8025" 3 2813.89
+"CNFP 8026" 3 2838.89
+"Diamante Negro" 3 1988.89
+"FT Nobre" 3 3250
+"G. Brilhante" 3 3316.67
+"CNFP 8021" 4 2663.89
+"CNFP 8022" 4 2533.33
+"CNFP 8023" 4 2791.67
+"CNFP 8024" 4 2922.22
+"CNFP 8025" 4 2750
+"CNFP 8026" 4 2305.56
+"Diamante Negro" 4 2080.56
+"FT Nobre" 4 2877.78
+"G. Brilhante" 4 2669.44