diff --git a/R/PaulinoTb6.1.R b/R/PaulinoTb6.1.R
new file mode 100644
index 0000000000000000000000000000000000000000..2f909ab41ccecd024b4d7da93474f03b4551f047
--- /dev/null
+++ b/R/PaulinoTb6.1.R
@@ -0,0 +1,31 @@
+#' @name PaulinoTb6.1
+#' @title Morte por Intoxicação de Besouros
+#' @description Experimento envolvendo a exposição de besouros durante
+#'     cinco horas a uma gás tóxico em oito níveis de concentração
+#'     representada pelo logaritmo da dose (medida habitual neste tipo
+#'     de estudo).
+#' @format Um \code{data.frame} com 8 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{dose}}{Logaritmo da dose de gás tóxico.}
+#'
+#' \item{\code{morte}}{Número de besouros mortos.}
+#'
+#' \item{\code{besexp}}{Número de besouros expostos ao gás tóxico.}
+#'
+#' }
+#' @keywords binomial
+#' @source Paulino, C. D., Singer, J. M. (2006). Análise de Dados 
+#'     Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+#'     (Tabela 6.1, pág. 150).
+#' @examples
+#' 
+#' data(PaulinoTb6.1)
+#' str(PaulinoTb6.1)
+#'
+#' library(lattice)
+#'
+#' xyplot(morte/besexp ~ dose, data = PaulinoTb6.1)
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/PaulinoTb6.1.txt b/data-raw/PaulinoTb6.1.txt
new file mode 100644
index 0000000000000000000000000000000000000000..bc432850e5081355f69298fe84662fa04b8646be
--- /dev/null
+++ b/data-raw/PaulinoTb6.1.txt
@@ -0,0 +1,9 @@
+dose	morte	besexp
+1.6907	6	59
+1.7242	13	60
+1.7552	18	62
+1.7842	28	56
+1.8113	52	63
+1.8369	53	59
+1.8610	61	62
+1.8839	60	60
diff --git a/data/PaulinoTb6.1.rda b/data/PaulinoTb6.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..bca562f939409b17a1e93ce3a5f34a5c471513a2
Binary files /dev/null and b/data/PaulinoTb6.1.rda differ
diff --git a/man/PaulinoTb6.1.Rd b/man/PaulinoTb6.1.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..155bcca8cb2fb5ad94170eb9a8fe69fc60b08a8d
--- /dev/null
+++ b/man/PaulinoTb6.1.Rd
@@ -0,0 +1,39 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoTb6.1.R
+\name{PaulinoTb6.1}
+\alias{PaulinoTb6.1}
+\title{Morte por Intoxicação de Besouros}
+\format{Um \code{data.frame} com 8 observações e 3 variáveis, em que
+
+\describe{
+
+\item{\code{dose}}{Logaritmo da dose de gás tóxico.}
+
+\item{\code{morte}}{Número de besouros mortos.}
+
+\item{\code{besexp}}{Número de besouros expostos ao gás tóxico.}
+
+}}
+\source{
+Paulino, C. D., Singer, J. M. (2006). Análise de Dados 
+    Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+    (Tabela 6.1, pág. 150).
+}
+\description{
+Experimento envolvendo a exposição de besouros durante
+    cinco horas a uma gás tóxico em oito níveis de concentração
+    representada pelo logaritmo da dose (medida habitual neste tipo
+    de estudo).
+}
+\examples{
+
+data(PaulinoTb6.1)
+str(PaulinoTb6.1)
+
+library(lattice)
+
+xyplot(morte/besexp ~ dose, data = PaulinoTb6.1)
+
+}
+\keyword{binomial}
+