From c2931a9b4c44a424717313899d24b8c9073ed883 Mon Sep 17 00:00:00 2001
From: Bruna Wundervald <brunadaviesw@gmail.com>
Date: Sat, 5 Mar 2016 15:39:46 -0300
Subject: [PATCH] Adiciona o 3 arquivos da tabela 4.4 do Zimmermann
---
R/ZimmermannTab4.4.R | 34 +++++++++++++++++++
data-raw/ZimmermannTab4.4.txt | 61 ++++++++++++++++++++++++++++++++++
data/ZimmermannTab4.4.rda | Bin 0 -> 535 bytes
3 files changed, 95 insertions(+)
create mode 100644 R/ZimmermannTab4.4.R
create mode 100644 data-raw/ZimmermannTab4.4.txt
create mode 100644 data/ZimmermannTab4.4.rda
diff --git a/R/ZimmermannTab4.4.R b/R/ZimmermannTab4.4.R
new file mode 100644
index 0000000..3b6ae7a
--- /dev/null
+++ b/R/ZimmermannTab4.4.R
@@ -0,0 +1,34 @@
+#' @name ZimmermannTab4.4
+#' @title Estudo sobre produtividade de grãos de feijão
+#' @description Dados de um ensaio de competição de cultivares, em blocos
+#' completos ao acaso, da produção de grãos de feijão em kg/ha.
+#' O experimento teve quinze tratamentos (cultivares e/ou
+#' linhagens) e quatro blocos
+#' @format Um \code{data.frame} com 60 observações e 3 variáveis
+#'
+#' \describe{
+#'
+#' \item{trat}{Fator de níveis nominais. Tratamento aplicado em feijão.}
+#'
+#' \item{bloco}{Número inteiro que identifica o bloco da observação.}
+#'
+#' \item{prod}{Produção de grãos de feijão.}
+#'
+#' }
+#' @keywords DBC feijao cultivares
+#' @source Zimmermann, F.J.(2004), Estatística aplicada à pesquisa
+#' agrícola (1st ed.). Santo Antônio de Goiás, GO: Embrapa
+#' Arroz e Feijão. (pg 72)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(ZimmermannTab4.4)
+#'
+#' xyplot(prod ~ trat, data= ZimmermannTab4.4, type="o", jitter.x=TRUE,
+#' groups = bloco, xlab="Tratamento", ylab="Produção de feijão",
+#' main="Experimento de competição de cultivares")
+#'
+#' aggregate(prod ~ trat, data = ZimmermannTab4.4,
+#' FUN = function(x) { c(mean = mean(x), var = var(x)) })
+NULL
\ No newline at end of file
diff --git a/data-raw/ZimmermannTab4.4.txt b/data-raw/ZimmermannTab4.4.txt
new file mode 100644
index 0000000..8acdc60
--- /dev/null
+++ b/data-raw/ZimmermannTab4.4.txt
@@ -0,0 +1,61 @@
+"trat" "bloco" "prod"
+"CNFP 8015" "1" 1112.5
+"CNFP 8016" "1" 1850
+"CNFP 8017" "1" 987.5
+"CNFP 8018" "1" 1587.5
+"CNFP 8019" "1" 2012.5
+"CNFP 8020" "1" 1975
+"CNFP 8021" "1" 1837.5
+"CNFP 8022" "1" 1825
+"CNFP 8023" "1" 2250
+"CNFP 8024" "1" 562.5
+"CNFP 8025" "1" 1650
+"CNFP 8026" "1" 1362.5
+"Diamante Negro" "1" 1600
+"FT Nobre" "1" 2162.5
+"G. Brilhante" "1" 2112.5
+"CNFP 8015" "2" 650
+"CNFP 8016" "2" 1637.5
+"CNFP 8017" "2" 1537.5
+"CNFP 8018" "2" 2412.5
+"CNFP 8019" "2" 2075
+"CNFP 8020" "2" 1787.5
+"CNFP 8021" "2" 2137.5
+"CNFP 8022" "2" 2100
+"CNFP 8023" "2" 2062.5
+"CNFP 8024" "2" 1437.5
+"CNFP 8025" "2" 1625
+"CNFP 8026" "2" 862.5
+"Diamante Negro" "2" 1725
+"FT Nobre" "2" 1825
+"G. Brilhante" "2" 2137.5
+"CNFP 8015" "3" 1037.5
+"CNFP 8016" "3" 1787.5
+"CNFP 8017" "3" 1600
+"CNFP 8018" "3" 2100
+"CNFP 8019" "3" 2087.5
+"CNFP 8020" "3" 2225
+"CNFP 8021" "3" 2050
+"CNFP 8022" "3" 1375
+"CNFP 8023" "3" 1950
+"CNFP 8024" "3" 1550
+"CNFP 8025" "3" 1187.5
+"CNFP 8026" "3" 1225
+"Diamante Negro" "3" 1750
+"FT Nobre" "3" 1950
+"G. Brilhante" "3" 2450
+"CNFP 8015" "4" 1362.5
+"CNFP 8016" "4" 1387.5
+"CNFP 8017" "4" 1262.5
+"CNFP 8018" "4" 1912.5
+"CNFP 8019" "4" 1862.5
+"CNFP 8020" "4" 1950
+"CNFP 8021" "4" 2587.5
+"CNFP 8022" "4" 1450
+"CNFP 8023" "4" 1637
+"CNFP 8024" "4" 925
+"CNFP 8025" "4" 1325
+"CNFP 8026" "4" 962.5
+"Diamante Negro" "4" 1337.5
+"FT Nobre" "4" 1550
+"G. Brilhante" "4" 2237.5
diff --git a/data/ZimmermannTab4.4.rda b/data/ZimmermannTab4.4.rda
new file mode 100644
index 0000000000000000000000000000000000000000..62ee681ea51d2ed610d2988b83c2539af6f47f0b
GIT binary patch
literal 535
zcmb2|=3oE=X6~X+gGXHtk`fXUk`mIA(ioK3*u>Nn4xTu0=m6&u)<s6e#lhW0!k<4m
z2~GC-;v*q3qqXsoL+hD64!79Wh%J%VVY_nlzyYo!ISyy|j>tIh7_q0Yn+tqqF!Yd@
z7x>KYyI14k;c1hjrp*fG;nLio<1*#)&GWhr2M-;%AQF3kC-#6$>;b0O146zBPB6qC
z5Qsg%5qm%)_5e#P!`-EB2Gc+7Oi^Q6yk8~spuXu|4SB6o55*Qem_9#b3fI%mJ6>yA
zh^9VEX$V==Dwtj5mt?5Z@qlsqv>7pz;#pGuI(vIPNmAo7FlL?6TEoMow(S3f35ktu
zJjyy&l8F~jaCF<b33te)&5&EOkkfC48K3ZE35NrT=eRlUma{vZw_soRT-@<RWxz+v
z+Y3s#TjDHOoy?tH&Qw?U5~8m$pV3Lbf@`U?Vu?3HNS)LbJ2Q^GFVsTjO18}V%XjKN
z&r;(BTXb6Hg|V5cvpSX6HeT4gZ^16%W%W$6b{2d;c;;*SFK#J4?uZ5dRyMXdvtHRN
zCQub5-!g9vlc_mV=-njID<5X;;#*ZG-ZJkuhnM%lSJ6p)U+;6RuwMA^HgoTC&1i*^
z`5aUJ^IVPPUactSd^)AFbLYwpKF4@OQ#3WbbQ(21PM!2`OO2n_wCInBiLgcYr_)~(
qmNgiu1T!Czla}f1(^lQ65~#nHV?`_Dq!0fX8Mr$ZbO*9AFaQ9iXWRw=
literal 0
HcmV?d00001
--
GitLab