Adiciona o dataset com as variáveis de temperatura para confterm.

parent 1ecce7d1
......@@ -9,8 +9,16 @@
#' 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
#'
#' Fora dos galpões, um sistema de monitoramento das variáveis
#' ambientais registrou, em intervalos de 1 hora dos 21 aos 39 dias
#' de idade, as variáveis para que fossem determinados: a entalpia
#' específica do ar (H), a carga térmica de radiação (CTR) e o
#' índice de temperatura de globo negro e umidade (ITGU). Essas
#' variáveis tem a finalidade de explicar a variação da mortalidade
#' das aves nos sistemas de resfriamento ao longo dos dias.
#' @format \code{confterm} é um \code{data.frame} com 176 observações e
#' 4 variáveis, em que
#'
#' \describe{
#'
......@@ -27,6 +35,26 @@
#' \item{\code{nap}}{Número de aves perdidas (ou mortas) por dia.}
#'
#' }
#'
#' \code{conftemp} é um \code{data.frame} com 456 observações e 6
#' variáveis, em que
#'
#' \describe{
#'
#' \item{\code{hora}}{As horas em cada dia, retomando do 0 em cada novo
#' dia.}
#'
#' \item{\code{hr}}{As horas a partir o primeiro dia continuamente.}
#'
#' \item{\code{idade}}{A idade dos animais, em dias.}
#'
#' \item{\code{h}}{Entalpia específica do ar.}
#'
#' \item{\code{ctr}}{Carga térmica de radiação.}
#'
#' \item{\code{itgu}}{Índice de temperatura de globo negro e umidade.}
#'
#' }
#' @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
......@@ -35,9 +63,14 @@
#' \url{http://www.ufv.br/dea/ambiagro/gallery/publicações/Artigo5.pdf}.
#' @examples
#'
#' #-----------------------------------------
#' # Gráfico da mortalidade das aves.
#'
#' library(lattice)
#' library(latticeExtra)
#'
#' str(confterm)
#' summary(confterm)
#'
#' xtabs(~idade + resfr, data = confterm)
#'
......@@ -50,4 +83,48 @@
#' "Sem sistema de resfriamento")),
#' auto.key = list(corner = c(0.05, 0.9)))
#'
#' #-----------------------------------------
#' # Gráfico das variáveis térmicas.
#'
#' # Amplitude estendida das variáveis.
#' lim <- with(conftemp, apply(cbind(h, ctr, itgu), MARGIN = 2,
#' FUN = extendrange, f = 0.2))
#'
#' # Anotação da eixo x do gráfico.
#' scales <- list(
#' y = list(relation = "free"),
#' x = list(at = seq(from = 1,
#' to = ceiling(max(conftemp$hr/24)) * 24,
#' by = 24)))
#' scales$x$labels <- seq_along(scales$x$at)
#'
#' xyplot(h + ctr + itgu ~ hr, data = conftemp,
#' outer = TRUE, type = "l", layout = c(1, NA),
#' scales = scales, xlim = range(scales$x$at),
#' xlab = "Dias",
#' ylab = "Variáveis térmicas",
#' panel = function(y, subscripts, ...) {
#' wp <- which.packet()
#' r <- lim[, wp[1]]
#' panel.rect(10.5 + 24 * (scales$x$labels - 1), r[1],
#' 20 + 24 * (scales$x$labels - 1), r[2],
#' col = "blue",
#' border = "transparent",
#' alpha = 0.25)
#' panel.xyplot(y = y, subscripts = subscripts, ...)
#' })
#'
#' # Valores máximos do dia.
#' tempdia <- aggregate(cbind(hm = h, cm = ctr, im = itgu) ~ idade,
#' data = conftemp, FUN = max)
#'
#' splom(tempdia[, -1])
#'
#' confterm <- merge(confterm, tempdia, by = "idade")
#' str(confterm)
#'
NULL
#' @name conftemp
#' @rdname confterm
NULL
This diff is collapsed.
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