diff --git a/R/PaulinoEx13.15.R b/R/PaulinoEx13.15.R
new file mode 100644
index 0000000000000000000000000000000000000000..8bff5ea98c77c38ecc1ea7442156855e2f841549
--- /dev/null
+++ b/R/PaulinoEx13.15.R
@@ -0,0 +1,47 @@
+#' @name PaulinoEx13.15
+#' @title Frequências de pacientes com algum tipo de efeitos colaterais 
+#'     avaliados em três visitas.
+#' @description Um estudo feito por Molenberghs et al. (1997) trata sobre 
+#'    pacientes do foro psiquiátrico em tratamento com uma droga. Uma 
+#'    das respostas consideras em 3 ocasiões, (X1, X2, X3), foi a 
+#'    indicação de efeitos colaterais (manifestada pelo surgimento de 
+#'    novos sintomas psiquiátricos) registrada dicotomicamente nos 
+#'    níveis 1 (ausência ou presença sem interferir com a funcionalidade 
+#'    do paciente) e 2 ( presença com implicações significativas na 
+#'    funcionalidade, podendo inclusive suplantar o efeito terâpeutico).
+#' @format Um \code{data.frame} com 18 observações e 4 variáveis.
+#'
+#' \describe{
+#'
+#' \item{\code{vis1}}{Primeira visita feita.}
+#'
+#' \item{\code{vis2}}{Segunda visita feita.}
+#' 
+#' \item{\code{vis3}}{Terceira visita feita.}
+#' 
+#' \item{\code{freq}}{Frequência com as observações.}
+#'
+#' }
+#' @keywords TC
+#' @source PAULINO; SINGER (2006), Tabela 13.15, pág. 486.
+#' @references Molenberghs, G. e Goetghebeur, E. J. T. (1997). Simple
+#'     fitting algorithms for incomplete categorical data, Journal of 
+#'     the Royal Statistical Society, B 59:401-414.
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(PaulinoEx13.15)
+#' 
+#' dados <- xtabs(freq ~ vis1 + vis2 + vis3, data = PaulinoEx13.15)
+#' barchart(dados, horizontal = FALSE,
+#'    stack = FALSE,
+#'    scales = list(x = list(labels = c("1","2"))),
+#'    ylab = "Frequência",
+#'    xlab = "Visita 1",
+#'    main = "Frequências de pacientes com algum tipo de efeitos 
+#'        colaterais avaliados em três visitas.",
+#'    auto.key = list(corner = c(0.90, 0.95), 
+#'        text = c("1", "2", "omisso")))
+#'        
+NULL
diff --git a/data-raw/PaulinoEx13.15.txt b/data-raw/PaulinoEx13.15.txt
new file mode 100644
index 0000000000000000000000000000000000000000..8f8cd231725d65ba10647f40892d7201f1a95fbd
--- /dev/null
+++ b/data-raw/PaulinoEx13.15.txt
@@ -0,0 +1,19 @@
+vis1	vis2	vis3	freq
+1	1	1	192
+1	1	2	11
+1	1	omisso	29
+1	2	1	4
+1	2	2	0
+1	2	omisso	4
+1	omisso	1	
+1	omisso	2	
+1	omisso	omisso	15
+2	1	1	11
+2	1	2	0
+2	1	omisso	2
+2	2	1	3
+2	2	2	2
+2	2	omisso	9
+2	omisso	1	
+2	omisso	2	
+2	omisso	omisso	16
diff --git a/data/PaulinoEx13.15.rda b/data/PaulinoEx13.15.rda
new file mode 100644
index 0000000000000000000000000000000000000000..80178278168cac0a4f69e613ef24233d93f8e22e
Binary files /dev/null and b/data/PaulinoEx13.15.rda differ
diff --git a/man/PaulinoEx13.15.Rd b/man/PaulinoEx13.15.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..66696ebd021a7db09d8e166118bb76e24c3b5257
--- /dev/null
+++ b/man/PaulinoEx13.15.Rd
@@ -0,0 +1,57 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoEx13.15.R
+\name{PaulinoEx13.15}
+\alias{PaulinoEx13.15}
+\title{Frequências de pacientes com algum tipo de efeitos colaterais 
+    avaliados em três visitas.}
+\format{Um \code{data.frame} com 18 observações e 4 variáveis.
+
+\describe{
+
+\item{\code{vis1}}{Primeira visita feita.}
+
+\item{\code{vis2}}{Segunda visita feita.}
+
+\item{\code{vis3}}{Terceira visita feita.}
+
+\item{\code{freq}}{Frequência com as observações.}
+
+}}
+\source{
+PAULINO; SINGER (2006), Tabela 13.15, pág. 486.
+}
+\description{
+Um estudo feito por Molenberghs et al. (1997) trata sobre 
+   pacientes do foro psiquiátrico em tratamento com uma droga. Uma 
+   das respostas consideras em 3 ocasiões, (X1, X2, X3), foi a 
+   indicação de efeitos colaterais (manifestada pelo surgimento de 
+   novos sintomas psiquiátricos) registrada dicotomicamente nos 
+   níveis 1 (ausência ou presença sem interferir com a funcionalidade 
+   do paciente) e 2 ( presença com implicações significativas na 
+   funcionalidade, podendo inclusive suplantar o efeito terâpeutico).
+}
+\examples{
+
+library(lattice)
+
+data(PaulinoEx13.15)
+
+dados <- xtabs(freq ~ vis1 + vis2 + vis3, data = PaulinoEx13.15)
+barchart(dados, horizontal = FALSE,
+   stack = FALSE,
+   scales = list(x = list(labels = c("1","2"))),
+   ylab = "Frequência",
+   xlab = "Visita 1",
+   main = "Frequências de pacientes com algum tipo de efeitos 
+       colaterais avaliados em três visitas.",
+   auto.key = list(corner = c(0.90, 0.95), 
+       text = c("1", "2", "omisso")))
+       
+}
+\references{
+Molenberghs, G. e Goetghebeur, E. J. T. (1997). Simple
+    fitting algorithms for incomplete categorical data, Journal of 
+    the Royal Statistical Society, B 59:401-414.
+}
+\keyword{TC}
+