Renomeia trat -> cult, Tab -> Tb.

R/ZimmermannTb12.19.R

@@ -10,13 +10,13 @@
 #'
 #' \describe{
 #'
-#' \item{\code{cult}}{Fator de níveis nominais. Identifica a cultivar da
-#'     planta.}
+#' \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 (kg ha\eqn{^{-1}}).}
+#' \item{\code{prod}}{Produtividade de grãos em kg ha\eqn{^{-1}}.}
 #'
 #' }
 #' @keywords DBC
@@ -31,13 +31,13 @@
 #'
 #' str(ZimmermannTb12.19)
 #'
-#' xyplot(prod ~ trat, data = 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 ~ trat, data = ZimmermannTb12.19,
+#' aggregate(prod ~ cult, data = ZimmermannTb12.19,
 #'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
 #'
 NULL

R/ZimmermannTb12.20.R

 #' @name ZimmermannTb12.20
-#' @title Dados de produtividade de grãos de feijão
+#' @title Produtividade de Grãos de Cultivares 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
@@ -11,12 +11,13 @@
 #'
 #' \describe{
 #'
-#' \item{\code{cult}}{Fator de níveis nominais. dentifica a cultivar da
-#'     planta.}
+#' \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{bloco}}{Número inteiro que identifica o bloco da
+#'     observação.}
 #'
-#' \item{\code{prod}}{Produtividade de grãos.}
+#' \item{\code{prod}}{Produtividade de grãos em kg ha\eqn{^{-1}}.}
 #'
 #' }
 #' @keywords DBC
@@ -29,11 +30,11 @@
 #'
 #' data(ZimmermannTb12.20)
 #'
-#' xyplot(prod ~ trat , groups = bloco, data = ZimmermannTb12.20,
+#' xyplot(prod ~ cult , groups = bloco, data = ZimmermannTb12.20,
 #'        type = c("p", "a"),
 #'        xlab = "Tratamentos",
 #'        ylab = "Produtividade de grãos")
 #'
-#' aggregate(prod ~ trat, data = ZimmermannTb12.20,
+#' aggregate(prod ~ cult, data = ZimmermannTb12.20,
 #'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
 NULL

data-raw/ZimmermannTab12.19.txt

-"cult" "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

-"cult" "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

data-raw/ZimmermannTb12.19.txt

-trat	bloco	prod
+cult	bloco	prod
 CNFP 8015	1	3700
 CNFP 8016	1	3600
 CNFP 8017	1	3925

data-raw/ZimmermannTb12.20.txt

-trat	bloco	prod
+cult	bloco	prod
 CNFP 8021	1	4075
 CNFP 8022	1	2544.44
 CNFP 8023	1	2763.89