diff --git a/R/PaulinoTb13.4.R b/R/PaulinoTb13.4.R
new file mode 100644
index 0000000000000000000000000000000000000000..d060385ecd837ffb5fa8a42cc7ef762443e70f01
--- /dev/null
+++ b/R/PaulinoTb13.4.R
@@ -0,0 +1,42 @@
+#' @name PaulinoTb13.4
+#' @title Frequências observadas em mulheres.
+#' @description Um estudo realizado por Williamson e Haber (1994), 
+#'     envolvendo mulheres com e sem cancro do colo do útero 
+#'     (variável A), classificadas adicionalmente pelo número de 
+#'     parceiros sexuais (variável B categorizada em ‘poucos’ se 
+#'     inferior ou igual a 3 e ‘muitos’no caso contrário) e pelo 
+#'     rendimento anual do agregado familiar (variável C categorizada 
+#'     em ‘baixo’ se inferior ou igual a 2500 USD e ‘alto’ no caso 
+#'     contrário).
+#' @format Um \code{data.frame} com 18 observações e 4 variáveis.
+#'
+#' \describe{
+#'
+#' \item{\code{scc}}{Statu do cancro cervical (controlo e caso).}
+#'
+#' \item{\code{nps}}{Número de parceiros sexuais, descritos como poucos,
+#'     muitos e omisso. Na categoria poucos, refere-se a menor ou igual 
+#'     a 3 diante aos parceiros sexuais.}
+#'
+#' \item{\code{rend}}{Rendimento anual do agregado familiar..}
+#' 
+#' \item{\code{freq}}{Frequência associada ao rendimento anual do 
+#'     agregado familiar.}
+#' }
+#' @keywords TC
+#' @source PAULINO; SINGER (2006), Tabela 13.4, pág. 470.
+#' @examples
+#' 
+#' library(lattice)
+#' data(PaulinoTb13.4)
+#' 
+#' dados <- xtabs(freq ~ nps + scc + rend, data = PaulinoTb13.4)
+#' barchart(dados, horizontal = FALSE, 
+#'         stack = FALSE,
+#'         scales = list(x = list(labels = c("muitos",'omissos',"poucos"))),
+#'         ylab = "Frequência", xlab = "Statu do cancro cervical",
+#'         main = "Frequências observadas em mulheres.",
+#'         auto.key = list(corner = c(0.95, 0.90), 
+#'                         text = c('Alto','Baixo', 'omisso')))
+#'
+NULL
diff --git a/data-raw/PaulinoTb13.4.txt b/data-raw/PaulinoTb13.4.txt
new file mode 100644
index 0000000000000000000000000000000000000000..932ab7b4df4ca76aed2ba63cfd213ea08c7d4bdc
--- /dev/null
+++ b/data-raw/PaulinoTb13.4.txt
@@ -0,0 +1,19 @@
+scc	nps	rend	freq
+controlo	poucos	baixo	77
+controlo	poucos	alto	87
+controlo	poucos	omisso	14
+controlo	muitos 	baixo	94
+controlo	muitos 	alto	70
+controlo	muitos 	omisso	8
+controlo	omisso	baixo	25
+controlo	omisso	alto	18
+controlo	omisso	omisso	14
+caso	poucos	baixo	67
+caso	poucos	alto	36
+caso	poucos	omisso	3
+caso	muitos 	baixo	143
+caso	muitos 	alto	78
+caso	muitos 	omisso	9
+caso	omisso	baixo	43
+caso	omisso	alto	16
+caso	omisso	omisso	12
diff --git a/data/PaulinoTb13.4.rda b/data/PaulinoTb13.4.rda
new file mode 100644
index 0000000000000000000000000000000000000000..d63bdb027a821fa6ce9640ebcfdf26aa61bfcb82
Binary files /dev/null and b/data/PaulinoTb13.4.rda differ
diff --git a/man/PaulinoTb13.4.Rd b/man/PaulinoTb13.4.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..3624b5512c8b78c03c8c6114ebd89c91548ff7f4
--- /dev/null
+++ b/man/PaulinoTb13.4.Rd
@@ -0,0 +1,50 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoTb13.4.R
+\name{PaulinoTb13.4}
+\alias{PaulinoTb13.4}
+\title{Frequências observadas em mulheres.}
+\format{Um \code{data.frame} com 18 observações e 4 variáveis.
+
+\describe{
+
+\item{\code{scc}}{Statu do cancro cervical (controlo e caso).}
+
+\item{\code{nps}}{Número de parceiros sexuais, descritos como poucos,
+    muitos e omisso. Na categoria poucos, refere-se a menor ou igual 
+    a 3 diante aos parceiros sexuais.}
+
+\item{\code{rend}}{Rendimento anual do agregado familiar..}
+
+\item{\code{freq}}{Frequência associada ao rendimento anual do 
+    agregado familiar.}
+}}
+\source{
+PAULINO; SINGER (2006), Tabela 13.4, pág. 470.
+}
+\description{
+Um estudo realizado por Williamson e Haber (1994), 
+    envolvendo mulheres com e sem cancro do colo do útero 
+    (variável A), classificadas adicionalmente pelo número de 
+    parceiros sexuais (variável B categorizada em ‘poucos’ se 
+    inferior ou igual a 3 e ‘muitos’no caso contrário) e pelo 
+    rendimento anual do agregado familiar (variável C categorizada 
+    em ‘baixo’ se inferior ou igual a 2500 USD e ‘alto’ no caso 
+    contrário).
+}
+\examples{
+
+library(lattice)
+data(PaulinoTb13.4)
+
+dados <- xtabs(freq ~ nps + scc + rend, data = PaulinoTb13.4)
+barchart(dados, horizontal = FALSE, 
+        stack = FALSE,
+        scales = list(x = list(labels = c("muitos",'omissos',"poucos"))),
+        ylab = "Frequência", xlab = "Statu do cancro cervical",
+        main = "Frequências observadas em mulheres.",
+        auto.key = list(corner = c(0.95, 0.90), 
+                        text = c('Alto','Baixo', 'omisso')))
+
+}
+\keyword{TC}
+