From dd83e1604302d33215804ecd4606d5b4d109e9df Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Sun, 6 Nov 2016 10:43:36 -0200
Subject: [PATCH] =?UTF-8?q?Corrige=20dados=20e=20documenta=C3=A7=C3=A3o=20?=
 =?UTF-8?q?de=20SchwaabEx3.3?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 R/SchwaabEx3.3.R          |  29 ++++---
 data-raw/SchwaabEx3.3.txt | 162 +++++++++++++++++++-------------------
 data/SchwaabEx3.3.rda     | Bin 680 -> 682 bytes
 3 files changed, 97 insertions(+), 94 deletions(-)

diff --git a/R/SchwaabEx3.3.R b/R/SchwaabEx3.3.R
index eea1229e..bf696c21 100644
--- a/R/SchwaabEx3.3.R
+++ b/R/SchwaabEx3.3.R
@@ -1,30 +1,33 @@
 #' @name SchwaabEx3.3
-#' @title Avaliação de Operadores numa Empresa Quimica
-#' @description Quatro turmas de operadores devem ser avaliados em
+#' @title Avaliação de Operadores numa Empresa Química
+#' @description Estudo que avaliou operadores de quatro turmas em
 #'     relação ao desempenho na operação de um reator.
 #' @format Um \code{data.frame} com 80 observações e 2 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{turma}}{Fator de 4 níveis qualitativos, que são as
-#'     turmas avaliadas.}
+#' \item{\code{turma}}{Fator de 4 níveis que representa a turma do
+#'     operador avaliado.}
 #'
-#' \item{\code{dados}}{Fator numérico que representa os valores dos
-#'     dados de conversão do reator.}
+#' \item{\code{desemp}}{Escore de desempenho do avaliador na operação do
+#'     reator.}
 #'
 #' }
-#' @keywords DBC
-#' @source Schwaab, M., Pinto, J. C.(2007). Análise de Dados
+#' @keywords AASI
+#' @source Schwaab, M., Pinto, J. C.(2007) . Análise de Dados
 #'     Experimentais I. Rio de Janeiro, RJ. COPPE UFRJ e-papers.
 #' @examples
 #'
 #' data(SchwaabEx3.3)
 #' str(SchwaabEx3.3)
 #'
+#' meds <- with(SchwaabEx3.3, tapply(desemp, turma, summary))
+#' do.call(cbind, meds)
+#'
 #' library(lattice)
-#' bwplot(dados ~ turma,
-#'        data =SchwaabEx3.3 ,
-#'        ylab = "Dados de conversão no reator",
-#'        xlab = "Turmas")
+#' bwplot(desemp ~ turma,
+#'        data = SchwaabEx3.3,
+#'        ylab = "Desempenho do operador",
+#'        xlab = "Turma")
 #'
