diff --git a/R/MingotiAnA5.R b/R/MingotiAnA5.R
new file mode 100644
index 0000000000000000000000000000000000000000..258d5a3fe9814669b9cff8ddf7f6a93357e3cf94
--- /dev/null
+++ b/R/MingotiAnA5.R
@@ -0,0 +1,41 @@
+#' @name MingotiAnA5
+#' @title Seleção de alunos para um programa de pós-graduação
+#' @description Um programa de pós-graduação dividiu 62 candidatos do 
+#'     ano anterior em 3 grupos: (I) candidatos aprovados, 
+#'     (II) candidatos na lista de espera e (III) candidatos que não
+#'     foram aprovados. Para a nova seleção, os responsáveis pensam em
+#'     considerar a nota na prova de conhecimento técnico e nota 
+#'     atribuída ao histórico escolar.      
+#' @format Um \code{data.frame} com 62 observações e 4 variáveis, em que
+#' 
+#' \describe{
+#'
+#' \item{\code{cand}}{Número de identificação do funcionário.}
+#'     
+#' \item{\code{grupo}}{Nota atribuída ao funcionário no seu desempenho
+#'     nas vendas, variando entre 20,38 a 27,70.}
+#'     
+#' \item{\code{nota}}{Nota atribuída ao funcionário no seu desempenho
+#'     no lucro da empresa, variando entre 22,45 a 30,58.}
+#'     
+#' \item{\code{histor}}{Nota atribuída ao funcionário no seu desempenho
+#'     na captação de novos clientes, variando entre 23,58 a 28,82.}
+#'     
+#' }
+#' @keywords Análise discriminante
+#' @source Mingoti, S.A. (2005). Análise de dados através de métodos de 
+#'     estatística multivariada - uma abordagem aplicada. 
+#'     Belo Horizonte, MG: Editora UFMG. (pg 234)
+#' @examples
+#'
+#' data(MingotiAnA5)
+#' 
+#' library(lattice)
+#' 
+#' da3 <- reshape(MingotiAnA5, direction = "long", varying = list(3:4),
+#'               v.names = "notas", timevar = "atributo")
+#'
+#' xyplot(notas ~ atributo, groups = grupo, data = da3, 
+#'       jitter.y = TRUE, type = c("p", "a"))
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/MingotiAnA5.txt b/data-raw/MingotiAnA5.txt
new file mode 100644
index 0000000000000000000000000000000000000000..3b2c5fa6255121bb2061ac1fe5bff7e53a2ff1c3
--- /dev/null
+++ b/data-raw/MingotiAnA5.txt
@@ -0,0 +1,63 @@
+cand	grupo	nota	histor
+1	1	19.0	9.0
+2	1	17.5	8.5
+3	1	18.2	8.2
+4	1	17.8	9.2
+5	1	17.6	9.9
+6	1	18.2	8.3
+7	1	19.4	8.2
+8	1	19.1	8.4
+9	1	17.3	9.1
+10	1	18.4	8.8
+11	1	17.9	9.4
+12	1	18.6	9.8
+13	1	19.0	9.9
+14	1	18.1	8.4
+15	1	18.4	8.3
+16	1	17.3	8.0
+17	1	17.7	8.1
+18	1	17.5	9.0
+19	1	17.8	8.6
+20	1	17.7	8.9
+21	2	16.9	8.5
+22	2	16.5	7.5	
+23	2	16.6	8.8
+24	2	16.2	7.0
+25	2	16.8	7.4
+26	2	15.9	7.1
+27	2	16.1	8.3
+28	2	15.7	7.8
+29	2	15.8	7.9
+30	2	16.7	7.5
+31	2	16.8	7.6
+32	2	15.9	7.0
+33	2	15.7	7.6
+34	2	15.4	7.4
+35	2	16.3	7.9
+36	3	14.8	6.9
+37	3	14.6	6.5
+38	3	13.4	6.8
+39	3	12.5	6.7
+40	3	14.7	6.0
+41	3	13.2	6.1
+42	3	12.1	6.5
+43	3	11.0	6.5
+44	3	11.7	6.8
+45	3	11.2	6.2
+46	3	14.5	6.9
+47	3	13.8	6.7
+48	3	13.9	6.5
+49	3	14.7	6.4
+50	3	12.4	5.7
+51	3	11.3	5.9
+52	3	10.6	6.0
+53	3	10.2	5.2
+54	3	9.0	4.0
+55	3	9.5	5.0
+56	3	12.4	6.3
+57	3	12.7	5.9
+58	3	13.0	6.8
+59	3	8.0	5.1
+60	3	11.8	5.8
+61	3	10.9	4.5
+62	3	14.6	6.9
\ No newline at end of file
diff --git a/data/MingotiAnA5.rda b/data/MingotiAnA5.rda
new file mode 100644
index 0000000000000000000000000000000000000000..30afdb9dd503ea840bc9737077c20822a58bd392
Binary files /dev/null and b/data/MingotiAnA5.rda differ
diff --git a/man/MingotiAnA5.Rd b/man/MingotiAnA5.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..6d46cb45af8098755bdbaf46c35654b2eb1c4c27
--- /dev/null
+++ b/man/MingotiAnA5.Rd
@@ -0,0 +1,50 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/MingotiAnA5.R
+\name{MingotiAnA5}
+\alias{MingotiAnA5}
+\title{Seleção de alunos para um programa de pós-graduação}
+\format{Um \code{data.frame} com 62 observações e 4 variáveis, em que
+
+\describe{
+
+\item{\code{cand}}{Número de identificação do funcionário.}
+    
+\item{\code{grupo}}{Nota atribuída ao funcionário no seu desempenho
+    nas vendas, variando entre 20,38 a 27,70.}
+    
+\item{\code{nota}}{Nota atribuída ao funcionário no seu desempenho
+    no lucro da empresa, variando entre 22,45 a 30,58.}
+    
+\item{\code{histor}}{Nota atribuída ao funcionário no seu desempenho
+    na captação de novos clientes, variando entre 23,58 a 28,82.}
+    
+}}
+\source{
+Mingoti, S.A. (2005). Análise de dados através de métodos de 
+    estatística multivariada - uma abordagem aplicada. 
+    Belo Horizonte, MG: Editora UFMG. (pg 234)
+}
+\description{
+Um programa de pós-graduação dividiu 62 candidatos do 
+    ano anterior em 3 grupos: (I) candidatos aprovados, 
+    (II) candidatos na lista de espera e (III) candidatos que não
+    foram aprovados. Para a nova seleção, os responsáveis pensam em
+    considerar a nota na prova de conhecimento técnico e nota 
+    atribuída ao histórico escolar.
+}
+\examples{
+
+data(MingotiAnA5)
+
+library(lattice)
+
+da3 <- reshape(MingotiAnA5, direction = "long", varying = list(3:4),
+              v.names = "notas", timevar = "atributo")
+
+xyplot(notas ~ atributo, groups = grupo, data = da3, 
+      jitter.y = TRUE, type = c("p", "a"))
+
+}
+\keyword{Análise}
+\keyword{discriminante}
+