diff --git a/R/PaulinoEx8.10.R b/R/PaulinoEx8.10.R
new file mode 100644
index 0000000000000000000000000000000000000000..d087eb97ee364facfbde40b80ea0d46d252d4678
--- /dev/null
+++ b/R/PaulinoEx8.10.R
@@ -0,0 +1,47 @@
+#' @name PaulinoEx8.10
+#' @title Ensaio Clínico de Pacientes com Úlcera Duodenal
+#' @description Ensaio clínico envolvendo pacientes com úlcera duodenal.
+#'     Os pacientes foram aleatoriamente submetidos a um de quatro tipos
+#'     de cirurgia. Três destas operação envolveram vagotomia, diferindo
+#'     entre elas pelo grau de resseção estomacal eventualmente efeuado.
+#'     No primeiro tipo (O1) fez-se apenas uma drenagem enquanto que nas
+#'     outras operações removeu-se ainda 25\% (O2) e 50\% (O3) de tecido
+#'     gástrico. O quarto tipo de operação consistiu apenas de uma
+#'     gastrectomia que removeu 75\% do estômago (O4).
+#' @format Um \code{data.frame} com 48 observações e 4 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{hops}}{Hospital onde foi realizada a cirurgia.}
+#'
+#' \item{\code{proc}}{Procediemnto cirúrgico.}
+#'
+#' \item{\code{iseq}}{Intensidade da sequela. (N) nenhuma sequela, (l)
+#'     ligeira e (M) moderada.}
+#'     
+#' \item{\code{freq}}{Frequência da intensidade.}
+#'
+#' }
+#' @keywords dummy
+#' @source Paulino, C. D., Singer, J. M. (2006). Análise de Dados 
+#'     Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+#'     (Exercício 8.10, pág. 243).
+#'
+#'     Grizzle, J. E., Starmer, C. F., Koch, G. G. (1969). Analysis of
+#'     categorical data by linear models, Biometrics 25: 489-504.
+#' @examples
+#' 
+#' data(PaulinoEx8.10)
+#' str(PaulinoEx8.10)
+#' 
+#' library(lattice)
+#'
+#' xyplot(freq ~ proc,
+#'        groups = iseq,
+#'        data = PaulinoEx8.10,
+#'        auto.key = list(space = "top", columns = 3, cex.title = 1,
+#'                        title = "Intensidade da sequela"),
+#'        xlab = "Procedimento cirúrgico",
+#'        ylab = "Frquência da intensidade")
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/PaulinoEx8.10.txt b/data-raw/PaulinoEx8.10.txt
new file mode 100644
index 0000000000000000000000000000000000000000..c0b539905a3e6c2bdc2d27dcc76889cc0f2e558a
--- /dev/null
+++ b/data-raw/PaulinoEx8.10.txt
@@ -0,0 +1,49 @@
+hosp	proc	iseq	freq
+1	O1	n	23
+1	O1	l	7
+1	O1	m	2
+1	O2	n	23
+1	O2	l	10
+1	O2	m	5
+1	O3	n	20
+1	O3	l	13
+1	O3	m	5
+1	O4	n	24
+1	O4	l	10
+1	O4	m	6
+2	O1	n	6
+2	O1	l	1
+2	O1	m	18
+2	O2	n	18
+2	O2	l	6
+2	O2	m	2
+2	O3	n	13
+2	O3	l	13
+2	O3	m	2
+2	O4	n	9
+2	O4	l	15
+2	O4	m	2
+3	O1	n	8
+3	O1	l	6
+3	O1	m	3
+3	O2	n	12
+3	O2	l	4
+3	O2	m	4
+3	O3	n	11
+3	O3	l	6
+3	O3	m	2
+3	O4	n	7
+3	O4	l	7
+3	O4	m	4
+4	O1	n	12
+4	O1	l	9
+4	O1	m	1
+4	O2	n	15
+4	O2	l	3
+4	O2	m	2
+4	O3	n	14
+4	O3	l	8
+4	O3	m	3
+4	O4	n	13
+4	O4	l	6
+4	O4	m	4
diff --git a/data/PaulinoEx8.10.rda b/data/PaulinoEx8.10.rda
new file mode 100644
index 0000000000000000000000000000000000000000..81853eb08f0ec9b364d58d66d236f969b99b2867
Binary files /dev/null and b/data/PaulinoEx8.10.rda differ
diff --git a/man/PaulinoEx8.10.Rd b/man/PaulinoEx8.10.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..77a33576c7d32cc2d9ce53bd233ffe80db531d11
--- /dev/null
+++ b/man/PaulinoEx8.10.Rd
@@ -0,0 +1,55 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoEx8.10.R
+\name{PaulinoEx8.10}
+\alias{PaulinoEx8.10}
+\title{Ensaio Clínico de Pacientes com Úlcera Duodenal}
+\format{Um \code{data.frame} com 48 observações e 4 variáveis, em que
+
+\describe{
+
+\item{\code{hops}}{Hospital onde foi realizada a cirurgia.}
+
+\item{\code{proc}}{Procediemnto cirúrgico.}
+
+\item{\code{iseq}}{Intensidade da sequela. (N) nenhuma sequela, (l)
+    ligeira e (M) moderada.}
+    
+\item{\code{freq}}{Frequência da intensidade.}
+
+}}
+\source{
+Paulino, C. D., Singer, J. M. (2006). Análise de Dados 
+    Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+    (Exercício 8.10, pág. 243).
+
+    Grizzle, J. E., Starmer, C. F., Koch, G. G. (1969). Analysis of
+    categorical data by linear models, Biometrics 25: 489-504.
+}
+\description{
+Ensaio clínico envolvendo pacientes com úlcera duodenal.
+    Os pacientes foram aleatoriamente submetidos a um de quatro tipos
+    de cirurgia. Três destas operação envolveram vagotomia, diferindo
+    entre elas pelo grau de resseção estomacal eventualmente efeuado.
+    No primeiro tipo (O1) fez-se apenas uma drenagem enquanto que nas
+    outras operações removeu-se ainda 25\% (O2) e 50\% (O3) de tecido
+    gástrico. O quarto tipo de operação consistiu apenas de uma
+    gastrectomia que removeu 75\% do estômago (O4).
+}
+\examples{
+
+data(PaulinoEx8.10)
+str(PaulinoEx8.10)
+
+library(lattice)
+
+xyplot(freq ~ proc,
+       groups = iseq,
+       data = PaulinoEx8.10,
+       auto.key = list(space = "top", columns = 3, cex.title = 1,
+                       title = "Intensidade da sequela"),
+       xlab = "Procedimento cirúrgico",
+       ylab = "Frquência da intensidade")
+
+}
+\keyword{dummy}
+