diff --git a/.RData b/.RData
deleted file mode 100644
index 082ca5154adb9ea1ecb0c4a8afb031db33e9d93e..0000000000000000000000000000000000000000
Binary files a/.RData and /dev/null differ
diff --git a/R/PimentelPg382.R b/R/PimentelPg382.R
index fa601bed6643f499d6b10597149aff2f39ccef44..8d33f28f5ac77d8904e2842d11c22ff50e583b28 100644
--- a/R/PimentelPg382.R
+++ b/R/PimentelPg382.R
@@ -1,21 +1,21 @@
#' @name PimentelPg382
-#' @title Experimento de Métodos de Enxertia
+#' @title Métodos de Enxertia no Pegamento de Mudas
#' @description Experimento com 3 métodos de enxertia em que haviam 200
-#' enxertos para cada método e pegaram 180, 150 e 145 desses
-#' enxertos, respectivamente. O resultado, traduzido por
-#' frequências, pode ser expresso em porcentagens, que devem ser
-#' comparadas.
-#' @format Um \code{data.frame} com 6 observações e 3 variáveis, em que
+#' estacas para cada método e pegaram 180, 150 e 145 desses
+#' enxertos, respectivamente.
+#' @format Um \code{data.frame} com 3 observações e 3 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{metod}}{Fator de 3 níveis qualitativos, que são os
-#' métodos de enxertia.}
+#' \item{\code{metod}}{Fator de 3 níveis qualitativos que são os métodos
+#' de enxertia das estacas.}
#'
-#' \item{\code{enxerto}}{Fator de 2 níveis qualitativos, que indica os
-#' Enxertos Pegados e os Enxertos Mortos.}
+#' \item{\code{morta}}{Quantidade de estacas mortas, ou seja, que não
+#' pegaram com a enxertia, de um total de 200 estacas.}
#'
-#' \item{\code{freq}}{Totais de frequências.}
+#' \item{\code{viva}}{Quantidade de estacas vivas, ou seja, que pegaram
+#' com a enxertia, de um total de 200 estacas. A soma das vivas com
+#' as mortas é 200, portanto.}
#'
#' }
#' @keywords DIC
@@ -27,15 +27,10 @@
#'
#' data(PimentelPg382)
#' str(PimentelPg382)
-#'
-#' xyplot(freq ~ metod,
-#' groups = enxerto,
-#' type = "o",
-#' auto.key = list(title = "Enxerto",
-#' cext.tile = 1,
-#' columns = 2),
-#' data = PimentelPg382,
-#' ylab = "Frequência",
-#' xlab = "Método de Enxertia")
-#'
-NULL
\ No newline at end of file
+#'
+#' barchart(morta + viva ~ metod, data = PimentelPg382,
+#' stack = TRUE, auto.key = TRUE,
+#' xlab = "Método de enxertia",
+#' ylab = "Quantidade de estacas")
+#'
+NULL
diff --git a/R/PimentelTb18.2.1.R b/R/PimentelTb18.2.1.R
index 413104b16d1a46861747942a8fe5736a3db0f638..f5dda230f4a9b87780e710b7c5d8ce279a779c47 100644
--- a/R/PimentelTb18.2.1.R
+++ b/R/PimentelTb18.2.1.R
@@ -1,29 +1,45 @@
#' @name PimentelTb18.2.1
-#' @title Ensaio de Adubação de Milho
-#' @description Ensaio de adubação de milho, fatorial de \eqn{3^{3}} com
-#' N, P e K, com confundimento de 2 graus de liberdade da interação
-#' tripla. A cada três blocos de 9 parcelas juntaram-se 5
-#' tratamentos adicionais.
-#' @format Um \code{data.frame} com 42 observações e 3 variáveis, em que
+#' @title Ensaio Fatorial com Tratamentos Adicionais de Adubação de
+#' Milho
+#' @description Ensaio de adubação NPK de milho, fatorial de
+#' \eqn{3^{3}}, com confundimento de 2 graus de liberdade da
+#' interação tripla. A cada três blocos de 9 parcelas juntaram-se
+#' mais 5 com tratamentos adicionais combinando calcário e
+#' micronutrientes.
+#' @format Um \code{data.frame} com 42 observações e 8 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{bloc}}{Fator de 3 níveis qualitativos, usado para
-#' controle local.}
+#' controle local. Os blocos tem 14 parcelas, 9 da porção fatorial e
+#' 5 da porção adicional.}
#'
#' \item{\code{trat}}{Fator de 30 níveis qualitativos, que são os
#' tratamentos aplicados em cada parcela, sendo que cada algarismo
-#' possui um significado diferente conforme sua posição: A posição
-#' 1 indica os níveis de Nitrogênio; A posição 2 indica os níveis de
-#' Fósforo; A posição 3 indica os níveis de Potássio; A posição 4
-#' (após o hífen) indica uma possível adição de Calcário; E a
-#' posição 5 (após o hífen) indica uma possível adição de
-#' micronutrientes.}
+#' possui um significado diferente conforme sua posição: A posição 1
+#' indica os níveis de nitrogênio, a posição 2 indica os níveis de
+#' fósforo e a posição 3 indica os níveis de potássio. A letra C
+#' indica a adição de calcário e M a adição de micronutrientes.}
#'
-#' \item{\code{prod}}{Produção de milho, em \eqn{kg.ha^{-1}}.}
+#' \item{\code{N}}{Fator de níveis codificados que representa a dose de
+#' nitrogênio.}
+#'
+#' \item{\code{P}}{Fator de níveis codificados que representa a dose de
+#' fósforo.}
+#'
+#' \item{\code{K}}{Fator de níveis codificados que representa a dose de
+#' potássio.}
+#'
+#' \item{\code{calc}}{Fator de níveis codificados que indica a presença
+#' (1) ou ausência de calcário.}
+#'
+#' \item{\code{micro}}{Fator de níveis codificados que indica a presença
+#' (1) ou ausência de micronutrientes.}
+#'
+#' \item{\code{prod}}{Produção de milho, em kg ha\eqn{^{-1}}.}
#'
#' }
-#' @keywords FAT3
+#' @keywords FAT3 adicional
#' @source Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
#' (15th ed.). Piracicaba, SP: FEALQ. (Tabela 18.2.1, pág. 330)
#' @examples
@@ -32,15 +48,16 @@
#'
#' data(PimentelTb18.2.1)
#' str(PimentelTb18.2.1)
-#'
-#' xyplot(prod ~ trat,
-#' groups = bloc,
-#' auto.key = list(title = "Blocos",
-#' cex.title = 1,
-#' columns = 3),
-#' data = PimentelTb18.2.1,
-#' type = c("a", "p"),
-#' ylab = "Produção de Milho (em kg/ha)",
-#' xlab = "Tratamento")
-#'
-NULL
\ No newline at end of file
+#'
+#' xtabs(~trat + bloc, data = PimentelTb18.2.1)
+#'
+#' xyplot(prod ~ N | factor(P), groups = K, data = PimentelTb18.2.1,
+#' layout = c(NA, 1), type = c("p", "a"),
+#' xlab = "Nitrogênio (codificado)",
+#' ylab = expression("Produção de milho"~(ka~ha^{-1})),
+#' auto.key = list(title = "Potássio (codificado)",
+#' cex.title = 1.1, columns = 3),
+#' strip = strip.custom(strip.names = TRUE,
+#' var.name = "Fósforo"))
+#'
+NULL
diff --git a/R/PimentelTb20.2.1.R b/R/PimentelTb20.2.1.R
index 27e114758179628a1d1d8e086111421d5cc566db..6e9428adba8d7f2ad9e871645f356739ac3ec9cf 100644
--- a/R/PimentelTb20.2.1.R
+++ b/R/PimentelTb20.2.1.R
@@ -12,7 +12,8 @@
#' \item{\code{K}}{Variável que indica os níveis de Potássio (K) em cada
#' parcela.}
#'
-#' \item{\code{totais}}{Totais dos tratamentos em \eqn{t.ha^{-1}}.}
+#' \item{\code{totais}}{Produção total nos 6 blocos, em ton
+#' ha\eqn{^{-1}}. Valores individuais não disponíveis.}
#'
#' }
#' @keywords FAT2
@@ -24,15 +25,12 @@
#'
#' data(PimentelTb20.2.1)
#' str(PimentelTb20.2.1)
-#'
-#' xyplot(totais ~ P,
-#' groups = K,
-#' type = "o",
+#'
+#' xyplot(totais ~ P, data = PimentelTb20.2.1,
+#' groups = K, type = "o",
#' auto.key = list(title = "Níveis de Potássio (K)",
-#' cext.tile = 1,
-#' columns = 3),
-#' data = PimentelTb20.2.1,
-#' ylab = "Totais de Tratamentos (em t/ha)",
-#' xlab = "Níveis de Fósforo (P)")
+#' cex.title = 1.1, columns = 3),
+#' ylab = "Totais de tratamentos (ton/ha)",
+#' xlab = "Níveis de fósforo (P)")
#'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/PimentelTb21.5.1.R b/R/PimentelTb21.5.1.R
index 47eb706d16200f3bea65ba6a315badc85b8db909..58eac7df8f995cb1534cd005cbea1a7255797d1d 100644
--- a/R/PimentelTb21.5.1.R
+++ b/R/PimentelTb21.5.1.R
@@ -1,8 +1,9 @@
#' @name PimentelTb21.5.1
#' @title Porcentagem de Plantas Doentes
-#' @description Ensaio inteiramente casualizado relativo à porcentagem
-#' de plantas doentes em um experimento de tomateiros, em que foi
-#' aplicado o teste de Kruskal-Wallis.
+#' @description Ensaio inteiramente casualizado para avaliar a
+#' porcentagem de plantas doentes em um experimento de tomateiros
+#' onde foi estudado um fator de 3 níveis. Para análise dos
+#' resultados pode-se considerar o de Kruskal- Wallis.
#' @format Um \code{data.frame} com 12 observações e 2 variáveis, em que
#'
#' \describe{
@@ -23,11 +24,11 @@
#'
#' data(PimentelTb21.5.1)
#' str(PimentelTb21.5.1)
-#'
+#'
#' xyplot(doentes ~ trat,
#' data = PimentelTb21.5.1,
#' type = c("a", "p"),
-#' ylab = "Porcentagem de Plantas Doentes",
+#' ylab = "Porcentagem de plantas doentes",
#' xlab = "Tratamento")
#'
-NULL
\ No newline at end of file
+NULL
diff --git a/data-raw/PimentelPg382.txt b/data-raw/PimentelPg382.txt
index 6affdf36eecc109c6c0d97dbe7d312b588e80f0b..affe6c620e8308c5f2fe91871db94e8e340ba718 100644
--- a/data-raw/PimentelPg382.txt
+++ b/data-raw/PimentelPg382.txt
@@ -1,7 +1,4 @@
-metod enxerto freq
-A pegado 180
-B pegado 150
-C pegado 144
-A morto 20
-B morto 50
-C morto 56
+metod morta viva
+A 20 180
+B 50 150
+C 56 144
diff --git a/data-raw/PimentelTb18.2.1.txt b/data-raw/PimentelTb18.2.1.txt
index 82559ee504421d75981d1bd4efb6247ac82a1b98..edabb753249c6059a8a0be59863ae600af542a52 100644
--- a/data-raw/PimentelTb18.2.1.txt
+++ b/data-raw/PimentelTb18.2.1.txt
@@ -1,43 +1,43 @@
-bloc trat prod
-1 000-00 981
-1 012-00 1216
-1 021-00 1183
-1 101-00 1213
-1 110-00 1028
-1 122-00 1574
-1 202-00 1111
-1 211-00 1333
-1 220-00 1775
-2 001-00 1213
-2 010-00 1510
-2 022-00 901
-2 102-00 1404
-2 111-00 1602
-2 120-00 1214
-2 200-00 1221
-2 212-00 1694
-2 221-00 1593
-3 002-00 808
-3 011-00 942
-3 020-00 998
-3 100-00 1327
-3 112-00 1019
-3 121-00 1401
-3 201-00 1120
-3 210-00 1444
-3 222-00 1343
-1 000-00 1290
-1 111-00 1314
-1 111-10 1296
-1 111-01 1237
-1 111-11 1324
-2 000-00 1039
-2 111-00 680
-2 111-10 1324
-2 111-01 1333
-2 111-11 1079
-3 000-00 947
-3 111-00 1178
-3 111-10 947
-3 111-01 1241
-3 111-11 949
+bloc trat N P K calc micro prod
+1 000 0 0 0 0 0 981
+1 012 0 1 2 0 0 1216
+1 021 0 2 1 0 0 1183
+1 101 1 0 1 0 0 1213
+1 110 1 1 0 0 0 1028
+1 122 1 2 2 0 0 1574
+1 202 2 0 2 0 0 1111
+1 211 2 1 1 0 0 1333
+1 220 2 2 0 0 0 1775
+2 001 0 0 1 0 0 1213
+2 010 0 1 0 0 0 1510
+2 022 0 2 2 0 0 901
+2 102 1 0 2 0 0 1404
+2 111 1 1 1 0 0 1602
+2 120 1 2 0 0 0 1214
+2 200 2 0 0 0 0 1221
+2 212 2 1 2 0 0 1694
+2 221 2 2 1 0 0 1593
+3 002 0 0 2 0 0 808
+3 011 0 1 1 0 0 942
+3 020 0 2 0 0 0 998
+3 100 1 0 0 0 0 1327
+3 112 1 1 2 0 0 1019
+3 121 1 2 1 0 0 1401
+3 201 2 0 1 0 0 1120
+3 210 2 1 0 0 0 1444
+3 222 2 2 2 0 0 1343
+1 000 0 0 0 0 0 1290
+1 111 1 1 1 0 0 1314
+1 111+C 1 1 1 1 0 1296
+1 111+M 1 1 1 0 1 1237
+1 111+C+M 1 1 1 1 1 1324
+2 000 0 0 0 0 0 1039
+2 111 1 1 1 0 0 680
+2 111+C 1 1 1 1 0 1324
+2 111+M 1 1 1 0 1 1333
+2 111+C+M 1 1 1 1 1 1079
+3 000 0 0 0 0 0 947
+3 111 1 1 1 0 0 1178
+3 111+C 1 1 1 1 0 947
+3 111+M 1 1 1 0 1 1241
+3 111+C+M 1 1 1 1 1 949
diff --git a/data/PimentelPg382.rda b/data/PimentelPg382.rda
index 2028472ff2e4387bbf00f0924da26e6059a02705..353f8c60efa1dbf121a63f42a1db54fa6cca8451 100644
Binary files a/data/PimentelPg382.rda and b/data/PimentelPg382.rda differ
diff --git a/data/PimentelTb18.2.1.rda b/data/PimentelTb18.2.1.rda
index d83da07d9dfb51b734500a7f5ab7c471237bf504..7936b4cad3ed6d585b83352d48df893fc9b7826e 100644
Binary files a/data/PimentelTb18.2.1.rda and b/data/PimentelTb18.2.1.rda differ
diff --git a/man/PimentelPg382.Rd b/man/PimentelPg382.Rd
index af79d981a9b969dc3eb7131984ae52dc218909be..bc188bf6f3b1ad01098fe950195bd83cf88c872c 100644
--- a/man/PimentelPg382.Rd
+++ b/man/PimentelPg382.Rd
@@ -2,18 +2,20 @@
% Please edit documentation in R/PimentelPg382.R
\name{PimentelPg382}
\alias{PimentelPg382}
-\title{Experimento de Métodos de Enxertia}
-\format{Um \code{data.frame} com 6 observações e 3 variáveis, em que
+\title{Métodos de Enxertia no Pegamento de Mudas}
+\format{Um \code{data.frame} com 3 observações e 3 variáveis, em que
\describe{
-\item{\code{metod}}{Fator de 3 níveis qualitativos, que são os
- métodos de enxertia.}
+\item{\code{metod}}{Fator de 3 níveis qualitativos que são os métodos
+ de enxertia das estacas.}
-\item{\code{enxerto}}{Fator de 2 níveis qualitativos, que indica os
- Enxertos Pegados e os Enxertos Mortos.}
+\item{\code{morta}}{Quantidade de estacas mortas, ou seja, que não
+ pegaram com a enxertia, de um total de 200 estacas.}
-\item{\code{freq}}{Totais de frequências.}
+\item{\code{viva}}{Quantidade de estacas vivas, ou seja, que pegaram
+ com a enxertia, de um total de 200 estacas. A soma das vivas com
+ as mortas é 200, portanto.}
}}
\source{
@@ -22,10 +24,8 @@ Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
}
\description{
Experimento com 3 métodos de enxertia em que haviam 200
- enxertos para cada método e pegaram 180, 150 e 145 desses
- enxertos, respectivamente. O resultado, traduzido por
- frequências, pode ser expresso em porcentagens, que devem ser
- comparadas.
+ estacas para cada método e pegaram 180, 150 e 145 desses
+ enxertos, respectivamente.
}
\examples{
@@ -34,15 +34,10 @@ library(lattice)
data(PimentelPg382)
str(PimentelPg382)
-xyplot(freq ~ metod,
- groups = enxerto,
- type = "o",
- auto.key = list(title = "Enxerto",
- cext.tile = 1,
- columns = 2),
- data = PimentelPg382,
- ylab = "Frequência",
- xlab = "Método de Enxertia")
+barchart(morta + viva ~ metod, data = PimentelPg382,
+ stack = TRUE, auto.key = TRUE,
+ xlab = "Método de enxertia",
+ ylab = "Quantidade de estacas")
}
\keyword{DIC}
diff --git a/man/PimentelTb18.2.1.Rd b/man/PimentelTb18.2.1.Rd
index d2d129bdc3aa4cbfc7d4009579efc2c2eb3d7d09..abce79d9794cec20698dd47a23f31d4b995cb5f2 100644
--- a/man/PimentelTb18.2.1.Rd
+++ b/man/PimentelTb18.2.1.Rd
@@ -2,24 +2,39 @@
% Please edit documentation in R/PimentelTb18.2.1.R
\name{PimentelTb18.2.1}
\alias{PimentelTb18.2.1}
-\title{Ensaio de Adubação de Milho}
-\format{Um \code{data.frame} com 42 observações e 3 variáveis, em que
+\title{Ensaio Fatorial com Tratamentos Adicionais de Adubação de
+ Milho}
+\format{Um \code{data.frame} com 42 observações e 8 variáveis, em que
\describe{
\item{\code{bloc}}{Fator de 3 níveis qualitativos, usado para
- controle local.}
+ controle local. Os blocos tem 14 parcelas, 9 da porção fatorial e
+ 5 da porção adicional.}
\item{\code{trat}}{Fator de 30 níveis qualitativos, que são os
tratamentos aplicados em cada parcela, sendo que cada algarismo
- possui um significado diferente conforme sua posição: A posição
- 1 indica os níveis de Nitrogênio; A posição 2 indica os níveis de
- Fósforo; A posição 3 indica os níveis de Potássio; A posição 4
- (após o hífen) indica uma possível adição de Calcário; E a
- posição 5 (após o hífen) indica uma possível adição de
- micronutrientes.}
+ possui um significado diferente conforme sua posição: A posição 1
+ indica os níveis de nitrogênio, a posição 2 indica os níveis de
+ fósforo e a posição 3 indica os níveis de potássio. A letra C
+ indica a adição de calcário e M a adição de micronutrientes.}
-\item{\code{prod}}{Produção de milho, em \eqn{kg.ha^{-1}}.}
+\item{\code{N}}{Fator de níveis codificados que representa a dose de
+ nitrogênio.}
+
+\item{\code{P}}{Fator de níveis codificados que representa a dose de
+ fósforo.}
+
+\item{\code{K}}{Fator de níveis codificados que representa a dose de
+ potássio.}
+
+\item{\code{calc}}{Fator de níveis codificados que indica a presença
+ (1) ou ausência de calcário.}
+
+\item{\code{micro}}{Fator de níveis codificados que indica a presença
+ (1) ou ausência de micronutrientes.}
+
+\item{\code{prod}}{Produção de milho, em kg ha\eqn{^{-1}}.}
}}
\source{
@@ -27,10 +42,11 @@ Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
(15th ed.). Piracicaba, SP: FEALQ. (Tabela 18.2.1, pág. 330)
}
\description{
-Ensaio de adubação de milho, fatorial de \eqn{3^{3}} com
- N, P e K, com confundimento de 2 graus de liberdade da interação
- tripla. A cada três blocos de 9 parcelas juntaram-se 5
- tratamentos adicionais.
+Ensaio de adubação NPK de milho, fatorial de
+ \eqn{3^{3}}, com confundimento de 2 graus de liberdade da
+ interação tripla. A cada três blocos de 9 parcelas juntaram-se
+ mais 5 com tratamentos adicionais combinando calcário e
+ micronutrientes.
}
\examples{
@@ -39,16 +55,18 @@ library(lattice)
data(PimentelTb18.2.1)
str(PimentelTb18.2.1)
-xyplot(prod ~ trat,
- groups = bloc,
- auto.key = list(title = "Blocos",
- cex.title = 1,
- columns = 3),
- data = PimentelTb18.2.1,
- type = c("a", "p"),
- ylab = "Produção de Milho (em kg/ha)",
- xlab = "Tratamento")
+xtabs(~trat + bloc, data = PimentelTb18.2.1)
+
+xyplot(prod ~ N | factor(P), groups = K, data = PimentelTb18.2.1,
+ layout = c(NA, 1), type = c("p", "a"),
+ xlab = "Nitrogênio (codificado)",
+ ylab = expression("Produção de milho"~(ka~ha^{-1})),
+ auto.key = list(title = "Potássio (codificado)",
+ cex.title = 1.1, columns = 3),
+ strip = strip.custom(strip.names = TRUE,
+ var.name = "Fósforo"))
}
\keyword{FAT3}
+\keyword{adicional}
diff --git a/man/PimentelTb20.2.1.Rd b/man/PimentelTb20.2.1.Rd
index 0e68da5fa944d9a51059c3f8be945cf1b7e8f845..89ca4882d70730d8838ad4ebd85410c1223a9cf2 100644
--- a/man/PimentelTb20.2.1.Rd
+++ b/man/PimentelTb20.2.1.Rd
@@ -13,7 +13,8 @@
\item{\code{K}}{Variável que indica os níveis de Potássio (K) em cada
parcela.}
-\item{\code{totais}}{Totais dos tratamentos em \eqn{t.ha^{-1}}.}
+\item{\code{totais}}{Produção total nos 6 blocos, em ton
+ ha\eqn{^{-1}}. Valores individuais não disponíveis.}
}}
\source{
@@ -31,15 +32,12 @@ library(lattice)
data(PimentelTb20.2.1)
str(PimentelTb20.2.1)
-xyplot(totais ~ P,
- groups = K,
- type = "o",
+xyplot(totais ~ P, data = PimentelTb20.2.1,
+ groups = K, type = "o",
auto.key = list(title = "Níveis de Potássio (K)",
- cext.tile = 1,
- columns = 3),
- data = PimentelTb20.2.1,
- ylab = "Totais de Tratamentos (em t/ha)",
- xlab = "Níveis de Fósforo (P)")
+ cex.title = 1.1, columns = 3),
+ ylab = "Totais de tratamentos (ton/ha)",
+ xlab = "Níveis de fósforo (P)")
}
\keyword{FAT2}
diff --git a/man/PimentelTb21.5.1.Rd b/man/PimentelTb21.5.1.Rd
index c20924e3349b777b8564fe3c2e821eab0656bec8..9c6c2b07b2d963c9c76d8e3f6ad76015aa5d4d8d 100644
--- a/man/PimentelTb21.5.1.Rd
+++ b/man/PimentelTb21.5.1.Rd
@@ -19,9 +19,10 @@ Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
(15th ed.). Piracicaba, SP: FEALQ. (Tabela 21.5.1, pág. 384)
}
\description{
-Ensaio inteiramente casualizado relativo à porcentagem
- de plantas doentes em um experimento de tomateiros, em que foi
- aplicado o teste de Kruskal-Wallis.
+Ensaio inteiramente casualizado para avaliar a
+ porcentagem de plantas doentes em um experimento de tomateiros
+ onde foi estudado um fator de 3 níveis. Para análise dos
+ resultados pode-se considerar o de Kruskal- Wallis.
}
\examples{
@@ -33,7 +34,7 @@ str(PimentelTb21.5.1)
xyplot(doentes ~ trat,
data = PimentelTb21.5.1,
type = c("a", "p"),
- ylab = "Porcentagem de Plantas Doentes",
+ ylab = "Porcentagem de plantas doentes",
xlab = "Tratamento")
}