diff --git a/R/PaulinoTb6.2.R b/R/PaulinoTb6.2.R
new file mode 100644
index 0000000000000000000000000000000000000000..da9df023ea24c60edce3d9ee6dc29d6e662b25f8
--- /dev/null
+++ b/R/PaulinoTb6.2.R
@@ -0,0 +1,49 @@
+#' @name PaulinoTb6.2
+#' @title Pacientes com Complicação Pulmonar 
+#' @description Estudo envolvendo a avaliação pulmonar pré-operatória de
+#'     1162 pacientes e a ocorrência de complicação pulmonar no
+#'     pós-operatório de cirurgia geral. 
+#' @format Um \code{data.frame} com 6 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{preop}}{Avaliação pré-operatória do grau de complicação
+#'     pulmonar.}
+#'
+#' \item{\code{posop}}{Avalição pulmonar pós-operatória (sem ou com
+#'     complicação).}
+#'
+#' \item{\code{npaci}}{Número de pacientes.}
+#'
+#' }
+#' @keywords binomial contingência
+#' @source Paulino, C. D., Singer, J. M. (2006). Análise de Dados 
+#'     Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+#'     (Tabela 6.2, pág. 150).
+#'
+#'     Barros, J. A. (1994). Avaliação pulmonar pré-operatória em
+#'     candidatos a cirurgia geral eletiva, Dissertação de mestrado,
+#'     Escola Paulista de Medicina, Universidade Federal de São Paulo.
+#' @examples
+#'
+#' xt <- xtabs(npaci ~ preop + posop, data = PaulinoTb6.2)
+#' xt
+#'
+#' mosaicplot(xt, main = NULL,
+#'            xlab = "Avaliação pré-operatória",
+#'            ylab = "Avaliação pós-operatória")
+#'
+#' library(lattice)
+#' 
+#' barchart(xt,
+#'          horizontal = FALSE,
+#'          beside = FALSE,
+#'          stack = FALSE,
+#'          auto.key = list(space = "top", columns = 2,
+#'                          cex.title = 1, rectangles = TRUE,
+#'                          points = FALSE,
+#'                          title = "Avaliação pós-operatória"),
+#'          xlab = "Avaliação pré-operatória",
+#'          ylab = "Frequência")
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/PaulinoTb6.2.txt b/data-raw/PaulinoTb6.2.txt
new file mode 100644
index 0000000000000000000000000000000000000000..4946158b7a7a65c4bc38138b36c4ab9a87bc697d
--- /dev/null
+++ b/data-raw/PaulinoTb6.2.txt
@@ -0,0 +1,7 @@
+preop	posop	npaci
+baixo	sem	737
+baixo	com	48
+moderado	sem	243
+moderado	com	74
+alto	sem	39
+alto	com	21
diff --git a/data/PaulinoTb6.2.rda b/data/PaulinoTb6.2.rda
new file mode 100644
index 0000000000000000000000000000000000000000..0884e14c81e5583f667f317c3600275138e0d1b0
Binary files /dev/null and b/data/PaulinoTb6.2.rda differ
diff --git a/man/PaulinoTb6.2.Rd b/man/PaulinoTb6.2.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..205f74f227b5b69ef16beda3a6ee64f1c8771685
--- /dev/null
+++ b/man/PaulinoTb6.2.Rd
@@ -0,0 +1,58 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoTb6.2.R
+\name{PaulinoTb6.2}
+\alias{PaulinoTb6.2}
+\title{Pacientes com Complicação Pulmonar}
+\format{Um \code{data.frame} com 6 observações e 3 variáveis, em que
+
+\describe{
+
+\item{\code{preop}}{Avaliação pré-operatória do grau de complicação
+    pulmonar.}
+
+\item{\code{posop}}{Avalição pulmonar pós-operatória (sem ou com
+    complicação).}
+
+\item{\code{npaci}}{Número de pacientes.}
+
+}}
+\source{
+Paulino, C. D., Singer, J. M. (2006). Análise de Dados 
+    Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+    (Tabela 6.2, pág. 150).
+
+    Barros, J. A. (1994). Avaliação pulmonar pré-operatória em
+    candidatos a cirurgia geral eletiva, Dissertação de mestrado,
+    Escola Paulista de Medicina, Universidade Federal de São Paulo.
+}
+\description{
+Estudo envolvendo a avaliação pulmonar pré-operatória de
+    1162 pacientes e a ocorrência de complicação pulmonar no
+    pós-operatório de cirurgia geral.
+}
+\examples{
+
+xt <- xtabs(npaci ~ preop + posop, data = PaulinoTb6.2)
+xt
+
+mosaicplot(xt, main = NULL,
+           xlab = "Avaliação pré-operatória",
+           ylab = "Avaliação pós-operatória")
+
+library(lattice)
+
+barchart(xt,
+         horizontal = FALSE,
+         beside = FALSE,
+         stack = FALSE,
+         auto.key = list(space = "top", columns = 2,
+                         cex.title = 1, rectangles = TRUE,
+                         points = FALSE,
+                         title = "Avaliação pós-operatória"),
+         xlab = "Avaliação pré-operatória",
+         ylab = "Frequência")
+
+}
+\keyword{binomial}
+\keyword{contingência}
+