diff --git a/R/PaulinoTb1.16.R b/R/PaulinoTb1.16.R
new file mode 100644
index 0000000000000000000000000000000000000000..3a34f3892273aadba0382ec6da11f51c4808f350
--- /dev/null
+++ b/R/PaulinoTb1.16.R
@@ -0,0 +1,42 @@
+#' @name PaulinoTb1.16
+#' @title Microinfiltração em Dentes Molares
+#' @description Estudo realizado na Faculdade de Odontologia da
+#'     Universidade de São Paulo em que cada um de três avaliadores
+#'     classifico 72 molares selados com diferentes materiais segundo o
+#'     nível de microinfiltração numa escala de 0 (sem microinfiltração)
+#'     até 4 (microinfiltração intensa).
+#' @format Um \code{data.frame} com 72 observações e 4 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{mat}}{Tipo de material usado para selar os molares.}
+#'
+#' \item{\code{A}}{Classificação dos molares segundo o avaliador A.}
+#'
+#' \item{\code{B}}{Classificação dos molares segundo o avaliador B.}
+#'
+#' \item{\code{C}}{Classificação dos molares segundo o avaliador C.}
+#'
+#' }
+#' @keywords dados-categorizados
+#' @source Paulino, C. D., Singer, J. M. (2006). Análise de Dados 
+#'     Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+#'     (Tabela 1.16, pág. 18).
+#' @examples
+#'
+#' str(PaulinoTb1.16)
+#'
+#' library(reshape2)
+#'
+#' da <- melt(PaulinoTb1.16, id.vars = "mat")
+#' table(PaulinoTb1.16)
+#'
+#' library(lattice)
+#'
+#' barchart(value ~ variable | mat, data = da,
+#'          stack = FALSE,
+#'          horizontal = FALSE,
+#'          xlab = "Avaliadores",
+#'          ylab = "Frequência")
+#'
+NULL
diff --git a/data-raw/PaulinoTb1.16.txt b/data-raw/PaulinoTb1.16.txt
new file mode 100644
index 0000000000000000000000000000000000000000..5b673e48c3ea8afee376ed4d903461917f41c2b0
--- /dev/null
+++ b/data-raw/PaulinoTb1.16.txt
@@ -0,0 +1,73 @@
+mat	A	B	C
+allbond	0	2	0
+allbond	2	2	2
+allbond	2	2	2
+allbond	0	2	1
+allbond	2	2	1
+allbond	4	4	2
+allbond	0	2	1
+allbond	1	1	1
+allbond	2	2	2
+allbond	1	2	2
+allbond	1	0	3
+allbond	2	1	2
+allbond	1	2	0
+allbond	2	2	1
+allbond	2	2	1
+allbond	3	3	3
+allbond	0	3	0
+allbond	3	1	1
+allbond	1	2	2
+allbond	3	3	2
+allbond	1	0	1
+allbond	3	3	2
+allbond	3	3	1
+allbond	2	2	2
+optibond	0	2	0
+optibond	0	0	0
+optibond	1	1	1
+optibond	0	0	0
+optibond	0	0	1
+optibond	1	3	1
+optibond	0	1	1
+optibond	3	3	4
+optibond	1	2	1
+optibond	0	0	1
+optibond	2	2	1
+optibond	0	2	1
+optibond	1	2	2
+optibond	0	1	1
+optibond	0	0	0
+optibond	1	1	1
+optibond	0	0	1
+optibond	1	1	1
+optibond	0	2	0
+optibond	1	1	1
+optibond	0	0	1
+optibond	1	0	1
+optibond	1	1	1
+optibond	0	1	1
+scotchbond	0	0	3
+scotchbond	3	4	3
+scotchbond	2	2	1
+scotchbond	3	4	3
+scotchbond	1	2	1
+scotchbond	2	0	1
+scotchbond	3	3	2
+scotchbond	3	3	3
+scotchbond	2	4	2
+scotchbond	3	3	2
+scotchbond	0	0	0
+scotchbond	2	3	1
+scotchbond	1	2	2
+scotchbond	2	2	3
+scotchbond	1	1	1
+scotchbond	0	0	1
+scotchbond	3	3	0
+scotchbond	1	3	1
+scotchbond	3	2	1
+scotchbond	3	4	4
+scotchbond	4	3	1
+scotchbond	3	2	3
+scotchbond	1	1	1
+scotchbond	3	3	3
diff --git a/data/PaulinoTb1.16.rda b/data/PaulinoTb1.16.rda
new file mode 100644
index 0000000000000000000000000000000000000000..bd80819e0210b6a1895d2c224adc4bd47e275a4f
Binary files /dev/null and b/data/PaulinoTb1.16.rda differ
diff --git a/man/PaulinoTb1.16.Rd b/man/PaulinoTb1.16.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..c8d83cae8819be19e00d4330f9e5646a6cd31697
--- /dev/null
+++ b/man/PaulinoTb1.16.Rd
@@ -0,0 +1,50 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoTb1.16.R
+\name{PaulinoTb1.16}
+\alias{PaulinoTb1.16}
+\title{Microinfiltração em Dentes Molares}
+\format{Um \code{data.frame} com 72 observações e 4 variáveis, em que
+
+\describe{
+
+\item{\code{mat}}{Tipo de material usado para selar os molares.}
+
+\item{\code{A}}{Classificação dos molares segundo o avaliador A.}
+
+\item{\code{B}}{Classificação dos molares segundo o avaliador B.}
+
+\item{\code{C}}{Classificação dos molares segundo o avaliador C.}
+
+}}
+\source{
+Paulino, C. D., Singer, J. M. (2006). Análise de Dados 
+    Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+    (Tabela 1.16, pág. 18).
+}
+\description{
+Estudo realizado na Faculdade de Odontologia da
+    Universidade de São Paulo em que cada um de três avaliadores
+    classifico 72 molares selados com diferentes materiais segundo o
+    nível de microinfiltração numa escala de 0 (sem microinfiltração)
+    até 4 (microinfiltração intensa).
+}
+\examples{
+
+str(PaulinoTb1.16)
+
+library(reshape2)
+
+da <- melt(PaulinoTb1.16, id.vars = "mat")
+table(PaulinoTb1.16)
+
+library(lattice)
+
+barchart(value ~ variable | mat, data = da,
+         stack = FALSE,
+         horizontal = FALSE,
+         xlab = "Avaliadores",
+         ylab = "Frequência")
+
+}
+\keyword{dados-categorizados}
+