From e935838b53185395ce5598b9904e63a753bfdbde Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Fri, 25 Mar 2016 16:59:05 -0300
Subject: [PATCH] Transforma geno para fator.

---
 R/ZimmermannTb5.2.R          |   3 +-
 data-raw/ZimmermannTb5.2.txt | 128 +++++++++++++++++------------------
 data/ZimmermannTb5.2.rda     | Bin 662 -> 682 bytes
 3 files changed, 65 insertions(+), 66 deletions(-)

diff --git a/R/ZimmermannTb5.2.R b/R/ZimmermannTb5.2.R
index 047ad97..f4bc85c 100644
--- a/R/ZimmermannTb5.2.R
+++ b/R/ZimmermannTb5.2.R
@@ -1,5 +1,5 @@
 #' @name ZimmermannTb5.2
-#' @title Dados de produção de grãos de arroz
+#' @title Produção de Grãos de Genótipos de Arroz
 #' @description Experimento em delineamento quadrado latino cujo
 #'     objetivo foi medir a resposta em produtividade de um grupo de
 #'     oito genótipos de arroz ao ataque inicial de pragas.
@@ -31,7 +31,6 @@
 #' data(ZimmermannTb5.2)
 #'
 #' str(ZimmermannTb5.2)
-#' ZimmermannTb5.2 <- transform(ZimmermannTb5.2, geno = factor(geno))
 #'
 #' cast(ZimmermannTb5.2, linha ~ coluna, value = "geno")
 #' cast(ZimmermannTb5.2, linha ~ coluna, value = "prod")
