diff --git a/R/PaulinoEx9.31.R b/R/PaulinoEx9.31.R
new file mode 100644
index 0000000000000000000000000000000000000000..d8625b8ea6953fe1b34f6d299096b6d2f6572160
--- /dev/null
+++ b/R/PaulinoEx9.31.R
@@ -0,0 +1,47 @@
+#' @name PaulinoEx9.31
+#' @title Efeito de Dois Agentes Sexualmente Transmissíveis em Dois
+#'     Grupos de Mulheres
+#' @description Estudo envolvendo um grupo de mulheres com displasia
+#'     historicamente confirmada (os casos) e um outro grupo de mulheres
+#'     com ausência da mesma (os controles). Cada uma destas mulheres
+#'     foi então analisada em termos da exposição a cada um dos agentes
+#'     sexualmente transmissíveis (o vírus tipo 2 da herpes simples e a
+#'     \emph{Clamídia trachomatis}, na etiologia da displasia cervical),
+#'     categorizados em dois níveis (1 para uma maior prevalência de
+#'     anticorpos e 2 para uma menor prevalência), analisando os
+#'     possíveis efeitos desses agentes nessas mulheres.
+#' @format Um \code{data.frame} com 24 observações e 5 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{parc}}{Fator sócio-comportamental definido pelo número
+#'     total de parceiros sexuais categorizado em 3 níveis (1-3, 4-10 e
+#'     > 10).}
+#'
+#' \item{\code{herpes}}{Vírus do tipo 2 do herpes simples (1 para maior
+#'     prevalência e 2 para menor).}
+#'
+#' \item{\code{calmid}}{Vírus do tipo \emph{Clamídia trachomatis} (1
+#'     para maior prevalência e 2 para menor).}
+#' 
+#' \item{\code{grupo}}{Grupo em que foi dividido as mulheres (casos ou
+#'     controles).}
+#' 
+#' \item{\code{freq}}{Frequências observadas.}
+#'
+#' }
+#' @keywords retrospetivo
+#' @source PAULINO; SINGER (2006), Exercício 9.31, pág. 345.
+#' @examples
+#' 
+#' data(PaulinoEx9.31)
+#'
+#' str(PaulinoEx9.31)
+#'
+#' xt <- xtabs(freq ~., PaulinoEx9.31)
+#' ftable(xt)
+#' 
+#' library(vcd)
+#' doubledecker(xt)
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/PaulinoEx9.31.txt b/data-raw/PaulinoEx9.31.txt
new file mode 100644
index 0000000000000000000000000000000000000000..2fab32f83802783aaf037693ef1ea531d3f80420
--- /dev/null
+++ b/data-raw/PaulinoEx9.31.txt
@@ -0,0 +1,25 @@
+parc	herpes	clamid	grupo	freq
+1-3	1	1	casos	56
+1-3	1	1	controles	42
+1-3	1	2	casos	14
+1-3	1	2	controles	28
+1-3	2	1	casos	54
+1-3	2	1	controles	78
+1-3	2	2	casos	34
+1-3	2	2	controles	83
+4-10	1	1	casos	47
+4-10	1	1	controles	57
+4-10	1	2	casos	8
+4-10	1	2	controles	29
+4-10	2	1	casos	46
+4-10	2	1	controles	74
+4-10	2	2	casos	18
+4-10	2	2	controles	48
+> 10	1	1	casos	43
+> 10	1	1	controles	80
+> 10	1	2	casos	4
+> 10	1	2	controles	16
+> 10	2	1	casos	44
+> 10	2	1	controles	56
+> 10	2	2	casos	12
+> 10	2	2	controles	23
diff --git a/data/PaulinoEx9.31.rda b/data/PaulinoEx9.31.rda
new file mode 100644
index 0000000000000000000000000000000000000000..b2549bfdf96421abb9d8b5ed376deba5ea16007d
Binary files /dev/null and b/data/PaulinoEx9.31.rda differ
diff --git a/man/PaulinoEx9.31.Rd b/man/PaulinoEx9.31.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..12a839722977d19fa1dcfb46d5b13512baa44934
--- /dev/null
+++ b/man/PaulinoEx9.31.Rd
@@ -0,0 +1,55 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoEx9.31.R
+\name{PaulinoEx9.31}
+\alias{PaulinoEx9.31}
+\title{Efeito de Dois Agentes Sexualmente Transmissíveis em Dois
+    Grupos de Mulheres}
+\format{Um \code{data.frame} com 24 observações e 5 variáveis, em que
+
+\describe{
+
+\item{\code{parc}}{Fator sócio-comportamental definido pelo número
+    total de parceiros sexuais categorizado em 3 níveis (1-3, 4-10 e
+    > 10).}
+
+\item{\code{herpes}}{Vírus do tipo 2 do herpes simples (1 para maior
+    prevalência e 2 para menor).}
+
+\item{\code{calmid}}{Vírus do tipo \emph{Clamídia trachomatis} (1
+    para maior prevalência e 2 para menor).}
+
+\item{\code{grupo}}{Grupo em que foi dividido as mulheres (casos ou
+    controles).}
+
+\item{\code{freq}}{Frequências observadas.}
+
+}}
+\source{
+PAULINO; SINGER (2006), Exercício 9.31, pág. 345.
+}
+\description{
+Estudo envolvendo um grupo de mulheres com displasia
+    historicamente confirmada (os casos) e um outro grupo de mulheres
+    com ausência da mesma (os controles). Cada uma destas mulheres
+    foi então analisada em termos da exposição a cada um dos agentes
+    sexualmente transmissíveis (o vírus tipo 2 da herpes simples e a
+    \emph{Clamídia trachomatis}, na etiologia da displasia cervical),
+    categorizados em dois níveis (1 para uma maior prevalência de
+    anticorpos e 2 para uma menor prevalência), analisando os
+    possíveis efeitos desses agentes nessas mulheres.
+}
+\examples{
+
+data(PaulinoEx9.31)
+
+str(PaulinoEx9.31)
+
+xt <- xtabs(freq ~., PaulinoEx9.31)
+ftable(xt)
+
+library(vcd)
+doubledecker(xt)
+
+}
+\keyword{retrospetivo}
+