diff --git a/R/AndradeTb2.1.R b/R/AndradeTb2.1.R
index bace5f401dfd3631fe169c559b6234433529a5d1..9d0679f6e5479f21e365e28f2f36bdd433c25502 100644
--- a/R/AndradeTb2.1.R
+++ b/R/AndradeTb2.1.R
@@ -40,53 +40,68 @@
#' data(AndradeTb2.1)
#' str(AndradeTb2.1)
#'
-#' graf1 <- xyplot(rm ~ hibr,
-#' data = AndradeTb2.1,
-#' type = c("p", "r"),
-#' xlab = "Híbrido de Milho",
-#' ylab = "Rendimento Médio (em kg/ha)")
-#'
-#' graf2 <- xyplot(ciclo ~ hibr,
-#' data = AndradeTb2.1,
-#' type = c("p", "r"),
-#' xlab = "Híbrido de Milho",
-#' ylab = "Ciclo (em dias)")
-#'
-#' graf3 <- xyplot(ap + ae ~ hibr,
-#' data = AndradeTb2.1,
-#' type = c("p", "r"),
-#' xlab = "Híbrido de Milho",
-#' ylab = "Alturas (em cm)",
-#' auto.key = list(columns = 2))
-#'
-#' print(graf1, c(0, 0.66, 1, 1), more = TRUE)
-#'
-#' print(graf2, c(0, 0.33, 1, 0.66), more = TRUE)
-#'
-#' print(graf3, c(0, 0, 1, 0.33))
-#'
-#' d <- count(AndradeTb2.1$grao == "dentado")[[2]][2]
-#'
-#' sd <- count(AndradeTb2.1$grao == "semidentado")[[2]][2]
-#'
-#' s <- count(AndradeTb2.1$grao == "semiduro")[[2]][2]
-#'
-#' barplot(c(Dentado = d, Semidentado = sd, Semiduro = s),
-#' col = "darkturquoise",
-#' xlab = "Tipo de Grão",
-#' ylab = "Frequência")
-#'
-#' r <- count(AndradeTb2.1$resist == "r")[[2]][2]
-#'
-#' mr <- count(AndradeTb2.1$resist == "mr")[[2]][2]
-#'
-#' ms <- count(AndradeTb2.1$resist == "ms")[[2]][2]
-#'
-#' s <- count(AndradeTb2.1$resist == "s")[[2]][2]
-#'
-#' barplot(c(R = r, mr = mr, MS = ms, S = s),
-#' col = "darkturquoise",
-#' xlab = "Resistência à Ferrugem",
-#' ylab = "Frequência")
+#' xyplot(rm ~ hibr,
+#' groups = grao,
+#' type = "b",
+#' data = AndradeTb2.1,
+#' auto.key = list(title = "Tipo de Grão",
+#' cex.title = 1.1,
+#' columns = 3),
+#' ylab = "Rendimendo Médio (em kg/ha)",
+#' xlab = "Híbrido de Milho")
+#'
+#' xyplot(rm ~ hibr,
+#' groups = resist,
+#' type = "b",
+#' data = AndradeTb2.1,
+#' auto.key = list(title = "Resistência à Ferrugem",
+#' cex.title = 1.1,
+#' columns = 4),
+#' ylab = "Rendimendo Médio (em kg/ha)",
+#' xlab = "Híbrido de Milho")
+#'
+#' xyplot(ciclo ~ hibr,
+#' groups = grao,
+#' type = "b",
+#' data = AndradeTb2.1,
+#' auto.key = list(title = "Tipo de Grão",
+#' cex.title = 1.1,
+#' columns = 3),
+#' ylab = "Ciclo (em dias)",
+#' xlab = "Híbrido de Milho")
+#'
+#' xyplot(ciclo ~ hibr,
+#' groups = resist,
+#' type = "b",
+#' data = AndradeTb2.1,
+#' auto.key = list(title = "Resistência à Ferrugem",
+#' cex.title = 1.1,
+#' columns = 4),
+#' ylab = "Ciclo (em dias)",
+#' xlab = "Híbrido de Milho")
+#'
+#' xyplot(ap + ae ~ hibr,
+#' groups = grao,
+#' type = "b",
+#' strip = strip.custom(factor.levels = c("Altura da Planta",
+#' "Altura da Espiga")),
+#' data = AndradeTb2.1,
+#' auto.key = list(title = "Tipo de Grão",
+#' cex.title = 1.1,
+#' columns = 3),
+#' ylab = "Altura (em cm)",
+#' xlab = "Híbrido de Milho")
+#'
+#' xyplot(ap + ae ~ hibr,
+#' groups = resist,
+#' type = "b",
+#' strip = strip.custom(factor.levels = c("Altura da Planta",
+#' "Altura da Espiga")),
+#' data = AndradeTb2.1,
+#' auto.key = list(title = "Resistência à Ferrugem",
+#' cex.title = 1.1,
+#' columns = 4),
+#' ylab = "Altura (em cm)",
+#' xlab = "Híbrido de Milho")
#'
NULL
\ No newline at end of file
diff --git a/man/AndradeTb2.1.Rd b/man/AndradeTb2.1.Rd
index ee57fc3006b8107bd5e61be0819dd0e47363a9b0..3f8d3728c9abb4a7014f4aebd4e28b458e2c91d1 100644
--- a/man/AndradeTb2.1.Rd
+++ b/man/AndradeTb2.1.Rd
@@ -46,54 +46,69 @@ library(plyr)
data(AndradeTb2.1)
str(AndradeTb2.1)
-graf1 <- xyplot(rm ~ hibr,
- data = AndradeTb2.1,
- type = c("p", "r"),
- xlab = "Híbrido de Milho",
- ylab = "Rendimento Médio (em kg/ha)")
-
-graf2 <- xyplot(ciclo ~ hibr,
- data = AndradeTb2.1,
- type = c("p", "r"),
- xlab = "Híbrido de Milho",
- ylab = "Ciclo (em dias)")
-
-graf3 <- xyplot(ap + ae ~ hibr,
- data = AndradeTb2.1,
- type = c("p", "r"),
- xlab = "Híbrido de Milho",
- ylab = "Alturas (em cm)",
- auto.key = list(columns = 2))
-
-print(graf1, c(0, 0.66, 1, 1), more = TRUE)
-
-print(graf2, c(0, 0.33, 1, 0.66), more = TRUE)
-
-print(graf3, c(0, 0, 1, 0.33))
-
-d <- count(AndradeTb2.1$grao == "dentado")[[2]][2]
-
-sd <- count(AndradeTb2.1$grao == "semidentado")[[2]][2]
-
-s <- count(AndradeTb2.1$grao == "semiduro")[[2]][2]
-
-barplot(c(Dentado = d, Semidentado = sd, Semiduro = s),
- col = "darkturquoise",
- xlab = "Tipo de Grão",
- ylab = "Frequência")
-
-r <- count(AndradeTb2.1$resist == "r")[[2]][2]
-
-mr <- count(AndradeTb2.1$resist == "mr")[[2]][2]
-
-ms <- count(AndradeTb2.1$resist == "ms")[[2]][2]
-
-s <- count(AndradeTb2.1$resist == "s")[[2]][2]
-
-barplot(c(R = r, mr = mr, MS = ms, S = s),
- col = "darkturquoise",
- xlab = "Resistência à Ferrugem",
- ylab = "Frequência")
+xyplot(rm ~ hibr,
+ groups = grao,
+ type = "b",
+ data = AndradeTb2.1,
+ auto.key = list(title = "Tipo de Grão",
+ cex.title = 1.1,
+ columns = 3),
+ ylab = "Rendimendo Médio (em kg/ha)",
+ xlab = "Híbrido de Milho")
+
+xyplot(rm ~ hibr,
+ groups = resist,
+ type = "b",
+ data = AndradeTb2.1,
+ auto.key = list(title = "Resistência à Ferrugem",
+ cex.title = 1.1,
+ columns = 4),
+ ylab = "Rendimendo Médio (em kg/ha)",
+ xlab = "Híbrido de Milho")
+
+xyplot(ciclo ~ hibr,
+ groups = grao,
+ type = "b",
+ data = AndradeTb2.1,
+ auto.key = list(title = "Tipo de Grão",
+ cex.title = 1.1,
+ columns = 3),
+ ylab = "Ciclo (em dias)",
+ xlab = "Híbrido de Milho")
+
+xyplot(ciclo ~ hibr,
+ groups = resist,
+ type = "b",
+ data = AndradeTb2.1,
+ auto.key = list(title = "Resistência à Ferrugem",
+ cex.title = 1.1,
+ columns = 4),
+ ylab = "Ciclo (em dias)",
+ xlab = "Híbrido de Milho")
+
+xyplot(ap + ae ~ hibr,
+ groups = grao,
+ type = "b",
+ strip = strip.custom(factor.levels = c("Altura da Planta",
+ "Altura da Espiga")),
+ data = AndradeTb2.1,
+ auto.key = list(title = "Tipo de Grão",
+ cex.title = 1.1,
+ columns = 3),
+ ylab = "Altura (em cm)",
+ xlab = "Híbrido de Milho")
+
+xyplot(ap + ae ~ hibr,
+ groups = resist,
+ type = "b",
+ strip = strip.custom(factor.levels = c("Altura da Planta",
+ "Altura da Espiga")),
+ data = AndradeTb2.1,
+ auto.key = list(title = "Resistência à Ferrugem",
+ cex.title = 1.1,
+ columns = 4),
+ ylab = "Altura (em cm)",
+ xlab = "Híbrido de Milho")
}
\keyword{AAS}