From 9fb4ddefa64d35478ae50fbe0f25ecd75caf26ab Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Tue, 26 Apr 2016 21:29:23 -0300
Subject: [PATCH] Adiciona dados de conforto termico, num aves mortas/dia.

---
 R/confterm.R          |  53 +++++++++++++++++++++++++++++
 data-raw/confterm.txt |  77 ++++++++++++++++++++++++++++++++++++++++++
 data/confterm.rda     | Bin 0 -> 488 bytes
 man/confterm.Rd       |  61 +++++++++++++++++++++++++++++++++
 4 files changed, 191 insertions(+)
 create mode 100644 R/confterm.R
 create mode 100644 data-raw/confterm.txt
 create mode 100644 data/confterm.rda
 create mode 100644 man/confterm.Rd

diff --git a/R/confterm.R b/R/confterm.R
new file mode 100644
index 0000000..e8ec103
--- /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 0000000..5849ba1
--- /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
GIT binary patch
literal 488
zcmZ>Y%CIzaj8qGbd>oLypMklx{>Oh1IDFZVM@7;>fBFCa4J-`y|9>zD*#F<aI6GJA
zM#hpusfNso3t!p#GA>|iNMYc2V#v6-fLCs^FZ*Jjg`)N<Mm_@WE2I*oOc*XmO1KFy
zD=@J2GF&*wBj_q<<R8qzEbPn6)7W8hf+3NCt&QWd<7C0DQc@C|77B0##7sEyPGW(R
zqQFL9Rk0=^*8~P8(L0;68y#d`8O(agU~R~dBFyyS<rE?Hp3YegdR%HR(uxWu)qP4!
zE1z&V?%Ojp2V<9}R|cFxf-@q71v`|StY3e5yi}&;q3Uu~s|d|q2cN2zJYCwC6jK~L
z=dw}w#*2q1n2256bS|M~uZE0_&T3uHiO)V3ek%H0{H5fp-}0OG+jq6sxA#w<zkK~x
z`TDk%HSaI~TKWCw?>~2=&V`q&gjO|VbTs-KDO~noU|>se2)z3GLXcDMr1aI{AJ=+y
zEx*L7b)Zqy?pxG#>De<@Ge?AlDR8v01gNo2X%I`Du(i?a%ZUabF8LYU2CPmDN}}S~
z8+Dyo7N@gJt;=NUn8X>BUwGhYwP(vGb5X_i1q!=z4%X<1tx?;}`8jM#;_qz9gId-1
qM5bm4q!{^$upJED?|SjXqbA`sY%HyTp*rG||BDy7S_Di0#Vi2#Rm=te

literal 0
HcmV?d00001

diff --git a/man/confterm.Rd b/man/confterm.Rd
new file mode 100644
index 0000000..13e68f4
--- /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)))
+
+}
+
-- 
GitLab