Adiciona os 3 arquivos das tabelas 12.7 e 12.8 do Zimmermann

R/ZimmermannTab12.7.R

+#' @name ZimmermannTab12.7
+#' @title Dados de área sob a curva do progresso de uma doença
+#' @description Dados de um ensaio cque avaliou as cultivares paraa área 
+#'              foliar atacada por brusone (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{trat}{Fator de níveis nominais. Tratamento aplicado em plantas.}
+#'
+#' \item{bloco}{Número inteiro que identifica o bloco da observação.}
+#'
+#' \item{prod}{Área sob a curva do progresso de uma doenças.}
+#'
+#' }
+#' @keywords DBC área foliar plantas doença
+#' @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 251)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(ZimmermannTab12.7)
+#' 
+#' xyplot(prod ~ trat , groups = bloco, data = ZimmermannTab12.7, 
+#'        type=c("p","a"),
+#'        xlab = "Tratamentos",
+#'        ylab = "Área sob a curva do progresso da doença")
+#' 
+#' aggregate(prod ~ trat, data = ZimmermannTab12.7, 
+#'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
+NULL
\ No newline at end of file

R/ZimmermannTab12.8.R

+#' @name ZimmermannTab12.8
+#' @title Dados de área sob a curva do progresso de uma doença
+#' @description Dados de um ensaio cque avaliou as cultivares paraa área 
+#'              foliar atacada por brusone (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{trat}{Fator de níveis nominais. Tratamento aplicado em plantas.}
+#'
+#' \item{bloco}{Número inteiro que identifica o bloco da observação.}
+#'
+#' \item{prod}{Área sob a curva do progresso de uma doenças.}
+#'
+#' }
+#' @keywords DBC área foliar plantas doença
+#' @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 252)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(ZimmermannTab12.8)
+#' 
+#' xyplot(prod ~ trat , groups = bloco, data = ZimmermannTab12.8, 
+#'        type=c("p","a"),
+#'        xlab = "Tratamentos",
+#'        ylab = "Área sob a curva do progresso da doença")
+#' 
+#' aggregate(prod ~ trat, data = ZimmermannTab12.8, 
+#'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
+NULL
\ No newline at end of file

data-raw/ZimmermannTab12.7.txt

+"trat" "bloco" "prod"
+"Caiapó" 1 5.74616
+"Canastra" 1 6.29754
+"Confiança" 1 6.35712
+"Maravilha" 1 4.92718
+"Primavera" 1 6.26963
+"R. Paranaíba" 1 6.38072
+"Caiapó" 2 6.05715
+"Canastra" 2 6.03998
+"Confiança" 2 5.83999
+"Maravilha" 2 6.03634
+"Primavera" 2 5.91024
+"R. Paranaíba" 2 6.12295
+"Caiapó" 3 6.49288
+"Canastra" 3 6.13508
+"Confiança" 3 5.75745
+"Maravilha" 3 5.44038
+"Primavera" 3 6.47247
+"R. Paranaíba" 3 6.75723

data-raw/ZimmermannTab12.8.txt

+"trat" "bloco" "prod"
+"Caiapó" 1 4.82607
+"Canastra" 1 4.99789
+"Confiança" 1 5.67312
+"Maravilha" 1 4.37519
+"Primavera" 1 6.08142
+"R. Paranaíba" 1 5.94118
+"Caiapó" 2 5.4038
+"Canastra" 2 5.23228
+"Confiança" 2 5.30094
+"Maravilha" 2 5.0411
+"Primavera" 2 5.96179
+"R. Paranaíba" 2 5.86669
+"Caiapó" 3 4.92129
+"Canastra" 3 4.62698
+"Confiança" 3 5.51192
+"Maravilha" 3 4.0582
+"Primavera" 3 4.87302
+"R. Paranaíba" 3 5.08187