diff --git a/R/PaulinoTb10.4.R b/R/PaulinoTb10.4.R
new file mode 100644
index 0000000000000000000000000000000000000000..ef0335c9ba8cc2bda1ae5d338902672ce91abd51
--- /dev/null
+++ b/R/PaulinoTb10.4.R
@@ -0,0 +1,51 @@
+#' @name PaulinoTb10.4
+#' @title Suscetibilidade à Síndrome de Malária Celebral
+#' @description Estudo de genética experimental cujo objetivo é mapear
+#'     a suscetibilidade à síndrome de malária celebral (SMC) em
+#'     camundongos. Para a realização do estudo, foram considerados os
+#'     genótipos em dois loci, identificados como relevantes para o
+#'     fenótipo (doença) em causas em animais de progenia F2 resultantes
+#'     do retrocruzamento da progenia F1 (obtida por cruzamento entre
+#'     uma estripe suscetível (s) e outra resistente (r)) com os seus
+#'     progenitores da estripe suscetível.
+#' @format Um \code{data.frame} com 8 observações e 4 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{locus1}}{Genótipos localizados no locus 1.}
+#'
+#' \item{\code{locus2}}{Genótipos no locus 2.}
+#'
+#' \item{\code{smc}}{Suscetibilidade ao SMC (suscetíveis, resistentes).}
+#'
+#' \item{\code{freq}}{Número de camundongos.}
+#'
+#' }
+#' @keywords TC binomial
+#' @source PAULINO; SINGER (2006), Tabela 10.4, pág. 361.
+#' @examples
+#'
+#' data(PaulinoTb10.4)
+#'
+#' str(PaulinoTb10.4)
+#'
+#' xt <- xtabs(freq ~ ., data = PaulinoTb10.4)
+#' ftable(xt)
+#'
+#' library(lattice)
+#'
+#' barchart(freq ~ locus1 | locus2, groups = smc,
+#'          data = PaulinoTb10.4,
+#'          horizontal = FALSE,
+#'          beside = FALSE,
+#'          stack = FALSE,
+#'          auto.key = list(space = "top", columns = 2, cex.title = 1,
+#'                          rectangles = TRUE, points = FALSE,
+#'                          title = "SMC"),
+#'          xlab = "Locus1",
+#'          ylab = "Frequências",
+#'          strip = strip.custom(
+#'              strip.names = TRUE,
+#'              var.name = "Locus2"))
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/PaulinoTb10.4.txt b/data-raw/PaulinoTb10.4.txt
new file mode 100644
index 0000000000000000000000000000000000000000..622259968c98a488ebde1b3385183fb42140d897
--- /dev/null
+++ b/data-raw/PaulinoTb10.4.txt
@@ -0,0 +1,9 @@
+locus1	locus2	smc	freq
+s1s1	s2s2	suscetiveis	35
+s1s1	s2s2	resistentes	10
+s1s1	s2r2	suscetiveis	25
+s1s1	s2r2	resistentes	23
+s1r1	s2s2	suscetiveis	27
+s1r1	s2s2	resistentes	21
+s1r1	s2r2	suscetiveis	9
+s1r1	s2r2	resistentes	40
diff --git a/data/PaulinoTb10.4.rda b/data/PaulinoTb10.4.rda
new file mode 100644
index 0000000000000000000000000000000000000000..872cde8a9052b36385e548d09daf946008ec5e01
Binary files /dev/null and b/data/PaulinoTb10.4.rda differ
diff --git a/man/PaulinoTb10.4.Rd b/man/PaulinoTb10.4.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..81914c1bdcf522bc129cbe87cc92263169ded8b1
--- /dev/null
+++ b/man/PaulinoTb10.4.Rd
@@ -0,0 +1,60 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoTb10.4.R
+\name{PaulinoTb10.4}
+\alias{PaulinoTb10.4}
+\title{Suscetibilidade à Síndrome de Malária Celebral}
+\format{Um \code{data.frame} com 8 observações e 4 variáveis, em que
+
+\describe{
+
+\item{\code{locus1}}{Genótipos localizados no locus 1.}
+
+\item{\code{locus2}}{Genótipos no locus 2.}
+
+\item{\code{smc}}{Suscetibilidade ao SMC (suscetíveis, resistentes).}
+
+\item{\code{freq}}{Número de camundongos.}
+
+}}
+\source{
+PAULINO; SINGER (2006), Tabela 10.4, pág. 361.
+}
+\description{
+Estudo de genética experimental cujo objetivo é mapear
+    a suscetibilidade à síndrome de malária celebral (SMC) em
+    camundongos. Para a realização do estudo, foram considerados os
+    genótipos em dois loci, identificados como relevantes para o
+    fenótipo (doença) em causas em animais de progenia F2 resultantes
+    do retrocruzamento da progenia F1 (obtida por cruzamento entre
+    uma estripe suscetível (s) e outra resistente (r)) com os seus
+    progenitores da estripe suscetível.
+}
+\examples{
+
+data(PaulinoTb10.4)
+
+str(PaulinoTb10.4)
+
+xt <- xtabs(freq ~ ., data = PaulinoTb10.4)
+ftable(xt)
+
+library(lattice)
+
+barchart(freq ~ locus1 | locus2, groups = smc,
+         data = PaulinoTb10.4,
+         horizontal = FALSE,
+         beside = FALSE,
+         stack = FALSE,
+         auto.key = list(space = "top", columns = 2, cex.title = 1,
+                         rectangles = TRUE, points = FALSE,
+                         title = "SMC"),
+         xlab = "Locus1",
+         ylab = "Frequências",
+         strip = strip.custom(
+             strip.names = TRUE,
+             var.name = "Locus2"))
+
+}
+\keyword{TC}
+\keyword{binomial}
+