diff --git a/R/PaulinoTb14.1.R b/R/PaulinoTb14.1.R
new file mode 100644
index 0000000000000000000000000000000000000000..d1d9995a550dcf1870a16abdbf0567205eecf741
--- /dev/null
+++ b/R/PaulinoTb14.1.R
@@ -0,0 +1,45 @@
+#' @name PaulinoTb14.1
+#' @title Respostas das técnicas A e D na subamostra dos casos.
+#' @description  Singer, Correia e Paschoalinoto (1989) descrevem um 
+#'     estudo sobre técnicas serológicas de diagnóstico da 
+#'     esquistossomíase, tendo como objetivo a comparação de uma dada 
+#'     técnica padrão (rotulada por A), conhecida pela sua rapidez e 
+#'     precisão nos resultados, com outras técnicas alternativas 
+#'     (rotuladas por B, C e D). A amostra envolveu dois grupos de 
+#'     50 indivíduos, um constituído por pacientes com esquistossomíase 
+#'     comprovada (casos) e outro por indivíduos sem a referida doença. 
+#'     A partir das amostras de sangue de cada um dos indivíduos 
+#'     registrou-se a resposta (positiva ou negativa) produzida por cada 
+#'     técnica serológica. Neste caso averigua-se-á a igualdade das 
+#'     sensibilidades entre a técnica padrão e a técnica alternativa D, 
+#'     através do teste condicional exacto da hipótese nula de 
+#'     homogeneidade marginal, isto é, de simetria.
+#' @format Um \code{data.frame} com 4 observações e 3 variáveis.
+#'
+#' \describe{
+#'
+#' \item{\code{tecA}}{Técnica A (padrão).}
+#'
+#' \item{\code{tecD}}{Técnica alternativa D.}
+#' 
+#' \item{\code{freq}}{Frequências com os valores obtidos.}
+#'
+#' }
+#' @keywords TC
+#' @source PAULINO; SINGER (2006), Tabela 14.1, pág. 498.
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(PaulinoTb14.1)
+#' 
+#' dados <- xtabs(freq ~ tecA + tecD, data = PaulinoTb14.1)
+#' barchart(dados, horizontal = FALSE,
+#'    stack = FALSE,
+#'    scales = list(x = list(labels = c("Negativa", "Positiva"))),
+#'    ylab = "Frequência",
+#'    main = "Respostas das técnicas A e D na subamostra dos casos.",
+#'    auto.key = list(corner = c(0.05, 0.95), 
+#'    text = c("Negativa", "Positiva")))
+#'
+NULL
diff --git a/data-raw/PaulinoTb14.1.txt b/data-raw/PaulinoTb14.1.txt
new file mode 100644
index 0000000000000000000000000000000000000000..e6c1e1744a5dae2c17ae4f613cb22c040ca79c31
--- /dev/null
+++ b/data-raw/PaulinoTb14.1.txt
@@ -0,0 +1,5 @@
+tecA	tecD	freq
+positiva	positiva	44
+positiva	negativa	0
+negativa	positiva	4
+negativa	negativa	2
diff --git a/data/PaulinoTb14.1.rda b/data/PaulinoTb14.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..bf192bc0a2cab008c64385e846f0b6196b01489a
Binary files /dev/null and b/data/PaulinoTb14.1.rda differ
diff --git a/man/PaulinoTb14.1.Rd b/man/PaulinoTb14.1.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..e8b7af39254409735faaa278083e899a947dab16
--- /dev/null
+++ b/man/PaulinoTb14.1.Rd
@@ -0,0 +1,53 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoTb14.1.R
+\name{PaulinoTb14.1}
+\alias{PaulinoTb14.1}
+\title{Respostas das técnicas A e D na subamostra dos casos.}
+\format{Um \code{data.frame} com 4 observações e 3 variáveis.
+
+\describe{
+
+\item{\code{tecA}}{Técnica A (padrão).}
+
+\item{\code{tecD}}{Técnica alternativa D.}
+
+\item{\code{freq}}{Frequências com os valores obtidos.}
+
+}}
+\source{
+PAULINO; SINGER (2006), Tabela 14.1, pág. 498.
+}
+\description{
+Singer, Correia e Paschoalinoto (1989) descrevem um 
+    estudo sobre técnicas serológicas de diagnóstico da 
+    esquistossomíase, tendo como objetivo a comparação de uma dada 
+    técnica padrão (rotulada por A), conhecida pela sua rapidez e 
+    precisão nos resultados, com outras técnicas alternativas 
+    (rotuladas por B, C e D). A amostra envolveu dois grupos de 
+    50 indivíduos, um constituído por pacientes com esquistossomíase 
+    comprovada (casos) e outro por indivíduos sem a referida doença. 
+    A partir das amostras de sangue de cada um dos indivíduos 
+    registrou-se a resposta (positiva ou negativa) produzida por cada 
+    técnica serológica. Neste caso averigua-se-á a igualdade das 
+    sensibilidades entre a técnica padrão e a técnica alternativa D, 
+    através do teste condicional exacto da hipótese nula de 
+    homogeneidade marginal, isto é, de simetria.
+}
+\examples{
+
+library(lattice)
+
+data(PaulinoTb14.1)
+
+dados <- xtabs(freq ~ tecA + tecD, data = PaulinoTb14.1)
+barchart(dados, horizontal = FALSE,
+   stack = FALSE,
+   scales = list(x = list(labels = c("Negativa", "Positiva"))),
+   ylab = "Frequência",
+   main = "Respostas das técnicas A e D na subamostra dos casos.",
+   auto.key = list(corner = c(0.05, 0.95), 
+   text = c("Negativa", "Positiva")))
+
+}
+\keyword{TC}
+