-NULL    
\ No newline at end of file
+NULL
diff --git a/data-raw/SchwaabEx3.3.txt b/data-raw/SchwaabEx3.3.txt
index a47b8963..c6907246 100644
--- a/data-raw/SchwaabEx3.3.txt
+++ b/data-raw/SchwaabEx3.3.txt
@@ -1,81 +1,81 @@
-turma	dados
-t1	0.892
-t1	0.910
-t1	0.880
-t1	0.900
-t1	0.920
-t1	0.905
-t1	0.860
-t1	0.920
-t1	0.904
-t1	0.930
-t1	0.921
-t1	0.872
-t1	0.897
-t1	0.880
-t1	0.911
-t1	0.908
-t1	0.915
-t1	0.882
-t1	0.920
-t1	0.900
-t2	0.850
-t2	0.875
-t2	0.880
-t2	0.842
-t2	0.900
-t2	0.910
-t2	0.891
-t2	0.905
-t2	0.870
-t2	0.865
-t2	0.880
-t2	0.891
-t2	0.832
-t2	0.886
-t2	0.872
-t2	0.907
-t2	0.652
-t2	0.871
-t2	0.915
-t2	0.870
-t3	0.775
-t3	0.872
-t3	0.650
-t3	0.881
-t3	0.910
-t3	0.720
-t3	0.851
-t3	0.820
-t3	0.730
-t3	0.780
-t3	0.792
-t3	0.751
-t3	0.891
-t3	0.950
-t3	0.971
-t3	0.918
-t3	0.863
-t3	0.721
-t3	0.753
-t3	0.828
-t4	0.915
-t4	0.921
-t4	0.917
-t4	0.911
-t4	0.907
-t4	0.899
-t4	0.912
-t4	0.910
-t4	0.907
-t4	0.913
-t4	0.905
-t4	0.898
-t4	0.902
-t4	0.911
-t4	0.907
-t4	0.906
-t4	0.913
-t4	0.908
-t4	0.906
-t4	0.909
+turma	desemp
+t1	0.892
+t1	0.91
+t1	0.88
+t1	0.9
+t1	0.92
+t1	0.905
+t1	0.86
+t1	0.92
+t1	0.904
+t1	0.93
+t1	0.921
+t1	0.872
+t1	0.897
+t1	0.88
+t1	0.911
+t1	0.908
+t1	0.915
+t1	0.882
+t1	0.92
+t1	0.9
+t2	0.85
+t2	0.875
+t2	0.88
+t2	0.842
+t2	0.9
+t2	0.91
+t2	0.891
+t2	0.905
+t2	0.87
+t2	0.865
+t2	0.88
+t2	0.891
+t2	0.832
+t2	0.886
+t2	0.872
+t2	0.907
+t2	0.652
+t2	0.871
+t2	0.915
+t2	0.87
+t3	0.775
+t3	0.872
+t3	0.65
+t3	0.881
+t3	0.91
+t3	0.72
+t3	0.851
+t3	0.82
+t3	0.73
+t3	0.78
+t3	0.792
+t3	0.751
+t3	0.891
+t3	0.95
+t3	0.971
+t3	0.918
+t3	0.863
+t3	0.721
+t3	0.753
+t3	0.828
+t4	0.915
+t4	0.921
+t4	0.917
+t4	0.911
+t4	0.907
+t4	0.899
+t4	0.912
+t4	0.91
+t4	0.907
+t4	0.913
+t4	0.905
+t4	0.898
+t4	0.902
+t4	0.911
+t4	0.907
+t4	0.906
+t4	0.913
+t4	0.908
+t4	0.906
+t4	0.909
diff --git a/data/SchwaabEx3.3.rda b/data/SchwaabEx3.3.rda
index 5b2edad34cfe95e0d3859b751f4468a0c8ae9f4f..1c53c989eae7fe6812d028a13317c244a2024cbb 100644
GIT binary patch
delta 654
zcmZ3%x{8(0DJsL#&@oaiII>A9(qST>W_@m>D9b@xA76<EUMU`*nI;!5n4DaYav>?n
zh;3GeA;Tf51P)#k240gSj;?vjx5}-^HR?4v>*m(Lz}S(&z`)DEaDu@kBZGl~;j5HM
z21B!&Knk<7K+0t|AC?3+U!#nSBN9C`SS~IwN#Sw!QJX21alt6%WCP2jP<vk!&0oux
z)MwmkT)2R(-*W<61LML4MvM#C8W<;-Tu8|<`N|*g)o{wi4NKm(St?XaI&3^s;l!aY
z5l-G84+;sf-xXvRn;nwGwL5$J&kIeCJll!{6F08fT6K4lgWVxv1J2jd8kgF?zjFx)
z44C0$d!k6D#WZ<p58uO0tWwI2N*9d|^L0;ouko;6kLTnWoynIZCR{vi&cev@d#cz6
zg|;=fmgdakJEXnuX_H*&s)!<%vh~^7yFU1ep2<ykvvqOz6oZOHXZy+@X-m#NI1u=|
z)ce+6f0h1A+fCM1UzxmNN1DEx=$Q*%S~*Vl=45ZaHfOu<rRvR$X8%?t{b^xb-x>Dc
zz><T)|E`G5^uAhuv2OBnmED5L?4}DJ@BYoU(x0zA*M<Aj)tQ|u*44Eh+H~~zX}xXX
z%cUPE{(fV;Q}S&xOCozNgL9GT2k~>7iU$rX6j<;v(Xc$E-a*Xvr~_lup|*)j9t!9v
ze(UH+&`VL@vNObqH{$$E2B{@hE{(E{huQzBFj+XfVEVj3<qWUVj&jlG`!zo6uQF(H
zejP6`t;bT_HS|-Y@uewuoc}f~_Tl0Bf0Z-hU{iaBL9@1t^Zlu5N%AU_uYZY2Sd{;^
zYSKcD#2|&H0+%BiY`V;nQ_U|={Nt?p*O|%7S|{1tW5v|uR~_9|uI61GuXrxMK3;$H
O&O|>E6@|8G0So}v3LK39

delta 652
zcmZ3*x`LI@DJsL#&@oaiII=P>=f^}o&3X@olP!`A7mi4pT%61(AvoD*mXslzvKpgF
z2CpQuz-7*5ZnI2yW*Q|hDb1SayUK9c;wzU0CoW)MU|f*Fz}Cylz;J<=t%1kk0`rxO
ziwl@|W;jmZ<#C+sD`_CuC~0zX;bMU#qXc2MhKmync@1WzWG;3%Ia!TC$TRq|uTb5}
zty1+y>?<;uov&PAc3`+r)wqDIK}w3@1ml8}6E0t}b-r>Y*zK~W)wz`l6>Ab_o|%xM
zSf!&F@u$Ew%Hj7Sg~!2JJ&w`GKiOYs5#mTSp3rM|%4Pe)lnFu-PF)8yrbTspz5T80
zL>HHqFo)|anRZ2<Q>IfyW6T^DNC@c)vq_ZP@%zkIFErh#m|N*fnc-WR%>@nu0owy>
z9a&75UDXcxP&P5~yQ<<-)y(EeN{?@<9p21xG5XjwzEihUloOjDbx6eoDC<gzA7=D;
ze{Fr*pPR1xy|%uJ{5~f=(U2=HP1^IoG-sJZrUB7cwMBHU-7@>K!0YLupqi$nOUlWu
zY~8G@>Ml>5c)tF++pi!E*D|eb;zrKLOTY0(Es&LN70~C*Ipgcv{3UnVa$#AGoi~4-
zj{eBMGgUpYCeL_5NnmAzjO9@amJX5m6B1m`vdN3<%l>3Ile31A<&nv=M;sZ!y4N@o
z^pao9{xo-ysb|R9243c0E|u#YF1847KIGuIiQ(#lFdts2ZQ{#HzpH)L5lQ4|dmG=f
zB=PE9A={TJJtE7_+h0Fra$w)azk%zI@~~Ljw@7+9$^BW|Y4dZ*ygf@EGYZ#dz11>(
z%q`Kxc~Gd*#ZY6$nw9(J^goi+e<dLlcr$65#Zi~l^FvyS47>701+Pi2$YifSdS{}a
Lh>BeJY&!-3@W&6`

-- 
GitLab