diff --git a/R/SoaresEx13.R b/R/SoaresEx13.R
new file mode 100644
index 0000000000000000000000000000000000000000..7b29926d3431e9dba8775255297cabef081b8637
--- /dev/null
+++ b/R/SoaresEx13.R
@@ -0,0 +1,31 @@
+#' @name SoaresEx13
+#' @title Notas de um teste de psicoanalogia
+#' @description Os dados apresentados referem-se as notas de 158 
+#'     indivíduos que realizaram um teste de psicoanalogia (um teste de 
+#'     inteligência em que o indivíduo tem que resolver uma série de 
+#'     analogias).
+#' @format Um \code{data.frame} com 158 observações.
+#' 
+#' \describe{
+#'
+#' \item{\code{Escore}}{Notas atribuídas em classes.}
+#'
+#' \item{\code{FAS}}{Frequência Absoluta Simples.}
+#' 
+#' }
+#' @keywords AAS
+#' @source Introdução à estatística médica/José Francisco Soares e 
+#' Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
+#' @examples
+#'
+#' library(lattice)
+#' 
+#' par(las=2)
+#' barplot(SoaresEx13$FAS, names.arg = SoaresEx13$Escore, 
+#'     cex.names = 0.8,
+#'     xlab = "Escore",
+#'     ylab = "Frequência absoluta simples",
+#'     ylim = c(0, 25))
+#' 
+#'  
+NULL
\ No newline at end of file
diff --git a/data-raw/SoaresEx13.txt b/data-raw/SoaresEx13.txt
new file mode 100644
index 0000000000000000000000000000000000000000..54407e5899a45743c566489da96a70c0584ea591
--- /dev/null
+++ b/data-raw/SoaresEx13.txt
@@ -0,0 +1,15 @@
+Escore	FAS	
+33-36	1	
+36-39	3	
+39-42	1	
+42-45	4	
+45-48	3	
+48-51	7	
+51-54	15	
+54-57	23	
+57-60	16	
+60-63	24	
+63-66	21	
+66-69	21	
+69-72	15	
+72-75	4	
diff --git a/data-raw/SoaresEx15.txt b/data-raw/SoaresEx15.txt
new file mode 100644
index 0000000000000000000000000000000000000000..9e81f86928d9f9933c63157bf4001de65ad2e614
--- /dev/null
+++ b/data-raw/SoaresEx15.txt
@@ -0,0 +1,30 @@
+CGC	CGM	ZGC	ZGM
+113	159	1.07	0.52
+181	175	1.20	0.60
+254	181	1.30	0.78
+311	188	3.13	0.86
+334	200	3.20	1.08
+145	206	3.70	1.23
+221	213	4.40	1.28
+256	214	4.57	1.31
+312	217	5.20	1.40
+344	231	5.82	1.55
+163	238	6.07	1.55
+225	238	6.13	1.60
+275	242	6.50	1.92
+313	244	6.82	2.15
+372	256	6.82	2.27
+163	259	6.90	2.40
+231	260	7.23	2.41
+296	263	7.42	2.52
+323	264	7.43	2.57
+375	275	7.43	2.60
+167	277	7.45	2.63
+241	279	8.25	2.92
+303	281	8.40	3.02
+325	293	8.77	3.05
+375	302	9.54	3.57
+437	303		3.88
+	314		5.50
+	344		7.38
+	394		
diff --git a/data/SoaresEx13.rda b/data/SoaresEx13.rda
new file mode 100644
index 0000000000000000000000000000000000000000..2957a999731b7b191dfe8fda7715b9b59e6282f4
Binary files /dev/null and b/data/SoaresEx13.rda differ
diff --git a/man/SoaresEx13.Rd b/man/SoaresEx13.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..baf9b72418f2f0f524d7a47167cd7fc11b79b496
--- /dev/null
+++ b/man/SoaresEx13.Rd
@@ -0,0 +1,39 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/SoaresEx13.R
+\name{SoaresEx13}
+\alias{SoaresEx13}
+\title{Notas de um teste de psicoanalogia}
+\format{Um \code{data.frame} com 158 observações.
+
+\describe{
+
+\item{\code{Escore}}{Notas atribuídas em classes.}
+
+\item{\code{FAS}}{Frequência Absoluta Simples.}
+
+}}
+\source{
+Introdução à estatística médica/José Francisco Soares e 
+Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
+}
+\description{
+Os dados apresentados referem-se as notas de 158 
+    indivíduos que realizaram um teste de psicoanalogia (um teste de 
+    inteligência em que o indivíduo tem que resolver uma série de 
+    analogias).
+}
+\examples{
+
+library(lattice)
+
+par(las=2)
+barplot(SoaresEx13$FAS, names.arg = SoaresEx13$Escore, 
+    cex.names = 0.8,
+    xlab = "Escore",
+    ylab = "Frequência absoluta simples",
+    ylim = c(0, 25))
+
+ 
+}
+\keyword{AAS}
+