diff --git a/R/PaulinoEx13.18.R b/R/PaulinoEx13.18.R
new file mode 100644
index 0000000000000000000000000000000000000000..131c7a9c0323b106c4ceb2f70156c89a7e1f9c34
--- /dev/null
+++ b/R/PaulinoEx13.18.R
@@ -0,0 +1,41 @@
+#' @name PaulinoEx13.18
+#' @title Frequências observadas numa sondagem eleitoral britânica.
+#' @description Os dados apresentados dizem respeito a concretização do 
+#'    presente cenário relacionada com dados de um sondagem eleitoral na 
+#'    Grã-Bretanha (apresentados em Foster e Smith  - 1998), onde para 
+#'    cada entrevistado A, B e C representam o sexo, grupo social e 
+#'    intenção de voto categorizados.
+#' @format Um \code{data.frame} com 50 observações e 4 variáveis.
+#'
+#' \describe{
+#'
+#' \item{\code{sex}}{Sexo do entrevistado.}
+#'
+#' \item{\code{gs}}{Grupo social do entrevistado.}
+#' 
+#' \item{\code{iv}}{Intenção de voto do candidato.}
+#' 
+#' \item{\code{freq}}{Frequências com os valores.}
+#' }
+#' @keywords TC
+#' @source PAULINO; SINGER (2006), Tabela 13.18, pág. 489.
+#' @references Foster, J. J. e Smith, W. F. (1998). Model-based inference 
+#'     for categorical survey data subject to non-ignorable non-response, 
+#'     Journal of the Royal Statistical Society, B 60:57-70.
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(PaulinoEx13.18)
+#' 
+#' dados <- xtabs(freq ~ sex + gs + iv, data = PaulinoEx13.18)
+#' barchart(dados, horizontal = FALSE,
+#'    stack = FALSE,
+#'    scales = list(x = list(labels = c("F", "M"))),
+#'    ylab = "Frequência",
+#'    main = "Frequências observadas numa sondagem eleitoral britânica.",
+#'    auto.key = list(corner = c(0.90, 0.95), 
+#'    text = c("conservador", "democracia", "desconhecido", "outro", 
+#'    "trabalhista")))
+#'        
+NULL
diff --git a/data-raw/PaulinoEx13.18.txt b/data-raw/PaulinoEx13.18.txt
new file mode 100644
index 0000000000000000000000000000000000000000..09d7da2f74a3c82d5f0bd451183dd3c94cff36a0
--- /dev/null
+++ b/data-raw/PaulinoEx13.18.txt
@@ -0,0 +1,51 @@
+sex	gs	iv	freq
+M	profissional liberal 	conservador	26
+M	profissional liberal 	trabalhista	8
+M	profissional liberal 	democracia	7
+M	profissional liberal 	outro	0
+M	profissional liberal 	desconhecido	11
+M	profissional tecnico 	conservador	87
+M	profissional tecnico 	trabalhista	37
+M	profissional tecnico 	democracia	30
+M	profissional tecnico 	outro	6
+M	profissional tecnico 	desconhecido	64
+M	trabalho qualificado 	conservador	66
+M	trabalho qualificado 	trabalhista	77
+M	trabalho qualificado 	democracia	23
+M	trabalho qualificado 	outro	8
+M	trabalho qualificado 	desconhecido	77
+M	trabalho pouco qualificado 	conservador	14
+M	trabalho pouco qualificado 	trabalhista	25
+M	trabalho pouco qualificado 	democracia	15
+M	trabalho pouco qualificado 	outro	1
+M	trabalho pouco qualificado 	desconhecido	12
+M	sem trabalho 	conservador	6
+M	sem trabalho 	trabalhista	6
+M	sem trabalho 	democracia	2
+M	sem trabalho 	outro	0
+M	sem trabalho 	desconhecido	7
+F	profissional liberal 	conservador	1
+F	profissional liberal 	trabalhista	1
+F	profissional liberal 	democracia	0
+F	profissional liberal 	outro	1
+F	profissional liberal 	desconhecido	2
+F	profissional tecnico 	conservador	63
+F	profissional tecnico 	trabalhista	34
+F	profissional tecnico 	democracia	32
+F	profissional tecnico 	outro	2
+F	profissional tecnico 	desconhecido	68
+F	trabalho qualificado 	conservador	102
+F	trabalho qualificado 	trabalhista	52
+F	trabalho qualificado 	democracia	22
+F	trabalho qualificado 	outro	4
+F	trabalho qualificado 	desconhecido	77
+F	trabalho pouco qualificado 	conservador	10
+F	trabalho pouco qualificado 	trabalhista	32
+F	trabalho pouco qualificado 	democracia	10
+F	trabalho pouco qualificado 	outro	2
+F	trabalho pouco qualificado 	desconhecido	38
+F	sem trabalho 	conservador	20
+F	sem trabalho 	trabalhista	25
+F	sem trabalho 	democracia	8
+F	sem trabalho 	outro	2
+F	sem trabalho 	desconhecido	19
diff --git a/data/PaulinoEx13.18.rda b/data/PaulinoEx13.18.rda
new file mode 100644
index 0000000000000000000000000000000000000000..3897c088279bf485912543e7d1dea20c68b52af7
Binary files /dev/null and b/data/PaulinoEx13.18.rda differ
diff --git a/man/PaulinoEx13.18.Rd b/man/PaulinoEx13.18.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..7ab075cb47764f9a6da0fbe548bad5b2ae8e6c27
--- /dev/null
+++ b/man/PaulinoEx13.18.Rd
@@ -0,0 +1,51 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoEx13.18.R
+\name{PaulinoEx13.18}
+\alias{PaulinoEx13.18}
+\title{Frequências observadas numa sondagem eleitoral britânica.}
+\format{Um \code{data.frame} com 50 observações e 4 variáveis.
+
+\describe{
+
+\item{\code{sex}}{Sexo do entrevistado.}
+
+\item{\code{gs}}{Grupo social do entrevistado.}
+
+\item{\code{iv}}{Intenção de voto do candidato.}
+
+\item{\code{freq}}{Frequências com os valores.}
+}}
+\source{
+PAULINO; SINGER (2006), Tabela 13.18, pág. 489.
+}
+\description{
+Os dados apresentados dizem respeito a concretização do 
+   presente cenário relacionada com dados de um sondagem eleitoral na 
+   Grã-Bretanha (apresentados em Foster e Smith  - 1998), onde para 
+   cada entrevistado A, B e C representam o sexo, grupo social e 
+   intenção de voto categorizados.
+}
+\examples{
+
+library(lattice)
+
+data(PaulinoEx13.18)
+
+dados <- xtabs(freq ~ sex + gs + iv, data = PaulinoEx13.18)
+barchart(dados, horizontal = FALSE,
+   stack = FALSE,
+   scales = list(x = list(labels = c("F", "M"))),
+   ylab = "Frequência",
+   main = "Frequências observadas numa sondagem eleitoral britânica.",
+   auto.key = list(corner = c(0.90, 0.95), 
+   text = c("conservador", "democracia", "desconhecido", "outro", 
+   "trabalhista")))
+       
+}
+\references{
+Foster, J. J. e Smith, W. F. (1998). Model-based inference 
+    for categorical survey data subject to non-ignorable non-response, 
+    Journal of the Royal Statistical Society, B 60:57-70.
+}
+\keyword{TC}
+