diff --git a/R/AndradeTb2.6.R b/R/AndradeTb2.6.R
index 4ea948c6a3e8612181ede446dfb26efdfaa98184..e4c11d3fec15850ce39426f0f24e4dd610f8f38e 100644
--- a/R/AndradeTb2.6.R
+++ b/R/AndradeTb2.6.R
@@ -8,7 +8,7 @@
#' \describe{
#'
#' \item{\code{H}}{Fator de 2 níveis qualitativos que são os hábitos de
-#' crescimento, sendo \code}{3}: "indeterminado trepador"; e
+#' crescimento, sendo \code{3}: "indeterminado trepador"; e
#' \code{4}: "indeterminado prostrado".}
#'
#' \item{\code{P}}{Fator de 3 níveis qualitativos que são os portes,
diff --git a/man/AndradeEg2.1.Rd b/man/AndradeEg2.1.Rd
index 921149596dfb1efde9bf2a423d2c0d3199e9b349..79a85379452c5366b717c104e3c64b39a3f7567d 100644
--- a/man/AndradeEg2.1.Rd
+++ b/man/AndradeEg2.1.Rd
@@ -2,7 +2,7 @@
% Please edit documentation in R/AndradeEg2.1.R
\name{AndradeEg2.1}
\alias{AndradeEg2.1}
-\title{Estudo do Crescimento de Pastagem Relacionado a Temperatura}
+\title{Relação entre Crescimento de Pastagem e Temperatura}
\format{Um \code{data.frame} com 9 observações e 2 variáveis, em que
\describe{
@@ -10,34 +10,33 @@
\item{\code{temp}}{Temperatura do solo a 10 cm de profundidade, em
ºC.}
-\item{\code{tc}}{Taxa de crescimento da pastagem, em kg/hadia.}
+\item{\code{tc}}{Taxa de crescimento da pastagem, em kg ha\eqn{^-1}
+ por dia.}
}}
\source{
-Estatística para as ciências agrárias e biológicas: com
- noções de experimentação / Dalton F. Andrade, Paulo J. Ogliari.
- 2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Exemplo
- 2.1, pág. 60)
+Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+ ciências agrárias e biológicas com noções de experimentação (2nd
+ ed.). Florianópolis, SC. Editora da UFSC. (Exemplo 2.1, pág. 60)
}
\description{
-Estudo do tipo de relacionamento entre a taxa de
+Estudo sobre o relacionamento entre a taxa de
crescimento de uma pastagem cultivada no Planalto catarinense e a
temperatura do solo a 10 cm de profundidade, no período de junho
a novembro.
}
\examples{
-library(lattice)
-
data(AndradeEg2.1)
str(AndradeEg2.1)
+library(lattice)
xyplot(tc ~ temp,
data = AndradeEg2.1,
type = c("p", "r"),
xlab = "Temperatura do solo (ºC)",
- ylab = "Taxa de crescimento (kg/hadia)")
+ ylab = expression(Taxa~de~crescimento~(kg~ha^{-1}~dia)))
}
-\keyword{AAS}
+\keyword{RS}
diff --git a/man/AndradeTb1.1.Rd b/man/AndradeTb1.1.Rd
index c7ab54d7e41f2c8d6e8e8bb703ad908391516341..a732ecd05fdb30d583b687ce83bff998ca4ac7c7 100644
--- a/man/AndradeTb1.1.Rd
+++ b/man/AndradeTb1.1.Rd
@@ -2,22 +2,23 @@
% Please edit documentation in R/AndradeTb1.1.R
\name{AndradeTb1.1}
\alias{AndradeTb1.1}
-\title{Estudo da Duração do Quinto Estádio Ninfal de Triatoma Klugi}
+\title{Estudo da Duração do Quinto Estádio Ninfal de \emph{Triatoma
+ Klugi}}
\format{Um \code{vetor} numérico com 35 observações.}
\source{
-Estatística para as ciências agrárias e biológicas: com
- noções de experimentação / Dalton F. Andrade, Paulo J. Ogliari.
- 2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Tabela
- 1.1, pág. 37)
+Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+ ciências agrárias e biológicas com noções de experimentação (2nd
+ ed.). Florianópolis, SC. Editora da UFSC. (Tabela 1.1, pág. 37)
}
\description{
Foi feito um experimento, na Universidade Federal de
Santa Catarina, para estudar a duração, em dias, do quinto
- estádio ninfal de Triatoma klugi com alimentação em galo.
+ estádio ninfal de \emph{Triatoma klugi} com alimentação em galo.
}
\examples{
data(AndradeTb1.1)
+str(AndradeTb1.1)
hist(AndradeTb1.1,
prob = TRUE,
@@ -29,16 +30,13 @@ hist(AndradeTb1.1,
ylim = c(0, 0.062))
lines(density(AndradeTb1.1), lwd = 2)
-
rug(AndradeTb1.1)
boxplot(AndradeTb1.1,
ylab = "Duração do Quinto Estádio Ninfal (em dias)")
mean(AndradeTb1.1)
-
sd(AndradeTb1.1)
-
fivenum(AndradeTb1.1)
}
diff --git a/man/AndradeTb1.2.Rd b/man/AndradeTb1.2.Rd
index 3b85fb8d54a9e6241e7b68a10d5eebedd2a4167b..11a1f76cf695b4630018899131ec71d97e25ad0c 100644
--- a/man/AndradeTb1.2.Rd
+++ b/man/AndradeTb1.2.Rd
@@ -2,50 +2,44 @@
% Please edit documentation in R/AndradeTb1.2.R
\name{AndradeTb1.2}
\alias{AndradeTb1.2}
-\title{Experimento de Produção de Milho em função do Nitrogênio}
+\title{Experimento de Produção de Milho em Função do Nitrogênio}
\format{Um \code{data.frame} com 25 observações e 3 variáveis, em que
\describe{
-\item{\code{trat}}{Fator de 5 níveis qualitativos que são as dosagens
- de Nitrogênio, em \eqn{kg.ha^{-1}}.}
+\item{\code{trat}}{Fator de 5 níveis que são as dosagens de
+ Nitrogênio, em \eqn{kg\ ha^{-1}}.}
\item{\code{rept}}{Fator de 5 níveis qualitativos que são as
repetições do experimento.}
-\item{\code{prod}}{Produção de milho, em \eqn{kg.ha^{-1}}.}
+\item{\code{prod}}{Produção de milho, em \eqn{kg\ ha^{-1}}.}
}}
\source{
-Estatística para as ciências agrárias e biológicas: com
- noções de experimentação / Dalton F. Andrade, Paulo J. Ogliari.
- 2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Tabela
- 1.2, pág. 40)
+Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+ ciências agrárias e biológicas com noções de experimentação (2nd
+ ed.). Florianópolis, SC. Editora da UFSC. (Tabela 1.2, pág. 40)
}
\description{
Experimento que tem como objetivo verificar o
comportamento da produção de milho sob o efeito de diferentes
doses de nitrogênio. Para cada dose de nitrogênio foram plantados
- cinco canteiros de terra de \eqn{10m^{2}} cada. Portanto o
- tamanho da amostra para cada dose de nitrogênio é cinco.
+ cinco canteiros de terra de \eqn{10m^{2}} cada. Portanto, são
+ cinco observações para cada dose de nitrogênio.
}
\examples{
-library(lattice)
-
data(AndradeTb1.2)
str(AndradeTb1.2)
+library(lattice)
xyplot(prod ~ trat,
- groups = rept,
data = AndradeTb1.2,
type = c("p", "a"),
- auto.key = list(title = "Repetições",
- cex.title = 1.1,
- columns = 5),
- xlab = "Dosagem de Nitrogênio (em kg/ha)",
- ylab = "Produção de Milho (em kg/ha)")
+ xlab = expression(Dosagem~de~Nitrogênio~(em~kg~ha^{-1})),
+ ylab = expression(Produção~de~Milho~(em~kg~ha^{-1})))
}
-\keyword{DBC}
+\keyword{DIC}
diff --git a/man/AndradeTb2.1.Rd b/man/AndradeTb2.1.Rd
index 3f8d3728c9abb4a7014f4aebd4e28b458e2c91d1..bc94f5567244feeffb2398bb0cb9010701e85b12 100644
--- a/man/AndradeTb2.1.Rd
+++ b/man/AndradeTb2.1.Rd
@@ -2,7 +2,7 @@
% Please edit documentation in R/AndradeTb2.1.R
\name{AndradeTb2.1}
\alias{AndradeTb2.1}
-\title{Experimento de Competição de Híbridos de Milho}
+\title{Competição de Híbridos de Milho}
\format{Um \code{data.frame} com 32 observações e 7 variáveis, em que
\describe{
@@ -11,7 +11,7 @@
híbridos de milho.}
\item{\code{rm}}{Rendimento médio do híbrido de milho, em
- \eqn{kg.ha^{-1}}.}
+ \eqn{kg\ ha^{-1}}.}
\item{\code{ciclo}}{Ciclo de vida do híbrido de milho, em dias.}
@@ -23,93 +23,99 @@
de grão.}
\item{\code{resist}}{Fator de 4 níveis qualitativos que indica a
- resistência à ferrugem, sendo: r = resistente; mr = moderadamente
- resistente; ms = moderadamente susceptível; s = susceptível.}
+ resistência à ferrugem, sendo \code{r}: resistente; \code{mr}:
+ moderadamente resistente; \code{ms}: moderadamente susceptível; e
+ \code{s}: susceptível.}
}}
\source{
-Estatística para as ciências agrárias e biológicas: com
- noções de experimentação / Dalton F. Andrade, Paulo J. Ogliari.
- 2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Tabela
- 2.1, pág. 62)
+Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+ ciências agrárias e biológicas com noções de experimentação (2nd
+ ed.). Florianópolis, SC. Editora da UFSC. (Tabela 2.1, pág. 62)
}
\description{
-Um pesquisador instalou um experimento, na região de
- Chapecó, SC, para avaliação do comportamento de híbridos de
- milho.
+Um pesquisador avaliou, na região de Chapecó, SC, o
+ comportamento de híbridos de milho mensurados pelo rendimento
+ médio de milho, ciclo de vida, altura da planta e altura da
+ espiga.
}
\examples{
library(lattice)
-library(plyr)
data(AndradeTb2.1)
str(AndradeTb2.1)
-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")
+levels_resist <- c("Resistente", "Moderadamente Resistente",
+ "Moderadamente Susceptível", "Susceptível")
-xyplot(rm ~ hibr,
+# Comportamento do rendimento médio
+xyplot(rm ~ hibr | grao,
groups = resist,
type = "b",
+ layout = c(NA, 1),
data = AndradeTb2.1,
- auto.key = list(title = "Resistência à Ferrugem",
+ auto.key = list(title = "Resistência à ferrugem",
cex.title = 1.1,
- columns = 4),
+ columns = 2,
+ text = levels_resist),
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,
+# Compartamento do ciclo de vida
+xyplot(ciclo ~ hibr | grao,
groups = resist,
type = "b",
+ layout = c(NA, 1),
data = AndradeTb2.1,
- auto.key = list(title = "Resistência à Ferrugem",
+ auto.key = list(title = "Resistência à ferrugem",
cex.title = 1.1,
- columns = 4),
+ columns = 2,
+ text = levels_resist),
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")
+# Comportamento das alturas
+library(latticeExtra)
+useOuterStrips(
+ xyplot(ap + ae ~ hibr | grao,
+ groups = resist,
+ type = "b",
+ data = AndradeTb2.1,
+ auto.key = list(title = "Resistência à ferrugem",
+ cex.title = 1.1,
+ columns = 2,
+ text = levels_resist),
+ ylab = "Altura (em cm)",
+ xlab = "Híbrido de Milho"),
+ strip.left = strip.custom(factor.levels = c("Planta", "Espiga"))
+ )
+
+# Comportamento geral
+vars <- c("Rendimento", "Ciclo de vida", "Altura planta", "Altura espiga")
+useOuterStrips(
+ xyplot(rm + ciclo + ap + ae ~ hibr | grao,
+ groups = resist,
+ data = AndradeTb2.1,
+ type = "b",
+ as.table = TRUE,
+ xlab = "Híbrido de Milho",
+ ylab = "",
+ scales = list(y = "free", x = list(rot = 90)),
+ auto.key = list(
+ title = "Resistência à Ferrugem",
+ cex.title = 1.1,
+ columns = 2,
+ text = levels_resist)
+ ),
+ strip.left = strip.custom(factor.levels = vars)
+)
+
+# Relação entre as variáveis de interesse
+splom(~AndradeTb2.1[, c("rm", "ciclo", "ap", "ae")],
+ type = c("p", "smooth"),
+ data = AndradeTb2.1)
}
-\keyword{AAS}
+\keyword{AASM}
diff --git a/man/AndradeTb2.11.Rd b/man/AndradeTb2.11.Rd
index e51d7f375154496ac729dbf7c2443376a25b957c..308fee006b6188c6eff837f898c42d300f404181 100644
--- a/man/AndradeTb2.11.Rd
+++ b/man/AndradeTb2.11.Rd
@@ -2,26 +2,25 @@
% Please edit documentation in R/AndradeTb2.11.R
\name{AndradeTb2.11}
\alias{AndradeTb2.11}
-\title{Experimento de Contagem de Plantas}
+\title{Relação entre Ciclo e Virescência em Plantas}
\format{Um \code{data.frame} com 4 observações e 3 variáveis, em que
\describe{
\item{\code{ciclo}}{Fator de 2 níveis qualitativos que indica o
- caractere ciclo (Tardio e Precoce).}
+ caractere ciclo (tardio e precoce).}
\item{\code{vir}}{Fator de 3 níveis qualitativos que indica o
- caractere virescência (Normal e Virescente).}
+ caractere virescência (normal e virescente).}
\item{\code{cont}}{Contagem de plantas segregando para dois
caracteres numa progênie da espécie "X".}
}}
\source{
-Estatística para as ciências agrárias e biológicas: com
- noções de experimentação / Dalton F. Andrade, Paulo J. Ogliari.
- 2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Tabela
- 2.11, pág. 80)
+Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+ ciências agrárias e biológicas com noções de experimentação (2nd
+ ed.). Florianópolis, SC. Editora da UFSC. (Tabela 2.11, pág. 80)
}
\description{
Experimento que tem por objetivo verificar se os
@@ -30,21 +29,22 @@ Experimento que tem por objetivo verificar se os
}
\examples{
-library(lattice)
-
data(AndradeTb2.11)
str(AndradeTb2.11)
-tb <- xtabs(cont~ciclo + vir, data= AndradeTb2.11)
+(tb <- xtabs(cont~ciclo + vir, data= AndradeTb2.11))
+
+mosaicplot(tb)
barplot(t(tb),
beside = TRUE,
legend.text = TRUE,
+ args.legend = list(x = "topleft"),
col = c("darkturquoise", "lawngreen"),
ylim = c(0, 3500),
xlab = "Ciclo",
ylab = "Contagem de Plantas")
}
-\keyword{AAS}
+\keyword{contingência}
diff --git a/man/AndradeTb2.12.Rd b/man/AndradeTb2.12.Rd
index c45904f8c38bf70d847e5ecdc444669cf46ed672..d8964f48cd7e6efdd7e98db587569e968bcffa50 100644
--- a/man/AndradeTb2.12.Rd
+++ b/man/AndradeTb2.12.Rd
@@ -2,48 +2,48 @@
% Please edit documentation in R/AndradeTb2.12.R
\name{AndradeTb2.12}
\alias{AndradeTb2.12}
-\title{Estudo de Alimentação de Pássaros}
+\title{Relação do Número de Pássaros com Local de Alimentação}
\format{Um \code{data.frame} com 6 observações e 3 variáveis, em que
\describe{
\item{\code{estacao}}{Fator de 2 níveis qualitativos que são as
- estações do ano (Primavera e Outono).}
+ estações do ano (primavera e outono).}
\item{\code{local}}{Fator de 3 níveis qualitativos que são os locais
- da Floresta (Árvores, Arbusto e Chão).}
+ da Floresta (árvores, arbusto e chão).}
\item{\code{passaros}}{Número de pássaros de uma particular espécie.}
}}
\source{
-Estatística para as ciências agrárias e biológicas: com
- noções de experimentação / Dalton F. Andrade, Paulo J. Ogliari.
- 2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Tabela
- 2.12, pág. 81)
+Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+ ciências agrárias e biológicas com noções de experimentação (2nd
+ ed.). Florianópolis, SC. Editora da UFSC. (Tabela 2.12, pág. 81)
}
\description{
-Estudo do número de pássadors de uma particular espécie,
- classificados de acordo com o local da floresta onde se
- alimentam, para duas estações do ano.
+Estudo sobre o número de pássaros de uma particular
+ espécie observados em diferentes locais de alimentação na
+ floresta. O estudo foi realizado em duas estações do ano.
}
\examples{
-library(lattice)
-
data(AndradeTb2.12)
str(AndradeTb2.12)
-xyplot(passaros ~ estacao,
- groups = local,
- data = AndradeTb2.12,
- type = "b",
- auto.key = list(title = "Local da Floresta",
- cex.title = 1.1,
- columns = 3),
- xlab = "Estação do Ano",
- ylab = "Número de Pássaros")
+(tb <- xtabs(passaros ~ estacao + local, data= AndradeTb2.12))
+
+mosaicplot(tb)
+
+library(lattice)
+barchart(tb,
+ stack = FALSE,
+ horizontal = FALSE,
+ auto.key = list(
+ title = "Local de alimentação",
+ cex.title = 1.1,
+ columns = 3))
}
-\keyword{AAS}
+\keyword{contingência}
diff --git a/man/AndradeTb2.15.Rd b/man/AndradeTb2.15.Rd
index c3a0daf6b4dbc1d766e981a823189dd2c04dc22f..5b1ac0b1ddac8bda4a6e8bc4b3f4b8612a9c11d2 100644
--- a/man/AndradeTb2.15.Rd
+++ b/man/AndradeTb2.15.Rd
@@ -14,10 +14,9 @@
}}
\source{
-Estatística para as ciências agrárias e biológicas: com
- noções de experimentação / Dalton F. Andrade, Paulo J. Ogliari.
- 2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Tabela
- 2.15, pág. 89)
+Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+ ciências agrárias e biológicas com noções de experimentação (2nd
+ ed.). Florianópolis, SC. Editora da UFSC. (Tabela 2.15, pág. 89)
}
\description{
Estudo da distribuição do número de plantas sadias de
@@ -25,23 +24,29 @@ Estudo da distribuição do número de plantas sadias de
}
\examples{
-library(lattice)
-
data(AndradeTb2.15)
str(AndradeTb2.15)
-bp <- barplot(AndradeTb2.15$freq * (100/sum(AndradeTb2.15$freq)),
- names.arg = AndradeTb2.15$plantas,
- col = "darkturquoise",
- beside = TRUE,
- ylim = c(0, 50),
- xlab = "Número de Plantas Colhidas Sadias",
- ylab = "Porcentagem do Número de Parcelas")
-
-text(bp, 0,
- round(AndradeTb2.15$freq * (100/sum(AndradeTb2.15$freq)), 1),
- cex= 1, pos = 3)
+# Gráfico de barras
+with(AndradeTb2.15, {
+ fr <- paste0("(", round(100 * freq / sum(freq)), "\% )")
+ bp <- barplot(freq,
+ names.arg = plantas,
+ col = "darkturquoise",
+ beside = TRUE,
+ ylim = extendrange(freq),
+ xlab = "Número de Plantas Colhidas Sadias",
+ ylab = "Porcentagem do Número de Parcelas")
+ text(bp, freq + 0.3, labels = paste(freq, fr))
+})
+
+# Gráfico de setores
+with(AndradeTb2.15, {
+ fr <- paste0("(", round(100 * freq / sum(freq)), "\%)")
+ pie(freq, labels = paste(plantas, "plantas\\nsadias", fr),
+ col = gray.colors(length(freq)))
+})
}
-\keyword{AAS}
+\keyword{contingência}
diff --git a/man/AndradeTb2.6.Rd b/man/AndradeTb2.6.Rd
index 4c192474ac3e5ba08520722895fdf78f7047ddda..7dab8cdcbb9b6b036318a757067f55691e362cd3 100644
--- a/man/AndradeTb2.6.Rd
+++ b/man/AndradeTb2.6.Rd
@@ -8,18 +8,18 @@
\describe{
\item{\code{H}}{Fator de 2 níveis qualitativos que são os hábitos de
- crescimento, sendo: 3 = "indeterminado trepador"; 4 =
- "indeterminado prostrado".}
+ crescimento, sendo \code{3}: "indeterminado trepador"; e
+ \code{4}: "indeterminado prostrado".}
\item{\code{P}}{Fator de 3 níveis qualitativos que são os portes,
- sendo: Tr = "trepador"; EB = "ereto na base"; Pr = "prostrado".}
+ sendo \code{Tr}: "trepador"; \code{EB}: "ereto na base"; e
+ \code{Pr}: "prostrado".}
}}
\source{
-Estatística para as ciências agrárias e biológicas: com
- noções de experimentação / Dalton F. Andrade, Paulo J. Ogliari.
- 2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Tabela
- 2.6, pág. 74)
+Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+ ciências agrárias e biológicas com noções de experimentação (2nd
+ ed.). Florianópolis, SC. Editora da UFSC. (Tabela 2.6, pág. 74)
}
\description{
Experimento no qual um pesquisador está procurando
@@ -28,25 +28,22 @@ Experimento no qual um pesquisador está procurando
}
\examples{
-library(lattice)
-library(plyr)
-
data(AndradeTb2.6)
str(AndradeTb2.6)
-tb <- xtabs(~H+P, data= AndradeTb2.6)
+(tb <- xtabs(~H+P, data= AndradeTb2.6))
+
+mosaicplot(tb)
barplot(t(tb), names.arg = c("Prostrado", "Trepador"),
- beside=TRUE,
- space = c(0.2,1),
- col = c("darkturquoise","lawngreen","blue"),
+ beside = TRUE,
+ space = c(0.2, 1),
+ col = c("darkturquoise", "lawngreen", "blue"),
ylim = c(0, 30))
-
legend("topleft",
- legend = c("Eb", "Pr", "Tr"),
- col = c("darkturquoise", "lawngreen","blue"),
- pch = 8)
+ legend = levels(AndradeTb2.6$P),
+ fill = c("darkturquoise", "lawngreen", "blue"))
}
-\keyword{AAS}
+\keyword{contingência}