From 7e17dc56e425e3af058ea97bcf2ab533447ecab4 Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Fri, 25 Mar 2016 16:54:05 -0300
Subject: [PATCH] Remove UE e usa por extenso. Faz exemplos serem iguais.

---
 R/ZimmermannTb12.26.R          |  52 ++++++++++++-----------
 R/ZimmermannTb12.27.R          |   2 +-
 data-raw/ZimmermannTb12.26.txt |  74 ++++++++++++++++-----------------
 data-raw/ZimmermannTb12.27.txt |  74 ++++++++++++++++-----------------
 data/ZimmermannTb12.26.rda     | Bin 426 -> 425 bytes
 data/ZimmermannTb12.27.rda     | Bin 415 -> 431 bytes
 6 files changed, 102 insertions(+), 100 deletions(-)

diff --git a/R/ZimmermannTb12.26.R b/R/ZimmermannTb12.26.R
index 9604140..dbac641 100644
--- a/R/ZimmermannTb12.26.R
+++ b/R/ZimmermannTb12.26.R
@@ -1,17 +1,18 @@
-#' @name ZimmermannTb12.26 
-#' @title Dados de produtividade de espiguetas
-#' @description Ensaio 1 de um experimento em DQL, que avaliou a resistência
-#'      a insetos em seis cultivares de arroz, sendo uma delas comum ao 
-#'      ensaio 2. Os dados são de produtividade de espiguetas, em gramas.  
+#' @name ZimmermannTb12.26
+#' @title Produtividade de Arroz para Resistência a Insetos
+#' @description Ensaio 1 de um experimento em DQL, que avaliou a
+#'     resistência a insetos em seis cultivares de arroz, sendo uma
+#'     delas comum ao ensaio 2. Os dados são de produtividade de
+#'     espiguetas, em gramas.
 #' @format Um \code{data.frame} com 36 observações e 4 variáveis
 #'
 #' \describe{
 #'
-#' \item{linha}{Fator de níveis numéricos. Indica em que linha do quadrado a 
-#'      UE se encontra.}
+#' \item{linha}{Fator de níveis numéricos. Indica em que linha do
+#'      quadrado a unidade experimental está.}
 #'
-#' \item{coluna}{Fator de níveis numéricos. Indica em que coluna do quadrado a
-#'      UE se encontra}
+#' \item{coluna}{Fator de níveis numéricos. Indica em que coluna do
+#'      quadrado a unidade experimental está.}
 #'
 #' \item{cult}{Indica a cultivar.}
 #'
@@ -25,24 +26,25 @@
 #' @examples
 #'
 #' library(lattice)
-#' library(latticeExtra)
 #' library(reshape)
 #'
 #' data(ZimmermannTb12.26)
-#'
-#' cast(ZimmermannTb12.26, linha~coluna, value="prod")
-#' cast(ZimmermannTb12.26, linha~coluna, value="cult")
-#' 
-#' levelplot(prod~linha+coluna,
-#'           data=ZimmermannTb12.26, aspect="iso",
-#'           panel=function(x, y, z, subscripts, ...){
-#'             panel.levelplot(x, y, z, subscripts=subscripts)
-#'             panel.text(x, y, ZimmermannTb12.26$cult[subscripts])
-#'             panel.text(x, y, z, pos=1)
+#' str(ZimmermannTb12.26)
+#'
+#' cast(ZimmermannTb12.26, linha ~ coluna, value = "cult")
+#' cast(ZimmermannTb12.26, linha ~ coluna, value = "prod")
+#'
+#' levelplot(prod ~ linha + coluna,
+#'           data = ZimmermannTb12.26, aspect = "iso",
+#'           panel = function(x, y, z, subscripts, ...) {
+#'               panel.levelplot(x, y, z, subscripts = subscripts, ...)
+#'               panel.text(x, y, ZimmermannTb12.26$cult[subscripts],
+#'                          cex = 0.8)
+#'               panel.text(x, y, z, pos = 1)
 #'           })
-#' 
-#' xyplot(prod~cult, data=ZimmermannTb12.26, type=c("p","a"), col="blue", 
-#'        xlab="Cultivar", ylab="Produtividade de Espiguetas", 
-#'        main="Experimento em DQL")
 #'
