From 662587403ca2025474f5ae56f883900e31635c54 Mon Sep 17 00:00:00 2001
From: Bruna Wundervald <brunadaviesw@gmail.com>
Date: Fri, 25 Mar 2016 11:36:40 -0300
Subject: [PATCH] Atualiza arquivos da tabela 5.11 do Zimmermann
---
R/ZimmermannTb5.11.R | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/R/ZimmermannTb5.11.R b/R/ZimmermannTb5.11.R
index 665d378..d173c95 100644
--- a/R/ZimmermannTb5.11.R
+++ b/R/ZimmermannTb5.11.R
@@ -43,13 +43,13 @@
#'
#' ZimmermannTb5.11$prop <- as.numeric(as.character(ZimmermannTb5.11$prop))
#'
-#' aux <- aggregate(prop ~ linha + coluna + parcela,
+#' aux <- aggregate(prop ~ linha + coluna + inset,
#' data = ZimmermannTb5.11, FUN = mean)
#' str(aux)
#'
#' levelplot(prop ~ linha + coluna,
#' data = aux, aspect = "iso",
-#' lbl = as.character(aux$parcela),
+#' lbl = as.character(aux$inset),
#' panel = function(x, y, z, lbl, ...) {
#' panel.levelplot(x, y, z, ...)
#' panel.text(x = x, y = y, labels = lbl, pos = 3)
@@ -58,9 +58,9 @@
#' pos = 1, cex = 0.8)
#' })
#'
-#' xyplot(prop ~ parcela, data = ZimmermannTb5.11,
+#' xyplot(prop ~ inset, data = ZimmermannTb5.11,
#' type = c("p", "a"),
-#' xlab = "Tratamento",
+#' xlab = "Inseticida",
#' ylab = "Proporção de hastes sobreviventes")
#'
NULL
--
GitLab