diff --git a/R/PaulinoEx8.11b.R b/R/PaulinoEx8.11b.R
new file mode 100644
index 0000000000000000000000000000000000000000..dde7d8e8cf3c4fefeecef2d3f5557f3b284cd42f
--- /dev/null
+++ b/R/PaulinoEx8.11b.R
@@ -0,0 +1,34 @@
+#' @name PaulinoEx8.11b
+#' @title Comportamento Predatório da Jararaca
+#' @description Estudo envolvendo o comportamento predatório em
+#'     cativeiro da jararaca (uma das serpentes mais venenosas do
+#'     Brasil). Objetivo do exercício é analisar os dados..
+#' @format Um \code{data.frame} com 4 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{presa1}}{Tipo de bote na primeira presa (envenenamento,
+#'     apreensão).}
+#'
+#' \item{\code{presa2}}{Tipo de bote na segunda presa (envenenamento,
+#'     apreensão).}
+#'     
+#' \item{\code{freq}}{Frequência observada.}
+#'
+#' }
+#' @keywords contingência
+#' @source Paulino, C. D., Singer, J. M. (2006). Análise de Dados 
+#'     Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+#'     (Exercício 8.11 b, pág. 244).
+#' @examples
+#' 
+#' str(PaulinoEx8.11b)
+#' 
+#' xt <- xtabs(freq ~ presa1 + presa2, data = PaulinoEx8.11b)
+#' xt
+#'
+#' mosaicplot(xt, main = NULL,
+#'            xlab = "Tipo de bote na primeira presa",
+#'            ylab = "Tipo de bote na segunda presa")
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/PaulinoEx8.11b.txt b/data-raw/PaulinoEx8.11b.txt
new file mode 100644
index 0000000000000000000000000000000000000000..3472bec1b2ea16d58cd55536bb9cc1d6cd08fa8e
--- /dev/null
+++ b/data-raw/PaulinoEx8.11b.txt
@@ -0,0 +1,5 @@
+presa1	presa2	freq
+envenenamento	envenenamento	8
+envenenamento	apreensao	10
+apreensao	envenenamento	0
+apreensao	apreensao	11
diff --git a/data/PaulinoEx8.11b.rda b/data/PaulinoEx8.11b.rda
new file mode 100644
index 0000000000000000000000000000000000000000..be7851f18d59cad03209f3e9dd6ac324be981463
Binary files /dev/null and b/data/PaulinoEx8.11b.rda differ
diff --git a/man/PaulinoEx8.11b.Rd b/man/PaulinoEx8.11b.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..1eec0e33d56f24e95b38d5d3583dfe467156c668
--- /dev/null
+++ b/man/PaulinoEx8.11b.Rd
@@ -0,0 +1,42 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoEx8.11b.R
+\name{PaulinoEx8.11b}
+\alias{PaulinoEx8.11b}
+\title{Comportamento Predatório da Jararaca}
+\format{Um \code{data.frame} com 4 observações e 3 variáveis, em que
+
+\describe{
+
+\item{\code{presa1}}{Tipo de bote na primeira presa (envenenamento,
+    apreensão).}
+
+\item{\code{presa2}}{Tipo de bote na segunda presa (envenenamento,
+    apreensão).}
+    
+\item{\code{freq}}{Frequência observada.}
+
+}}
+\source{
+Paulino, C. D., Singer, J. M. (2006). Análise de Dados 
+    Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+    (Exercício 8.11 b, pág. 244).
+}
+\description{
+Estudo envolvendo o comportamento predatório em
+    cativeiro da jararaca (uma das serpentes mais venenosas do
+    Brasil). Objetivo do exercício é analisar os dados..
+}
+\examples{
+
+str(PaulinoEx8.11b)
+
+xt <- xtabs(freq ~ presa1 + presa2, data = PaulinoEx8.11b)
+xt
+
+mosaicplot(xt, main = NULL,
+           xlab = "Tipo de bote na primeira presa",
+           ylab = "Tipo de bote na segunda presa")
+
+}
+\keyword{contingência}
+