Adiciona dados de conforto termico, num aves mortas/dia.

R/confterm.R

+#' @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

data-raw/confterm.txt

+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

man/confterm.Rd

+% 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)))
+
+}
+