Atualiza o .R da tabela 12.1 do Zimmermann

R/ZimmermannTab12.1.R

@@ -31,6 +31,10 @@
 #'           xlab = "Tratamentos",
 #'           ylab = "Produção de grãos de arroz irrigado")
 #'           
+#' xyplot(prod ~ trat, data = ZimmermannTab12.1, type=c("p","a"),
+#'           xlab = "Tratamentos",
+#'           ylab = "Produção de grãos de arroz irrigado")
+#'
 #' aggregate(prod ~ trat, data = ZimmermannTab12.1, 
 #'          FUN = function(x) { c(mean = mean(x), var = var(x)) })
 NULL
\ No newline at end of file