-NULL
\ No newline at end of file
+#' xyplot(prod ~ cult, data = ZimmermannTb12.26, type = c("p", "a"),
+#'        xlab = "Cultivares",
+#'        ylab = expression("Produtividade de espiguetas"~(g)))
+#'
+NULL
diff --git a/R/ZimmermannTb12.27.R b/R/ZimmermannTb12.27.R
index e3c8c5a..7852393 100644
--- a/R/ZimmermannTb12.27.R
+++ b/R/ZimmermannTb12.27.R
@@ -1,5 +1,5 @@
 #' @name ZimmermannTb12.27
-#' @title Produtividade de arroz pela resistência a insetos
+#' @title Produtividade de Arroz para Resistência a Insetos
 #' @description Ensaio 2 de um experimento em delineamento quadrado
 #'     latino, que avaliou a resistência a insetos em seis cultivares de
 #'     arroz, sendo uma delas comum ao ensaio 1. Os dados são de
diff --git a/data-raw/ZimmermannTb12.26.txt b/data-raw/ZimmermannTb12.26.txt
index 2261748..b3187ec 100644
--- a/data-raw/ZimmermannTb12.26.txt
+++ b/data-raw/ZimmermannTb12.26.txt
@@ -1,37 +1,37 @@
-linha	coluna	prod	cult
-1	1	55	Canastra
-2	1	52	Bonança
-3	1	21	CNAs8989
-4	1	30	CNAs8957
-5	1	77	CNA8540
-6	1	38	CNAs8818
-1	2	33	CNA8540
-2	2	19	CNAs8818
-3	2	55	Bonança
-4	2	40	Canastra
-5	2	21	CNAs8957
-6	2	44	CNAs8989
-1	3	77	Bonança
-2	3	37	CNAs8957
-3	3	49	CNA8540
-4	3	21	CNAs8989
-5	3	75	CNAs8818
-6	3	70	Canastra
-1	4	20	CNAs8818
-2	4	64	Canastra
-3	4	53	CNAs8957
-4	4	55	Bonança
-5	4	12	CNAs8989
-6	4	30	CNA8540
-1	5	64	CNAs8989
-2	5	44	CNA8540
-3	5	48	Canastra
-4	5	34	CNAs8818
-5	5	62	Bonança
-6	5	63	CNAs8957
-1	6	52	CNAs8957
-2	6	39	CNAs8989
-3	6	25	CNAs8818
-4	6	50	CNA8540
-5	6	71	Canastra
-6	6	17	Bonança
+linha	coluna	cult	prod
+1	1	Canastra	55
+2	1	Bonança	52
+3	1	CNAs8989	21
+4	1	CNAs8957	30
+5	1	CNA8540	77
+6	1	CNAs8818	38
+1	2	CNA8540	33
+2	2	CNAs8818	19
+3	2	Bonança	55
+4	2	Canastra	40
+5	2	CNAs8957	21
+6	2	CNAs8989	44
+1	3	Bonança	77
+2	3	CNAs8957	37
+3	3	CNA8540	49
+4	3	CNAs8989	21
+5	3	CNAs8818	75
+6	3	Canastra	70
+1	4	CNAs8818	20
+2	4	Canastra	64
+3	4	CNAs8957	53
+4	4	Bonança	55
+5	4	CNAs8989	12
+6	4	CNA8540	30
+1	5	CNAs8989	64
+2	5	CNA8540	44
+3	5	Canastra	48
+4	5	CNAs8818	34
+5	5	Bonança	62
+6	5	CNAs8957	63
+1	6	CNAs8957	52
+2	6	CNAs8989	39
+3	6	CNAs8818	25
+4	6	CNA8540	50
+5	6	Canastra	71
+6	6	Bonança	17
diff --git a/data-raw/ZimmermannTb12.27.txt b/data-raw/ZimmermannTb12.27.txt
index 058577f..92d510f 100644
--- a/data-raw/ZimmermannTb12.27.txt
+++ b/data-raw/ZimmermannTb12.27.txt
@@ -1,37 +1,37 @@
-linha	coluna	prod	cult
-1	1	79	Bonança
-2	1	53	CNAs8952
-3	1	27	CNAs8960
-4	1	30	CNAs8938
-5	1	31	CNAs8711
-6	1	39	CNAs8817
-1	2	44	CNAs8938
-2	2	71	CNAs8960
-3	2	88	Bonança
-4	2	66	CNAs8711
-5	2	48	CNAs8817
-6	2	58	CNAs8952
-1	3	67	CNAs8817
-2	3	67	CNAs8938
-3	3	39	CNAs8711
-4	3	58	CNAs8952
-5	3	10	CNAs8960
-6	3	90	Bonança
-1	4	20	CNAs8711
-2	4	98	Bonança
-3	4	55	CNAs8938
-4	4	49	CNAs8817
-5	4	10	CNAs8952
-6	4	33	CNAs8960
-1	5	83	CNAs8952
-2	5	19	CNAs8711
-3	5	66	CNAs8817
-4	5	12	CNAs8960
-5	5	62	Bonança
-6	5	79	CNAs8938
-1	6	30	CNAs8960
-2	6	50	CNAs8817
-3	6	67	CNAs8952
-4	6	36	Bonança
-5	6	52	CNAs8938
-6	6	43	CNAs8711
+linha	coluna	cult	prod
+1	1	Bonança	79
+2	1	CNAs8952	53
+3	1	CNAs8960	27
+4	1	CNAs8938	30
+5	1	CNAs8711	31
+6	1	CNAs8817	39
+1	2	CNAs8938	44
+2	2	CNAs8960	71
+3	2	Bonança	88
+4	2	CNAs8711	66
+5	2	CNAs8817	48
+6	2	CNAs8952	58
+1	3	CNAs8817	67
+2	3	CNAs8938	67
+3	3	CNAs8711	39
+4	3	CNAs8952	58
+5	3	CNAs8960	10
+6	3	Bonança	90
+1	4	CNAs8711	20
+2	4	Bonança	98
+3	4	CNAs8938	55
+4	4	CNAs8817	49
+5	4	CNAs8952	10
+6	4	CNAs8960	33
+1	5	CNAs8952	83
+2	5	CNAs8711	19
+3	5	CNAs8817	66
+4	5	CNAs8960	12
+5	5	Bonança	62
+6	5	CNAs8938	79
+1	6	CNAs8960	30
+2	6	CNAs8817	50
+3	6	CNAs8952	67
+4	6	Bonança	36
+5	6	CNAs8938	52
+6	6	CNAs8711	43
diff --git a/data/ZimmermannTb12.26.rda b/data/ZimmermannTb12.26.rda
index 7c0b48871d9b765df2abc0cf91d33d8f5c91fa29..e1e8ec6664b39b89231fe1fb16153ee02a31b3f9 100644
GIT binary patch
literal 425
zcmZ>Y%CIzaj8qGb>~OWqW?+i=f93z@3<eg*`iHfZe*)~&?>9IwFf@2DFfeXl>|t^d
zx$JQ{ldY|-fj@9r0|SFx=PSMhA73_MHJ_OhKEl36h6XGKoI=X3w!&A0-6UKt`}o?j
zBwP^qDrp!bz<NNDjZ0*Iszv|Q89~`QHXWKVJ9o<cWeNctVM<LKSg#!W#B@h!nRb@5
zNQ7I|k=~nky;#<DaurQka!1%%>>tNwMz7e^RWeEiu3oHObDY;mZwzVu{r|VKbY4U_
zTW?s<mr1UV1zg`x%1Y=sd|%fyW%a%#9BLOPL|qb0_6V|5OV;c;lK$`IohJuBmy~#A
zb1`TO`FJurGi0QhHHvRhxxuJ5N$|vh^EIN&6t_k{ox5+><Q*R_H@&T!^~@~$P}ANy
zLRw4X^XE#YT(<6J4oPM+yPT8zG?7QGtUW|FK%m^D|Ab-w*2U)W!j;Fi{1TRt3Fgw7
zx9!;>L$@zSC+yS+YBiR;xG|%uh{JB-^5|)oU4-uRel)(+a{g?*nWB~<_kx2~>dJEI
hx4S1@))!jR-M)2C#j~DQoA1P)6nW_6q$u)p4FJVevcv!Y

