diff --git a/R/PaulaEx3.7.7a.R b/R/PaulaEx3.7.7a.R
new file mode 100644
index 0000000000000000000000000000000000000000..9602ef69ae6f20d2badbd015f5c23c1d155dc18e
--- /dev/null
+++ b/R/PaulaEx3.7.7a.R
@@ -0,0 +1,39 @@
+#' @name PaulaEx3.7.7a
+#' @title Influência de Extrato Vegetal e Químico
+#' @description Experimento de dose-resposta conduzido para avaliar a 
+#'     influência dos extratos vegetais "aquoso frio de folhas", "aquoso
+#'     frio de frutos" e de um extrato químico, respectivamente, na morte 
+#'     de um determinado tipo de caramujo. 
+#'      
+#' @format Um \code{data.frame} com 7 observações e 3 variáveis.
+#' \describe{
+#' 
+#' \item{\code{dose}}{Dose.}
+#' 
+#' \item{\code{cexp}}{Caramujos expostos.}
+#' 
+#' \item{\code{cmort}}{Caramujos mortos.}
+#' 
+#' }
+#' @keywords MLG
+#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
+#'     computacional. São Paulo, SP: IME-USP. (Ex 3.7.7a, pág. 269)
+#'
+#' @examples
+#'
+#' data(PaulaEx3.7.7a)
+#' 
+#' str(PaulaEx3.7.7a)
+#' 
+#' library(lattice)
+#' 
+#' xyplot(PaulaEx3.7.7a$cmort/PaulaEx3.7.7a$cexp ~ dose,
+#' data = PaulaEx3.7.7a,
+#' xlab = "Dose",
+#' type = c("o"),
+#' ylab = "Proporção de mortos",
+#' auto.key = list(space="top", columns=2, 
+#'                 title="Caramujos", cex.title=1,
+#'                 lines=TRUE, points=FALSE))
+#'
+NULL
\ No newline at end of file
diff --git a/R/PaulaEx3.7.7b.R b/R/PaulaEx3.7.7b.R
new file mode 100644
index 0000000000000000000000000000000000000000..21960f8e1ca6d60123e2097697182cbe4e15bbfd
--- /dev/null
+++ b/R/PaulaEx3.7.7b.R
@@ -0,0 +1,40 @@
+#' @name PaulaEx3.7.7b
+#' @title Influência de Extrato Vegetal e Químico
+#' @description Experimento de dose-resposta conduzido para avaliar a 
+#'     influência dos extratos vegetais "aquoso frio de folhas", "aquoso
+#'     frio de frutos" e de um extrato químico, respectivamente, na morte 
+#'     de um determinado tipo de caramujo. 
+#'      
+#' @format Um \code{data.frame} com 7 observações e 3 variáveis.
+#' \describe{
+#' 
+#' \item{\code{dose}}{Dose.}
+#' 
+#' \item{\code{cexp}}{Caramujos expostos.}
+#' 
+#' \item{\code{cmort}}{Caramujos mortos.}
+#' 
+#' }
+#' @keywords MLG
+#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
+#'     computacional. São Paulo, SP: IME-USP. (Ex 3.7.7b, pág. 269)
+#'
+#' @examples
+#'
+#' data(PaulaEx3.7.7b)
+#' 
+#' str(PaulaEx3.7.7b)
+#' 
+#' library(lattice)
+#'                        
+#' xyplot(PaulaEx3.7.7b$cmort/PaulaEx3.7.7b$cexp ~ dose,
+#'      data = PaulaEx3.7.7b,
+#'      xlab = "Dose",
+#'      type = c("o"),
+#'      ylab = "Proporção de mortos",
+#'      auto.key = list(space="top", columns=2, 
+#'                      title="Caramujos", cex.title=1,
+#'                      lines=TRUE, points=FALSE))
+#'
+#'
+NULL
\ No newline at end of file
diff --git a/R/PaulaEx3.7.7c.R b/R/PaulaEx3.7.7c.R
new file mode 100644
index 0000000000000000000000000000000000000000..6174f7fc2bbc98684c6cafad794467e8d3fc58ff
--- /dev/null
+++ b/R/PaulaEx3.7.7c.R
@@ -0,0 +1,41 @@
+#' @name PaulaEx3.7.7c
+#' @title Influência de Extrato Vegetal e Químico
+#' @description Experimento de dose-resposta conduzido para avaliar a 
+#'     influência dos extratos vegetais "aquoso frio de folhas", "aquoso
+#'     frio de frutos" e de um extrato químico, respectivamente, na morte 
+#'     de um determinado tipo de caramujo. 
+#'      
+#' @format Um \code{data.frame} com 7 observações e 3 variáveis.
+#' \describe{
+#' 
+#' \item{\code{dose}}{Dose.}
+#' 
+#' \item{\code{cexp}}{Caramujos expostos.}
+#' 
+#' \item{\code{cmort}}{Caramujos mortos.}
+#' 
+#' }
+#' @keywords MLG
+#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
+#'     computacional. São Paulo, SP: IME-USP. (Ex 3.7.7c, pág. 269)
+#'
+#' @examples
+#'
+#' data(PaulaEx3.7.7c)
+#' 
+#' str(PaulaEx3.7.7c)
+#' 
+#' library(lattice)
+#' 
+#' xyplot(PaulaEx3.7.7c$cmort/PaulaEx3.7.7c$cexp ~ dose,
+#'      data = PaulaEx3.7.7c,
+#'      xlab = "Dose",
+#'      type = c("o"),
+#'      ylab = "Proporção de mortos",
+#'      auto.key = list(space="top", columns=2, 
+#'                   title="Caramujos", cex.title=1,
+#'                   lines=TRUE, points=FALSE))
+#'
+#' 
+#'
+NULL
\ No newline at end of file
diff --git a/R/PaulaEx3.7.8.R b/R/PaulaEx3.7.8.R
new file mode 100644
index 0000000000000000000000000000000000000000..c98b5eadc8be002f273818ff9e3901f5a543d4b8
--- /dev/null
+++ b/R/PaulaEx3.7.8.R
@@ -0,0 +1,41 @@
+#' @name PaulaEx3.7.8
+#' @title Salário de Executivos
+#' @description Dados referentes a um experimento desenvolvido para avaliar
+#'      a germinação de um determinado tipo de semente. A tabela abaixo 
+#'      apresenta o número de sementes que germinaram após cinco dias para 
+#'      cada 100 sementes submetidas a cada condição experimental.
+#'      
+#' @format Um \code{data.frame} com 18 observações e 4 variáveis.
+#' \describe{
+#' 
+#' \item{\code{temp}}{Temperatura da germinação.}
+#' 
+#' \item{\code{numid}}{Nível da umidade.}
+#' 
+#' \item{\code{ntemp}}{Nível da temperatura.}
+#' 
+#' \item{\code{sgerm}}{Número de sementes que germinaram.}
+#' 
+#' 
+#' }
+#' @keywords MLG
+#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
+#'     computacional. São Paulo, SP: IME-USP. (Ex 3.7.8, pág. 270)
+#'
+#' @examples
+#'
+#' data(PaulaEx3.7.8)
+#' 
+#' str(PaulaEx3.7.8)
+#' 
+#' library(lattice)
+#' 
+#' PaulaEx3.7.8$ntemp <- as.factor(PaulaEx3.7.8$ntemp)
+#' 
+#' PaulaEx3.7.8$numid <- as.factor(PaulaEx3.7.8$numid)
+#' xyplot(sgerm ~ numid | ntemp,
+#'        data = PaulaEx3.7.8,
+#'        xlab = "Nível de temperatura",
+#'        ylab = "Número de sementes germinadas")
+#'
+NULL
\ No newline at end of file
diff --git a/R/PaulaTb3.21.R b/R/PaulaTb3.21.R
new file mode 100644
index 0000000000000000000000000000000000000000..b52212fabbd55d558f6107fc78ca8fca8ff7284e
--- /dev/null
+++ b/R/PaulaTb3.21.R
@@ -0,0 +1,40 @@
+#' @name PaulaTb3.21
+#' @title Distribuição de Rotifers das Duas Espécies
+#' @description Experimento com duas espécies de *rotifers*, um tipo  
+#'     microscópio de invertebrado aquático. São apresentados pra cada 
+#'     espécie a densidade relativa da substância, o número de *rotifers*
+#'     expostos e o número de *rotifers* em suspensão.
+#'      
+#' @format Um \code{data.frame} com 40 observações e 4 variáveis.
+#' \describe{
+#' 
+#' \item{\code{dens}}{Densidade.}
+#' 
+#' \item{\code{susp}}{Rotifers suspensos.}
+#' 
+#' \item{\code{exp}}{Rotifers expostos.}
+#' 
+#' \item{\code{esp}}{Espécie (Polyarthra, Keratella).}
+#' 
+#' }
+#' @keywords MLG
+#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
+#'     computacional. São Paulo, SP: IME-USP. (Tb 3.21, pág. 257)
+#'
+#' @examples
+#'
+#' data(PaulaTb3.21)
+#' 
+#' str(PaulaTb3.21)
+#' 
+#' library(lattice)
+#' 
+#' xyplot(PaulaTb3.21$susp/PaulaTb3.21$exp ~ dens,
+#'        groups = esp,
+#'        data = PaulaTb3.21,
+#'        xlab = "Densidade",
+#'        ylab = "Proporção de rotifers suspensos",
+#'        type = c("p"),
+#'        auto.key = TRUE)
+#' 
+NULL
\ No newline at end of file
diff --git a/data-raw/PaulaEx3.7.7a.txt b/data-raw/PaulaEx3.7.7a.txt
new file mode 100644
index 0000000000000000000000000000000000000000..524ba1429b604553f00d033adfdf29e41895ed3c
--- /dev/null
+++ b/data-raw/PaulaEx3.7.7a.txt
@@ -0,0 +1,8 @@
+dose	cexp	cmort
+0	50	4
+15	50	5
+20	50	14
+25	50	29
+30	50	38
+35	50	41
+40	50	47
diff --git a/data-raw/PaulaEx3.7.7b.txt b/data-raw/PaulaEx3.7.7b.txt
new file mode 100644
index 0000000000000000000000000000000000000000..9fa20cafa7587f119910465db8832f1743fcce37
--- /dev/null
+++ b/data-raw/PaulaEx3.7.7b.txt
@@ -0,0 +1,9 @@
+dose 	cexp	cmort
+0	65	2
+100	52	2
+150	52	8
+200	52	20
+250	52	41
+300	52	48
+350	52	51
+400	52	52
diff --git a/data-raw/PaulaEx3.7.7c.txt b/data-raw/PaulaEx3.7.7c.txt
new file mode 100644
index 0000000000000000000000000000000000000000..8b85b6f63c5b001f9903fd6024cc31b1268511e4
--- /dev/null
+++ b/data-raw/PaulaEx3.7.7c.txt
@@ -0,0 +1,8 @@
+dose 	cexp	cmort
+0.000	30	2
+0.010	30	4
+0.015	30	4
+0.020	30	11
+0.030	29	9
+0.040	30	14
+0.050	30	24
diff --git a/data-raw/PaulaEx3.7.8.txt b/data-raw/PaulaEx3.7.8.txt
new file mode 100644
index 0000000000000000000000000000000000000000..59a2a4ffa50cdd46bbaadee29817f7e19946ba0d
--- /dev/null
+++ b/data-raw/PaulaEx3.7.8.txt
@@ -0,0 +1,19 @@
+temp	numid	ntemp	sgerm
+11	baixo	21	98
+11	baixo	42	96
+11	baixo	62	62
+11	medio	21	94
+11	medio	42	79
+11	medio	62	3
+11	alto	21	92
+11	alto	42	41
+11	alto	62	1
+21	baixo	21	94
+21	baixo	42	93
+21	baixo	62	65
+21	medio	21	94
+21	medio	42	71
+21	medio	62	2
+21	alto	21	91
+21	alto	42	30
+21	alto	62	1
diff --git a/data-raw/PaulaTb3.21.txt b/data-raw/PaulaTb3.21.txt
new file mode 100644
index 0000000000000000000000000000000000000000..d31497e6d8460daca574b9f7eedefefbf7c6a039
--- /dev/null
+++ b/data-raw/PaulaTb3.21.txt
@@ -0,0 +1,41 @@
+dens	susp	exp	esp
+1.019	11	58	Polyarthra
+1.020	7	86	Polyarthra
+1.021	10	76	Polyarthra
+1.030	19	83	Polyarthra
+1.030	9	56	Polyarthra
+1.030	21	73	Polyarthra
+1.031	13	29	Polyarthra
+1.040	34	44	Polyarthra
+1.040	10	31	Polyarthra
+1.041	36	56	Polyarthra
+1.048	20	27	Polyarthra
+1.049	54	59	Polyarthra
+1.050	20	22	Polyarthra
+1.050	9	14	Polyarthra
+1.060	14	17	Polyarthra
+1.061	10	22	Polyarthra
+1.063	64	66	Polyarthra
+1.070	68	86	Polyarthra
+1.070	488	492	Polyarthra
+1.070	88	89	Polyarthra
+1.019	13	161	Keratella
+1.020	14	248	Keratella
+1.021	30	234	Keratella
+1.030	10	283	Keratella
+1.030	14	129	Keratella
+1.030	35	161	Keratella
+1.031	26	167	Keratella
+1.040	32	286	Keratella
+1.040	22	117	Keratella
+1.041	23	162	Keratella
+1.048	7	42	Keratella
+1.049	22	48	Keratella
+1.050	9	49	Keratella
+1.050	34	160	Keratella
+1.060	71	74	Keratella
+1.061	25	45	Keratella
+1.063	94	101	Keratella
+1.070	63	68	Keratella
+1.070	178	190	Keratella
+1.070	154	154	Keratella
diff --git a/data/PaulaEx3.7.7a.rda b/data/PaulaEx3.7.7a.rda
new file mode 100644
index 0000000000000000000000000000000000000000..5e7573dff80ad576683f4ad99b2d8dae6e303b76
Binary files /dev/null and b/data/PaulaEx3.7.7a.rda differ
diff --git a/data/PaulaEx3.7.7b.rda b/data/PaulaEx3.7.7b.rda
new file mode 100644
index 0000000000000000000000000000000000000000..b7d375bc63d9520184aec09ad4858b69df9dadbe
Binary files /dev/null and b/data/PaulaEx3.7.7b.rda differ
diff --git a/data/PaulaEx3.7.7c.rda b/data/PaulaEx3.7.7c.rda
new file mode 100644
index 0000000000000000000000000000000000000000..5dd2c349cb487f5fae3ca1eaad2e94662302a105
Binary files /dev/null and b/data/PaulaEx3.7.7c.rda differ
diff --git a/data/PaulaEx3.7.8.rda b/data/PaulaEx3.7.8.rda
new file mode 100644
index 0000000000000000000000000000000000000000..6426df64f18843dec3cb21496c87ef975daf4fcf
Binary files /dev/null and b/data/PaulaEx3.7.8.rda differ
diff --git a/data/PaulaTb3.21.rda b/data/PaulaTb3.21.rda
new file mode 100644
index 0000000000000000000000000000000000000000..55380876dc421aa3fa4e91eba4e157edde22f74e
Binary files /dev/null and b/data/PaulaTb3.21.rda differ
diff --git a/man/PaulaEx3.7.7a.Rd b/man/PaulaEx3.7.7a.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..4afc2d9101b60a4165702bb2dd14d23b4acc7cab
--- /dev/null
+++ b/man/PaulaEx3.7.7a.Rd
@@ -0,0 +1,45 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulaEx3.7.7a.R
+\name{PaulaEx3.7.7a}
+\alias{PaulaEx3.7.7a}
+\title{Influência de Extrato Vegetal e Químico}
+\format{Um \code{data.frame} com 7 observações e 3 variáveis.
+\describe{
+
+\item{\code{dose}}{Dose.}
+
+\item{\code{cexp}}{Caramujos expostos.}
+
+\item{\code{cmort}}{Caramujos mortos.}
+
+}}
+\source{
+Paula, G. A. (2004). Modelos de regressão: com apoio
+    computacional. São Paulo, SP: IME-USP. (Ex 3.7.7a, pág. 269)
+}
+\description{
+Experimento de dose-resposta conduzido para avaliar a 
+    influência dos extratos vegetais "aquoso frio de folhas", "aquoso
+    frio de frutos" e de um extrato químico, respectivamente, na morte 
+    de um determinado tipo de caramujo.
+}
+\examples{
+
+data(PaulaEx3.7.7a)
+
+str(PaulaEx3.7.7a)
+
+library(lattice)
+
+xyplot(PaulaEx3.7.7a$cmort/PaulaEx3.7.7a$cexp ~ dose,
+data = PaulaEx3.7.7a,
+xlab = "Dose",
+type = c("o"),
+ylab = "Proporção de mortos",
+auto.key = list(space="top", columns=2, 
+                title="Caramujos", cex.title=1,
+                lines=TRUE, points=FALSE))
+
+}
+\keyword{MLG}
+
diff --git a/man/PaulaEx3.7.7b.Rd b/man/PaulaEx3.7.7b.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..b0c1060ab686d82a953fee08c2d46ba98b3b636a
--- /dev/null
+++ b/man/PaulaEx3.7.7b.Rd
@@ -0,0 +1,46 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulaEx3.7.7b.R
+\name{PaulaEx3.7.7b}
+\alias{PaulaEx3.7.7b}
+\title{Influência de Extrato Vegetal e Químico}
+\format{Um \code{data.frame} com 7 observações e 3 variáveis.
+\describe{
+
+\item{\code{dose}}{Dose.}
+
+\item{\code{cexp}}{Caramujos expostos.}
+
+\item{\code{cmort}}{Caramujos mortos.}
+
+}}
+\source{
+Paula, G. A. (2004). Modelos de regressão: com apoio
+    computacional. São Paulo, SP: IME-USP. (Ex 3.7.7b, pág. 269)
+}
+\description{
+Experimento de dose-resposta conduzido para avaliar a 
+    influência dos extratos vegetais "aquoso frio de folhas", "aquoso
+    frio de frutos" e de um extrato químico, respectivamente, na morte 
+    de um determinado tipo de caramujo.
+}
+\examples{
+
+data(PaulaEx3.7.7b)
+
+str(PaulaEx3.7.7b)
+
+library(lattice)
+                       
+xyplot(PaulaEx3.7.7b$cmort/PaulaEx3.7.7b$cexp ~ dose,
+     data = PaulaEx3.7.7b,
+     xlab = "Dose",
+     type = c("o"),
+     ylab = "Proporção de mortos",
+     auto.key = list(space="top", columns=2, 
+                     title="Caramujos", cex.title=1,
+                     lines=TRUE, points=FALSE))
+
+
+}
+\keyword{MLG}
+
diff --git a/man/PaulaEx3.7.7c.Rd b/man/PaulaEx3.7.7c.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..0b4952c30c984200a5e26b91c45869b68e9fb229
--- /dev/null
+++ b/man/PaulaEx3.7.7c.Rd
@@ -0,0 +1,47 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulaEx3.7.7c.R
+\name{PaulaEx3.7.7c}
+\alias{PaulaEx3.7.7c}
+\title{Influência de Extrato Vegetal e Químico}
+\format{Um \code{data.frame} com 7 observações e 3 variáveis.
+\describe{
+
+\item{\code{dose}}{Dose.}
+
+\item{\code{cexp}}{Caramujos expostos.}
+
+\item{\code{cmort}}{Caramujos mortos.}
+
+}}
+\source{
+Paula, G. A. (2004). Modelos de regressão: com apoio
+    computacional. São Paulo, SP: IME-USP. (Ex 3.7.7c, pág. 269)
+}
+\description{
+Experimento de dose-resposta conduzido para avaliar a 
+    influência dos extratos vegetais "aquoso frio de folhas", "aquoso
+    frio de frutos" e de um extrato químico, respectivamente, na morte 
+    de um determinado tipo de caramujo.
+}
+\examples{
+
+data(PaulaEx3.7.7c)
+
+str(PaulaEx3.7.7c)
+
+library(lattice)
+
+xyplot(PaulaEx3.7.7c$cmort/PaulaEx3.7.7c$cexp ~ dose,
+     data = PaulaEx3.7.7c,
+     xlab = "Dose",
+     type = c("o"),
+     ylab = "Proporção de mortos",
+     auto.key = list(space="top", columns=2, 
+                  title="Caramujos", cex.title=1,
+                  lines=TRUE, points=FALSE))
+
+
+
+}
+\keyword{MLG}
+
diff --git a/man/PaulaEx3.7.8.Rd b/man/PaulaEx3.7.8.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..3427ba9c39a5baf8c9e72054adb11b1456fef921
--- /dev/null
+++ b/man/PaulaEx3.7.8.Rd
@@ -0,0 +1,50 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulaEx3.7.8.R
+\name{PaulaEx3.7.8}
+\alias{PaulaEx3.7.8}
+\title{Salário de Executivos}
+\format{Um \code{data.frame} com 18 observações e 4 variáveis.
+\describe{
+
+\item{\code{temp}}{Temperatura da germinação.}
+
+\item{\code{numid}}{Nível da umidade.}
+
+\item{\code{ntemp}}{Nível da temperatura.}
+
+\item{\code{sgerm}}{Número de sementes que germinaram.}
+
+
+}}
+\source{
+Paula, G. A. (2004). Modelos de regressão: com apoio
+    computacional. São Paulo, SP: IME-USP. (Ex 3.7.8, pág. 270)
+}
+\description{
+Dados referentes a um experimento desenvolvido para avaliar
+     a germinação de um determinado tipo de semente. A tabela abaixo 
+     apresenta o número de sementes que germinaram após cinco dias para 
+     cada 100 sementes submetidas a cada condição experimental.
+}
+\examples{
+
+data(PaulaEx3.7.8)
+
+str(PaulaEx3.7.8)
+
+library(lattice)
+
+PaulaEx3.7.8$ntemp <- as.factor(PaulaEx3.7.8$ntemp)
+
+xyplot(temp ~ numid + ntemp,
+       groups = sgerm,
+       data = PaulaEx3.7.8,
+       xlab = " ",
+       ylab = "Densidade",
+       auto.key = list(space="top", columns=2, 
+                       title="Espécie", cex.title=1,
+                       lines=TRUE, points=FALSE))
+
+}
+\keyword{MLG}
+
diff --git a/man/PaulaTb3.21.Rd b/man/PaulaTb3.21.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..129588f0383eaacd45461f23e64105c0f55db429
--- /dev/null
+++ b/man/PaulaTb3.21.Rd
@@ -0,0 +1,48 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulaTb3.21.R
+\name{PaulaTb3.21}
+\alias{PaulaTb3.21}
+\title{Distribuição de Rotifers das Duas Espécies}
+\format{Um \code{data.frame} com 40 observações e 4 variáveis.
+\describe{
+
+\item{\code{dens}}{Densidade.}
+
+\item{\code{susp}}{Rotifers suspensos.}
+
+\item{\code{exp}}{Rotifers expostos.}
+
+\item{\code{esp}}{Espécie (Polyarthra, Keratella).}
+
+}}
+\source{
+Paula, G. A. (2004). Modelos de regressão: com apoio
+    computacional. São Paulo, SP: IME-USP. (Tb 3.21, pág. 257)
+}
+\description{
+Experimentos com duas espécies de *rotifers*, um tipo  
+    microscópio de invertebrado aquático. São apresentados pra cada 
+    espécie a densidade relativa da substância, o número de *rotifers*
+    expostos e o número de *rotifers* em suspensão.
+}
+\examples{
+
+data(PaulaTb3.21)
+
+str(PaulaTb3.21)
+
+library(lattice)
+
+xyplot(PaulaTb3.21$susp/PaulaTb3.21$exp ~ dens,
+       groups = esp,
+       data = PaulaTb3.21,
+       xlab = "Densidade",
+       ylab = "Proporção de rotifers suspensos",
+       type = c("o"),
+       auto.key = list(space="top", columns=2, 
+                       title="Espécie", cex.title=1,
+                       lines=TRUE, points=FALSE))
+
+}
+\keyword{MLG}
+