diff --git a/data-raw/ZimmermannTb5.2.txt b/data-raw/ZimmermannTb5.2.txt
index 4e5c9ee..38ed927 100644
--- a/data-raw/ZimmermannTb5.2.txt
+++ b/data-raw/ZimmermannTb5.2.txt
@@ -1,64 +1,64 @@
-linha	coluna	prod	geno
-2	1	618.75	B
-3	1	1176.25	C
-4	1	852.5	D
-5	1	700	E
-6	1	1003.75	F
-7	1	1395	G
-8	1	1991.3	H
-1	2	1481.25	D
-2	2	1251.25	E
-3	2	1742.5	F
-4	2	1680	G
-5	2	1897.5	H
-6	2	1726.25	A
-7	2	313.75	B
-8	2	1427.5	C
-1	3	586.25	G
-2	3	822.5	H
-3	3	748.75	A
-4	3	317.5	B
-5	3	1096.25	C
-6	3	2148.75	D
-7	3	1543.75	E
-8	3	936.25	F
-1	4	708.75	C
-2	4	846.25	D
-3	4	716.25	E
-4	4	1038.75	F
-5	4	945	G
-6	4	855	H
-7	4	1421.25	A
-8	4	307.5	B
-1	5	1193.75	F
-2	5	1051.25	G
-3	5	952.5	H
-4	5	1326.25	A
-5	5	216.25	B
-6	5	487.5	C
-7	5	1627.5	D
-8	5	1202.5	E
-1	6	825	E
-2	6	1070	F
-3	6	1470	G
-4	6	1250	H
-5	6	1767.5	A
-6	6	237.5	B
-7	6	1367.5	C
-8	6	1395	D
-1	7	1856.25	H
-2	7	1126.25	A
-3	7	377.5	B
-4	7	962.5	C
-5	7	1682.5	D
-6	7	1198.75	E
-7	7	1283.75	F
-8	7	995	G
-1	8	697.5	B
-2	8	1301.25	C
-3	8	1162.5	D
-4	8	738.75	E
-5	8	1416.25	F
-6	8	1498.75	G
-7	8	1728.75	H
-8	8	1335	A
+linha	coluna	geno	prod
+2	1	B	618.75
+3	1	C	1176.25
+4	1	D	852.5
+5	1	E	700
+6	1	F	1003.75
+7	1	G	1395
+8	1	H	1991.3
+1	2	D	1481.25
+2	2	E	1251.25
+3	2	F	1742.5
+4	2	G	1680
+5	2	H	1897.5
+6	2	A	1726.25
+7	2	B	313.75
+8	2	C	1427.5
+1	3	G	586.25
+2	3	H	822.5
+3	3	A	748.75
+4	3	B	317.5
+5	3	C	1096.25
+6	3	D	2148.75
+7	3	E	1543.75
+8	3	F	936.25
+1	4	C	708.75
+2	4	D	846.25
+3	4	E	716.25
+4	4	F	1038.75
+5	4	G	945
+6	4	H	855
+7	4	A	1421.25
+8	4	B	307.5
+1	5	F	1193.75
+2	5	G	1051.25
+3	5	H	952.5
+4	5	A	1326.25
+5	5	B	216.25
+6	5	C	487.5
+7	5	D	1627.5
+8	5	E	1202.5
+1	6	E	825
+2	6	F	1070
+3	6	G	1470
+4	6	H	1250
+5	6	A	1767.5
+6	6	B	237.5
+7	6	C	1367.5
+8	6	D	1395
+1	7	H	1856.25
+2	7	A	1126.25
+3	7	B	377.5
+4	7	C	962.5
+5	7	D	1682.5
+6	7	E	1198.75
+7	7	F	1283.75
+8	7	G	995
+1	8	B	697.5
+2	8	C	1301.25
+3	8	D	1162.5
+4	8	E	738.75
+5	8	F	1416.25
+6	8	G	1498.75
+7	8	H	1728.75
+8	8	A	1335
diff --git a/data/ZimmermannTb5.2.rda b/data/ZimmermannTb5.2.rda
index 0b584c04a4d21ea4ee1f01056eb03bdacaadfd96..de11e6eb442cb8fcf2dcb3aca7601f406ec9a8a2 100644
GIT binary patch
literal 682
zcmZ>Y%CIzaj8qGby!@CefPwjZ{eL*PC?074{{F$}&;S1)ZE(q8DPeGNU|>i*!1zvs
zx3D*G;WCF5gJy+W0+$(P_)75yE??Q!WMY)Sz>>kZ%yEI-f{ZT?Z<&Kl)Gi1M3kyj2
z%n&f>HRLs7R`%&}oH*e`qNEY8q=A~SuZcv<#l-?CQb}w+jFLQplbtU(Hq79hAfa$T
zut9N|v%-awTZA+w8u|3fEqp0A!GwX~!ikJ8ZVe0!CRJ@087`~M;$>jSxa@OEsAJW(
z!}m^aJpYqdF_Q1KcI}BdnW8T1xo>S$UvQ|9t+cW3_2j8Pb#y+}HLmY0FP_}`Y4hpe
z;;dWuZgQunZr7VEy@*jq$cHn~b7f9Qf`gvQIh7+ZhCaO_GkO+_Gwl*RvU;N725Auy
z&P91SEQ>m(J}SDQVL0iQ$VJ1cJYox{U%vA4>fiL-zZnb-0!%?Mx!sT7vSeweJ>F6D
z+VjS2Yk#rLx9{A|`@Zt(?$@O+%dBlzg-`i$eS56*ySod@b@lQz^JnG?c<??rq7hiR
zQlyjXaCy5#Y=YO}DJ_knYZZMm86yI;y;zwV9TtRDX#U9m6Cq)KWAbM`UCl#6fgWtf
zCOHOns-#IMX=DgHTk@<p5PU-+S4A+xQ|8+Q_Ng~EOf>Dgu;63l_w=V-tM{k**)T0W
zmN?;Jy1kgzk+KcyZmeAoj;YotBswvtdkM&uJ~0%HX~?<J;@Gq|`@*5n{CAhx9s4U+
zFAaB1HU8N9G3=Av`D@QTqikv##Kh!_PAuTikYO@i@~_eF)`<sSo!wG4B)LR!?X+(7
zXl`&3*idjl)M{zdrkQ^ZwH-Y_cWUzbz)3l4+W#fw*l%#oRL%L$tMyDpfX%_(czr^K
iqL@uYQu9@YI)Npb!c7bgYnguRo}_uGrER`MPy+yI$SH^b

literal 662
zcmb2|=3oE==DX7@^MxHnjvtS^U3lhU!Tg8&_?_QaaBdeqqsZ085#Z9er7)-CQS9PU
zg%FO$L#nL>ERzJ7L^z_jxCC@r73>&TS>>5$9jO0v&pAO@|Hh)kr}O{km)$=zyYg}6
zy>BV*CRYT5yeg+YG!?P)`nl)FCyn{5THE@|qr+}(^to+!NwVK%s!>{|{0oy8^PIv>
zUd;Q{%&>y-;30$mUq8nOiJn+?e%a>Ah|<>OCD$)2xP|o0kmyZ1ax_C|ab(Z5MH>G?
zuAT9oAivN!ZI$`+1G9c)CflTb*p;y3LGi)&P6t}0#G9U8)cjoc+dMk)#E$)E_sv?j
zdH#+PpO@N&w^jE3YuWPO_~ir6OS|Pg<gXt8GF2kZ_pLSalH}W-@6|ny&oBC|o%xUP
z<=(?f#BY19->a~9QsVypCEKS>wyP^&xIo!^rR@c`s!HDT*B_RtzdS4ZrhMxB{ZDoj
z%I$Bx{=4U|?zehpt1n$!)IF;H$-G=~_V2yVd+rz2OaAA6-u$@FR%PqF;(uMAEZ#jV
z?VI$icf!3HXDh9be2n|N=g^Yo&z`?4=PX?OW_#mji|Nk~|CE0B@TbI^|DGR1mw$Qr
zc)rhUiRz;sT^s#-{wB!?JWg;uw{|l7U+w2cj@r?#nQKmk1xjr>wMAuhcbwFgQ*ZNh
z*L~fVxpe8Z-%rxE-L^~hdg=LeQ+iJ3Pe1FOdK>+hy}hHts(mH(+pLK_%@@0su37Ee
z*WvPavi*-k1qoa;PSuvM@)VztOi;U^&-;tx9OEyIv&_Fv=rV90RN5eMrCHTs`qESf
z`R$?!su8Rul~+`=bR*cWG1t17H~A(QcQoiGXlF1~WCj{u;3(Od#dOwT`kGva=@GH_
a%9>&m%-35lT(QW%hW*Zof7jGG85jV)B2Rn(

-- 
GitLab