literal 426
zcmb2|=3oE==A*%9{SG+@$ZfM{>U4XoUGc%?$?^z2HVwlLPOd72dtn+Em*n_zS3S+G
z;T68meK$4TBU<re!lPxE^V7=G%F@!yZb*i9EmmSMFqpykiP>Q0pQi^}nvN`Pe}3~!
ze_Bk(@8d;FLsl|N96#mtXy1{^TQ_nkh(_^GQ~CY>%Sxs<2kO5zM-;Wcj$M0pYUfIU
zVAW-AJ<dM1!k4AkZI(@#-Mp;EhF|&QTBGpIy*K!b$|me=UL%{5uO7<w`&ajA1C3MH
zem!)!dVfz`Q`A|xj1mETf%mhdY^Ti5h<Ba&$6E6L>7IJ&x4TYnx%<KSF~e8WEBBSY
zO?z4FXZ&-b?A+_FIg0lL(q4TD$Xig;YH^_ER71A0dexqi`62&TJZ~{EK6z2yS~@p^
zX|0Qma-)u*zNL0rlKuB&zl4=mbMo7py3d#Q$)2x{`A{J@anJLw(d&Y(Z|8iE-uQaj
z-6?kp&RyPg`^Q;_rT6DQFrI&JzUQe2kv4%^-z<2<np8fka;YEb7e8ntyk4L+U$twc
j)uEFAA?e$eh0Xb3sqd@&a?$1HtLAsD9nX2QGB5xDxZ})7

diff --git a/data/ZimmermannTb12.27.rda b/data/ZimmermannTb12.27.rda
index 5acad87ddc8c294314a01cda6ecaf4d190c3e4f1..0bd6a558b1fceebbdd10597f6ac9c7dd469f5fb3 100644
GIT binary patch
literal 431
zcmZ>Y%CIzaj8qGb+;Q7hlz}O-{>uO23<eg*`j`K!{|4Bn-*0eWU}*4QU|`(9*u&&v
zDlj9{B+J&6P5I)Ks(H(ooOLi{d}Zt2Rp~q{CB-PAtw)XHvRjYCWi>YjCQc!>PXCKb
zu1HE>x$@--<EsSsB@$P@IBxOfI(5O}V1omry}3P4Z04jqo4=oT+HK9O<e%sy&}5O|
z6p-qZUn2I1X_H6NXKRIhOPZ^ux5}tyue}t!p;U3H<l3o=7cXNt$g!z-stA|L!vN{E
zA+5jv{a@I-UB}z*OwamEm5Du>EJ;;r%Q!BU?evR#we<=U=LVL91f?FKi3@&6KYh-)
zdfV@q8P;Yy{)p-*Fh)#D;K)ee<;^#6EM|~qP+Z7y=0esw&Si>!JVFX>Z2wt%uX}ae
zSoO-!#1)qX1deyDw&}N$TBCj9;5M_{KA8)*PUBEL*S^H(%8}ZDOZU@`Z7Du}tA6#O
z6;ESUi=GY@_NWcByL;gFfhy6cYkF&^YfGPE{j*FqbLtJXm>&(7{xLW6-t%}NBfrdV
qft5?^tYx>ddd)7(c((oAkM}tZ`)vg;ZIJ(1t`gkJ$=$p8VgLZmsKLGf

literal 415
zcmb2|=3oE==A*&4{SG+@%#CAKk?P%lpxOV(wAF@zET&x_{Ww16>Z;C~a!uqy_`hTK
z6+Z625Noyg?o>6q88-~(SQ_tMZaw$r?Zx||Ux+g}usfSK{Aci)`#&?mY2M>!e=lb|
zIj$_$c9;FQ?#@z%WbZYPb{yNdBSwd%LZP$y=-Ge!cZ4*^{?M;8cy{lY(QFsfcA4pO
zj4VZqRz0~Q;(MC=#tfDHaV9DERJwL<53oC{b=mmL2?OK9Yj`$?&(?7M|D(G<al)xn
zzY=4w+}|_1xnkDb$foKE59}T>CP{x*KapP$&;Qf(ng7K2fEqpJmjU}aZXB*)t(5<1
z`SRS8uf9)Wujpz&zu{Kb>QNdLn||tN)Cud3<DGp*>Q~G!UjGuYdU4*;BC9`p_@tio
zgq-twyFEDj%@wP+(ZMr?XLRyCj|x0-=(~BF?D?(w{KtEDJ@(l1@QUib=)4nqUY**r
z?epx;N%{#V-0Wf<CN~`n{^60nd9TKdwj*brTS!fK@7vtDXnOzR>q41b(_Y+IkaX-K
a7qeO7(!?{{RgO0wRe$Ync+Q8FfdK&1$<got

-- 
GitLab