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

parent 46a610b7
Pipeline #3481 skipped
#' @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
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
% 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)))
}
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment