diff --git a/R/PaulinoEx13.17.R b/R/PaulinoEx13.17.R
new file mode 100644
index 0000000000000000000000000000000000000000..bb0997333d83848acc314614342af16a775136ae
--- /dev/null
+++ b/R/PaulinoEx13.17.R
@@ -0,0 +1,45 @@
+#' @name PaulinoEx13.17
+#' @title Frequências observadas em mulheres com síndrome de Turner.
+#' @description Um estudo sobre a síndrome de Turner (anomalia genética
+#' nos cromossomas sexuais das mulheres) discutidos em Nordheim
+#' (1984). As variáveis indicam a presença ou não (X) de um sintoma
+#' particular da síndrome (o peito liso), a maior (1) ou menor (2)
+#' fiabilidade (Y) dos procedimentos clínicos na avaliação de A e o
+#' método de apuramento dos pacientes (Z) indicado pelas razões
+#' por que estes procuram assistência médica categorizado em: 1)
+#' aparência geral; 2) amenorreia primária; 3) baixa estatura; 4)
+#' combinação de 2) e 3); 5) motivos não relacionados com a síndrome.
+#' @format Um \code{data.frame} com 30 observações e 4 variáveis.
+#'
+#' \describe{
+#'
+#' \item{\code{esX}}{Estado do sintoma X.}
+#'
+#' \item{\code{gfY}}{Grupo de fiabilidade Y.}
+#'
+#' \item{\code{ma}}{Método de apuramento.}
+#'
+#' \item{\code{freq}}{Frequência com os valores.}
+#' }
+#' @keywords TC
+#' @source PAULINO; SINGER (2006), Tabela 13.17, pág. 488.
+#' @references Molenberghs, G. e Goetghebeur, E. J. T. (1997). Simple
+#' fitting algorithms for incomplete categorical data, Journal of
+#' the Royal Statistical Society, B 59:401-414.
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(PaulinoEx13.16)
+#'
+#' dados <- xtabs(freq ~ gfY + esX + ma, data = PaulinoEx13.17)
+#' barchart(dados, horizontal = FALSE,
+#' stack = FALSE,
+#' scales = list(x = list(labels = c("mais fiável (1)",
+#' "menos fiável (2)"))),
+#' ylab = "Frequência",
+#' main = "Frequências observadas em mulheres com síndrome de Turner.",
+#' auto.key = list(corner = c(0.90, 0.95),
+#' text = c("1", "2", "3", "4", "5")))
+#'
+NULL
diff --git a/data-raw/PaulinoEx13.17.txt b/data-raw/PaulinoEx13.17.txt
new file mode 100644
index 0000000000000000000000000000000000000000..7efe6a421c7a2b15d49a06ba7f7969503c172074
--- /dev/null
+++ b/data-raw/PaulinoEx13.17.txt
@@ -0,0 +1,31 @@
+esX gfY ma freq
+presente (1) mais fiavel (1) 1 30
+presente (1) mais fiavel (1) 2 22
+presente (1) mais fiavel (1) 3 23
+presente (1) mais fiavel (1) 4 12
+presente (1) mais fiavel (1) 5 14
+presente (1) menos fiavel (2) 1 102
+presente (1) menos fiavel (2) 2 52
+presente (1) menos fiavel (2) 3 17
+presente (1) menos fiavel (2) 4 7
+presente (1) menos fiavel (2) 5 22
+ausente (2) mais fiavel (1) 1 15
+ausente (2) mais fiavel (1) 2 10
+ausente (2) mais fiavel (1) 3 4
+ausente (2) mais fiavel (1) 4 3
+ausente (2) mais fiavel (1) 5 3
+ausente (2) menos fiavel (2) 1 26
+ausente (2) menos fiavel (2) 2 16
+ausente (2) menos fiavel (2) 3 10
+ausente (2) menos fiavel (2) 4 8
+ausente (2) menos fiavel (2) 5 5
+omisso mais fiavel (1) 1 41
+omisso mais fiavel (1) 2 8
+omisso mais fiavel (1) 3 6
+omisso mais fiavel (1) 4 6
+omisso mais fiavel (1) 5 3
+omisso menos fiavel (2) 1 39
+omisso menos fiavel (2) 2 37
+omisso menos fiavel (2) 3 3
+omisso menos fiavel (2) 4 1
+omisso menos fiavel (2) 5 8
diff --git a/data/PaulinoEx13.17.rda b/data/PaulinoEx13.17.rda
new file mode 100644
index 0000000000000000000000000000000000000000..c026dbfea6923da4acaa347ed3aec33c137db693
Binary files /dev/null and b/data/PaulinoEx13.17.rda differ
diff --git a/man/PaulinoEx13.17.Rd b/man/PaulinoEx13.17.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..b312ef4f49f49e7c32c5d67a6f187c3479fae294
--- /dev/null
+++ b/man/PaulinoEx13.17.Rd
@@ -0,0 +1,55 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoEx13.17.R
+\name{PaulinoEx13.17}
+\alias{PaulinoEx13.17}
+\title{Frequências observadas em mulheres com síndrome de Turner.}
+\format{Um \code{data.frame} com 30 observações e 4 variáveis.
+
+\describe{
+
+\item{\code{esX}}{Estado do sintoma X.}
+
+\item{\code{gfY}}{Grupo de fiabilidade Y.}
+
+\item{\code{ma}}{Método de apuramento.}
+
+\item{\code{freq}}{Frequência com os valores.}
+}}
+\source{
+PAULINO; SINGER (2006), Tabela 13.17, pág. 488.
+}
+\description{
+Um estudo sobre a síndrome de Turner (anomalia genética
+ nos cromossomas sexuais das mulheres) discutidos em Nordheim
+ (1984). As variáveis indicam a presença ou não (X) de um sintoma
+ particular da síndrome (o peito liso), a maior (1) ou menor (2)
+ fiabilidade (Y) dos procedimentos clínicos na avaliação de A e o
+ método de apuramento dos pacientes (Z) indicado pelas razões
+ por que estes procuram assistência médica categorizado em: 1)
+ aparência geral; 2) amenorreia primária; 3) baixa estatura; 4)
+ combinação de 2) e 3); 5) motivos não relacionados com a síndrome.
+}
+\examples{
+
+library(lattice)
+
+data(PaulinoEx13.16)
+
+dados <- xtabs(freq ~ gfY + esX + ma, data = PaulinoEx13.17)
+barchart(dados, horizontal = FALSE,
+ stack = FALSE,
+ scales = list(x = list(labels = c("mais fiável (1)",
+ "menos fiável (2)"))),
+ ylab = "Frequência",
+ main = "Frequências observadas em mulheres com síndrome de Turner.",
+ auto.key = list(corner = c(0.90, 0.95),
+ text = c("1", "2", "3", "4", "5")))
+
+}
+\references{
+Molenberghs, G. e Goetghebeur, E. J. T. (1997). Simple
+ fitting algorithms for incomplete categorical data, Journal of
+ the Royal Statistical Society, B 59:401-414.
+}
+\keyword{TC}
+