diff --git a/R/confterm.R b/R/confterm.R
new file mode 100644
index 0000000000000000000000000000000000000000..e8ec1035793fb5ee4cc495b083b21b24277a7931
--- /dev/null
+++ b/R/confterm.R
@@ -0,0 +1,53 @@
+#' @name confterm
+#' @title Resfriamento da Cobertura de Aviários na Mortalidade de Aves
+#' @description Resultados de um experimento que estudou o efeito do
+#' sistema de refriamento de cobertura de aviáros sob a mortalidade
+#' das aves e o conforto térmico. Haviam 4 aviários disponíveis e
+#' por sorteio, em dois deles foi instalado o sistema de
+#' resfriamento de cobertura, cuja finalidade é diminuir a
+#' temperatura nas horas mais quentes do dia para evitar morte de
+#' aves por calor. Nesse experimento, o sistema só foi utilizado a
+#' partir dos 21 dias de idade. A cada dia foi contado o número de
+#' aves encontradas mortas no aviário.
+#' @format Um \code{data.frame} com 176 observações e 4 variáveis, em
+#' que
+#'
+#' \describe{
+#'
+#' \item{\code{resfr}}{Variável que indica se o galpão tem ou não
+#' sistema de resfriamento de cobertura (C = com refriamento de
+#' cobertura, S = sem refriamento de cobertura).}
+#'
+#' \item{\code{idade}}{Idade das aves, em dias após o alojamento.}
+#'
+#' \item{\code{galp}}{Variável que indica o galpão que é a unidade
+#' experimental para o efeito do sistema de refriamento de
+#' cobertura.}
+#'
+#' \item{\code{nap}}{Número de aves perdidas (ou mortas) por dia.}
+#'
+#' }
+#' @source MACHADO, N. S.; TINÔCO, I. D. F. F.; ZOLNIER, S.; MOGAMI,
+#' C. A.; DAMASCENO, F. A.; ZEVIANI, W. M. Resfriamento da cobertura
+#' de aviários e seus efeitos na mortalidade e nos índices de
+#' conforto térmico. Nucleus, La Habana, v.9, n.2, 2012.
+#' \url{http://www.nucleus.feituverava.com.br/index.php/nucleus/article/view/718},
+#' \url{http://www.ufv.br/dea/ambiagro/gallery/publicações/Artigo5.pdf}.
+#' @examples
+#'
+#' library(lattice)
+#'
+#' str(confterm)
+#'
+#' xtabs(~idade + resfr, data = confterm)
+#'
+#' xyplot(nap ~ idade | resfr, data = confterm,
+#' groups = galp, type = "o",
+#' xlab = "Idade das aves (dias)",
+#' ylab = "Número de aves perdidas por galpão",
+#' strip = strip.custom(factor.levels = c(
+#' "Com sistema de resfriamento",
+#' "Sem sistema de resfriamento")),
+#' auto.key = list(corner = c(0.05, 0.9)))
+#'
+NULL
diff --git a/data-raw/confterm.txt b/data-raw/confterm.txt
new file mode 100644
index 0000000000000000000000000000000000000000..5849ba14d9093a31a9e367d3380bc52d8f925ba3
--- /dev/null
+++ b/data-raw/confterm.txt
@@ -0,0 +1,77 @@
+resfr idade galp nap
+C 21 I 5
+C 22 I 12
+C 23 I 4
+C 24 I 7
+C 25 I 10
+C 26 I 7
+C 27 I 12
+C 28 I 10
+C 29 I 11
+C 30 I 13
+C 31 I 21
+C 32 I 19
+C 33 I 23
+C 34 I 17
+C 35 I 22
+C 36 I 24
+C 37 I 20
+C 38 I 34
+C 39 I 30
+C 21 II 9
+C 22 II 7
+C 23 II 8
+C 24 II 11
+C 25 II 10
+C 26 II 11
+C 27 II 10
+C 28 II 14
+C 29 II 14
+C 30 II 19
+C 31 II 18
+C 32 II 24
+C 33 II 37
+C 34 II 39
+C 35 II 40
+C 36 II 48
+C 37 II 48
+C 38 II 53
+C 39 II 47
+S 21 III 7
+S 22 III 9
+S 23 III 4
+S 24 III 4
+S 25 III 8
+S 26 III 4
+S 27 III 5
+S 28 III 11
+S 29 III 15
+S 30 III 26
+S 31 III 24
+S 32 III 25
+S 33 III 31
+S 34 III 45
+S 35 III 62
+S 36 III 113
+S 37 III 76
+S 38 III 186
+S 39 III 140
+S 21 IV 14
+S 22 IV 6
+S 23 IV 5
+S 24 IV 5
+S 25 IV 4
+S 26 IV 6
+S 27 IV 8
+S 28 IV 15
+S 29 IV 27
+S 30 IV 39
+S 31 IV 34
+S 32 IV 27
+S 33 IV 36
+S 34 IV 57
+S 35 IV 32
+S 36 IV 62
+S 37 IV 58
+S 38 IV 54
+S 39 IV 83
diff --git a/data/confterm.rda b/data/confterm.rda
new file mode 100644
index 0000000000000000000000000000000000000000..072f2f20207c4d4b408a0eede614291c473ef61c
Binary files /dev/null and b/data/confterm.rda differ
diff --git a/man/confterm.Rd b/man/confterm.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..13e68f43f14f29dc612c1e9c6d4fd6dec98a68b0
--- /dev/null
+++ b/man/confterm.Rd
@@ -0,0 +1,61 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/confterm.R
+\name{confterm}
+\alias{confterm}
+\title{Resfriamento da Cobertura de Aviários na Mortalidade de Aves}
+\format{Um \code{data.frame} com 176 observações e 4 variáveis, em
+ que
+
+\describe{
+
+\item{\code{resfr}}{Variável que indica se o galpão tem ou não
+ sistema de resfriamento de cobertura (C = com refriamento de
+ cobertura, S = sem refriamento de cobertura).}
+
+\item{\code{idade}}{Idade das aves, em dias após o alojamento.}
+
+\item{\code{galp}}{Variável que indica o galpão que é a unidade
+ experimental para o efeito do sistema de refriamento de
+ cobertura.}
+
+\item{\code{nap}}{Número de aves perdidas (ou mortas) por dia.}
+
+}}
+\source{
+MACHADO, N. S.; TINÔCO, I. D. F. F.; ZOLNIER, S.; MOGAMI,
+ C. A.; DAMASCENO, F. A.; ZEVIANI, W. M. Resfriamento da cobertura
+ de aviários e seus efeitos na mortalidade e nos índices de
+ conforto térmico. Nucleus, La Habana, v.9, n.2, 2012.
+ \url{http://www.nucleus.feituverava.com.br/index.php/nucleus/article/view/718},
+ \url{http://www.ufv.br/dea/ambiagro/gallery/publicações/Artigo5.pdf}.
+}
+\description{
+Resultados de um experimento que estudou o efeito do
+ sistema de refriamento de cobertura de aviáros sob a mortalidade
+ das aves e o conforto térmico. Haviam 4 aviários disponíveis e
+ por sorteio, em dois deles foi instalado o sistema de
+ resfriamento de cobertura, cuja finalidade é diminuir a
+ temperatura nas horas mais quentes do dia para evitar morte de
+ aves por calor. Nesse experimento, o sistema só foi utilizado a
+ partir dos 21 dias de idade. A cada dia foi contado o número de
+ aves encontradas mortas no aviário.
+}
+\examples{
+
+library(lattice)
+
+str(confterm)
+
+xtabs(~idade + resfr, data = confterm)
+
+xyplot(nap ~ idade | resfr, data = confterm,
+ groups = galp, type = "o",
+ xlab = "Idade das aves (dias)",
+ ylab = "Número de aves perdidas por galpão",
+ strip = strip.custom(factor.levels = c(
+ "Com sistema de resfriamento",
+ "Sem sistema de resfriamento")),
+ auto.key = list(corner = c(0.05, 0.9)))
+
+}
+