diff --git a/R/PaulinoEx10.6.R b/R/PaulinoEx10.6.R
new file mode 100644
index 0000000000000000000000000000000000000000..403123b928d219ee2aabd08a64ede2cf3e8be70c
--- /dev/null
+++ b/R/PaulinoEx10.6.R
@@ -0,0 +1,50 @@
+#' @name PaulinoEx10.6
+#' @title Hipertensão Arterial Medida Através da Sensibilidade ao Sal
+#' @description Em um estudo sobre hipertensão arterial, pacientes foram
+#'     avaliados quanto a sensibilidade ao sal através de um método
+#'     usual e um método experimental (utiliza a fludrocortizona como
+#'     agente potencializador da sensibilidade). Sob cada método, o
+#'     paciente foi classificado em uma das três categorias: sensível ao
+#'     sal, inconclusivo e insensível ao sal.
+#' @format Um \code{data.frame} com 18 observações e 4 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{estudo}}{Paciente avaliado no estudo 1 ou 2.}
+#'
+#' \item{\code{usual}}{Avaliação segundo o método usual (insensível,
+#'     inconclusivo ou sensível ao sal).}
+#'
+#' \item{\code{exper}}{Avaliação segundo o método experimental
+#'     (insensível, inconclusivo ou sensível ao sal).}
+#'
+#' \item{\code{freq}}{Número de pacientes avaliados.}
+#'
+#' }
+#' @keywords TC dicotômica
+#' @source PAULINO; SINGER (2006), Exercício 10.6, pág. 368.
+#' @examples
+#'
+#' data(PaulinoEx10.6)
+#'
+#' str(PaulinoEx10.6)
+#'
+#' xt <- xtabs(freq ~ ., data = PaulinoEx10.6)
+#' ftable(xt)
+#'
+#' library(lattice)
+#'
+#' barchart(xt,
+#'          horizontal = FALSE,
+#'          beside = FALSE,
+#'          stack = FALSE,
+#'          auto.key = list(space = "top", columns = 3, cex.title = 1,
+#'                          rectangles = TRUE, points = FALSE,
+#'                          title = "Método experimental"),
+#'          xlab = "Estudo",
+#'          ylab = "Frequências",
+#'          strip = strip.custom(
+#'              strip.names = TRUE,
+#'              var.name = "método usual"))
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/PaulinoEx10.6.txt b/data-raw/PaulinoEx10.6.txt
new file mode 100644
index 0000000000000000000000000000000000000000..55fa15c10775b15bff5f13c09fefdc6cc2458336
--- /dev/null
+++ b/data-raw/PaulinoEx10.6.txt
@@ -0,0 +1,19 @@
+estudo	usual	exper	freq
+1	insensivel	insensivel	5
+1	insensivel	inconclusivo	2
+1	insensivel	sensivel	2
+1	inconclusivo	insensivel	1
+1	inconclusivo	inconclusivo	3
+1	inconclusivo	sensivel	1
+1	sensivel	insensivel	2
+1	sensivel	inconclusivo	2
+1	sensivel	sensivel	9
+2	insensivel	insensivel	3
+2	insensivel	inconclusivo	2
+2	insensivel	sensivel	2
+2	inconclusivo	insensivel	3
+2	inconclusivo	inconclusivo	5
+2	inconclusivo	sensivel	2
+2	sensivel	insensivel	5
+2	sensivel	inconclusivo	3
+2	sensivel	sensivel	8
diff --git a/data/PaulinoEx10.6.rda b/data/PaulinoEx10.6.rda
new file mode 100644
index 0000000000000000000000000000000000000000..dbaba756aba44ed698b59996681d9251ee8e63d2
Binary files /dev/null and b/data/PaulinoEx10.6.rda differ
diff --git a/man/PaulinoEx10.6.Rd b/man/PaulinoEx10.6.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..17fd77f703fbb442734dd4683dd98dee7fcef84c
--- /dev/null
+++ b/man/PaulinoEx10.6.Rd
@@ -0,0 +1,59 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoEx10.6.R
+\name{PaulinoEx10.6}
+\alias{PaulinoEx10.6}
+\title{Hipertensão Arterial Medida Através da Sensibilidade ao Sal}
+\format{Um \code{data.frame} com 18 observações e 4 variáveis, em que
+
+\describe{
+
+\item{\code{estudo}}{Paciente avaliado no estudo 1 ou 2.}
+
+\item{\code{usual}}{Avaliação segundo o método usual (insensível,
+    inconclusivo ou sensível ao sal).}
+
+\item{\code{exper}}{Avaliação segundo o método experimental
+    (insensível, inconclusivo ou sensível ao sal).}
+
+\item{\code{freq}}{Número de pacientes avaliados.}
+
+}}
+\source{
+PAULINO; SINGER (2006), Exercício 10.6, pág. 368.
+}
+\description{
+Em um estudo sobre hipertensão arterial, pacientes foram
+    avaliados quanto a sensibilidade ao sal através de um método
+    usual e um método experimental (utiliza a fludrocortizona como
+    agente potencializador da sensibilidade). Sob cada método, o
+    paciente foi classificado em uma das três categorias: sensível ao
+    sal, inconclusivo e insensível ao sal.
+}
+\examples{
+
+data(PaulinoEx10.6)
+
+str(PaulinoEx10.6)
+
+xt <- xtabs(freq ~ ., data = PaulinoEx10.6)
+ftable(xt)
+
+library(lattice)
+
+barchart(xt,
+         horizontal = FALSE,
+         beside = FALSE,
+         stack = FALSE,
+         auto.key = list(space = "top", columns = 3, cex.title = 1,
+                         rectangles = TRUE, points = FALSE,
+                         title = "Método experimental"),
+         xlab = "Estudo",
+         ylab = "Frequências",
+         strip = strip.custom(
+             strip.names = TRUE,
+             var.name = "método usual"))
+
+}
+\keyword{TC}
+\keyword{dicotômica}
+