From eedf4be81a5bfeca37e0f47f6cc923fb91923e1f Mon Sep 17 00:00:00 2001
From: Lineu <lialcafre@gmail.com>
Date: Mon, 5 Sep 2016 13:43:53 -0300
Subject: [PATCH] Adiciona Tabela 2A.1

---
 R/NetoTb2A.1.R          |  34 ++++++++++++++---------------
 data-raw/NetoTb2A.1.txt |  46 ++++++++++++++++++++--------------------
 data/NetoTb2A.1.rda     | Bin 578 -> 586 bytes
 man/NetoTb2A.1.Rd       |  32 +++++++++++++---------------
 4 files changed, 54 insertions(+), 58 deletions(-)

diff --git a/R/NetoTb2A.1.R b/R/NetoTb2A.1.R
index ef3aaf36..a08931cc 100644
--- a/R/NetoTb2A.1.R
+++ b/R/NetoTb2A.1.R
@@ -1,37 +1,35 @@
 #' @name NetoTb2A.1
 #' @title De casa para o trabalho
-#' @description A tabela contém resultados de 32 ensaios em que foi
-#'    cronometrado o tempo transcorrido desde a passagem por uma ponte
-#'    até a chegada do pesquisador ao seu destino final.
+#' @description Foi cronometrado o tempo transcorrido desde o momento em
+#'    que o ônibus passa por uma ponte no trajeto até a hora que o
+#'    pesquisador chega à seu destino final.
 #' @format Um \code{data.frame} com 32 observações e 5 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{ens}}{Ensaio correspondente.}
+#' \item{\code{ens}}{Número do ensaio.}
 #'
-#' \item{\code{sai}}{Fator de 25 níveis qualitativos referente aos
-#'    horários de saída do pesquisador.}
-#'    
-#' \item{\code{dia}}{Fator de 5 níveis qualitativos referente aos dias
-#'    da semana em que o pesquisador realizou o percurso.}
+#' \item{\code{sai}}{Fator de 25 níveis referentes aos horários de 
+#'    saída do pesquisador.}
 #'
-#' \item{\code{perc}}{Fator de 3 níveis referente ao percurso realizado
-#'    pelo pesquisador}
+#' \item{dia}{Fator de 5 níveis referentes aos dias em que o pesquisador
+#'    realizou o trajeto.}
+#'    
+#' \item{perc}{Fator de e níveis referentes ao percurso realizado.}
 #' 
-#' \item{\code{tem}}{Tempo de viagem, em minutos}
+#' \item{tem}{Tempo de viagem do pesquisador.} 
 #'
 #' }
 #' @keywords DBC
 #' @source Barros Neto, Benício de (2010), (Tabela 2A.1, pág. 86)
 #' @examples
 #'
-#' library(lattice)
-#'
 #' data(NetoTb2A.1)
 #' str(NetoTb2A.1)
 #'
-#' xyplot(tem ~ ens, xlab = "Ensaio", ylab = "Tempo",
-#'        main = "Tempos do Experimento na Ordem de Obtenção",
-#'        data = NetoTb2A.1)
+#' plot(tem ~ ens, type = "o", col = "blue", data = NetoTb2A.1,
+#'      xlab = "Ensaio", ylab = "Tempo", 
+#'      main = "Tempo de Viagem")
+#'
 #'
-NULL
\ No newline at end of file
+NULL
diff --git a/data-raw/NetoTb2A.1.txt b/data-raw/NetoTb2A.1.txt
index 47dea3d5..b14a3805 100644
--- a/data-raw/NetoTb2A.1.txt
+++ b/data-raw/NetoTb2A.1.txt
@@ -1,27 +1,27 @@
 ens	sai	dia	perc	tem
-1	10:55	segunda 	C	18.3
-2	11:20	quarta	C	18.9
-3	10:40	sexta	B	10.9
-4	11:25	segunda 	C	20.7
-5	12:50	sexta	B	11.4
-6	11:30	quarta	C	22.9
-7	11:25	quarta	B	12.1
-8	07:35	ter�a	A	12.8
-9	08:10	segunda 	C	56.3
-10	07:00	ter�a	A	13.3
-11	08:10	quinta	B	10.9
-12	17:00	sexta	A	13.1
-13	15:00	quarta	A	12.7
-14	12:30	segunda 	C	20.6
-15	07:30	ter�a	C	18.9
-16	12:30	quarta	B	11
-17	08:15	sexta	B	10.3
-18	07:05	quinta	A	13
-19	12:50	segunda 	C	18.6
-20	07:35	ter�a	A	13
-21	08:00	quinta	B	10.6
-22	09:20	quarta	B	10.4
-23	07:15	quinta	C	21.5
+1	10:55	seg 	C	18.3
+2	11:20	qua	C	18.9
+3	10:40	sex	B	10.9
+4	11:25	seg 	C	20.7
+5	12:50	sex	B	11.4
+6	11:30	qua	C	22.9
+7	11:25	qua	B	12.1
+8	07:35	ter	A	12.8
+9	08:10	seg 	C	56.3
+10	07:00	ter	A	13.3
+11	08:10	qui	B	10.9
+12	17:00	sex	A	13.1
+13	15:00	qua	A	12.7
+14	12:30	seg 	C	20.6
+15	07:30	ter	C	18.9
+16	12:30	qua	B	11
+17	08:15	sex	B	10.3
+18	07:05	qui	A	13
+19	12:50	seg 	C	18.6
+20	07:35	ter	A	13
+21	08:00	qui	B	10.6
+22	09:20	qua	B	10.4
+23	07:15	qui	C	21.5
 24	08:15	sexta	B	10.9
 25	08:40	segunda 	B	10.9
 26	08:40	quarta	B	11
diff --git a/data/NetoTb2A.1.rda b/data/NetoTb2A.1.rda
index 7b82583c3a097839d543c3975fa536e95fdb0ef0..13161cdea851970dffa916b4556af6366ca4696f 100644
GIT binary patch
delta 572
zcmX@aa*9RJDJsL#&@oaiIFjYwl@bP~V-p3X>lqjr4={c#P~_!MTk_Q=@RfA%sf-Mx
zs)h?vj0+gp8or!lTQ>QE#$Q*H6NgexFi5!hv^5-JV31^&H1OqVb93|MWymlxXvi?h
zoN&a1!DUfas(-Mrt>Xj+h7%bKNx9CPi?3W@d?okmw!%zy-iYQ$CR2Jc&IM{ra+Q&A
z%#IXLtzWyyBh7|$9ozQ_3W07LrFoZiERgxWGk?jp<7%xcDj8hCvKl^Y3;fu6%*-O0
zb9N{cgq-~O_>`59Sy}kye*y}wel3A^WyUdIHa&m3E%nT;YdL2-nZB5mY<cU&y0cEp
zFsVAlL9`%2)vs-9z|QWqw=Un?wP)>Io@*?@VH%ISroXBG_0MYV-@D!`-?#fuT<6It
zDd8#X^5?*|ESnI4tD!0_3aft=Ul8tRd0@8C?PTKOPNj{?nGz9AQh{sqI~1PvMYKk6
zDzWwE29!^@-&AZ=_d$QI@2+53ZSP*qa_-v77Z2WrteBt}a58(=98n&&7!h{6XZK!q
z3%BxeC9<${JDEt=dx%f?{3UqW)<w!Zhk7rr?ALj!^J<ktn}CKy(8O@wEGH+|Ek}QZ
zKHU9l`iDBXvzjZy%~$X&ykd0a$rowycu}X#OPglINgUXB;((5-+gj^dB}<iOwT&&e
z-s>5tJUq3gjC05HW>F)4wRFD4oi8jeCSIH-v}Z+6UUnRVxMS?R_3}#Yd$%|_?F=+}
f-TJr3_v87V|1q=joQ~E%dgrm6ONe3it-b~T2om=U

delta 564
zcmX@ba)?FHDJsL#&@oaiII>KmVJ!pGu8D%u^$iS+2N*vVm>HbnoZ>6LDs$qiN>gUX
zt+vWn*jF&SH83uaYpQDY6-o@gQq`llRf+)u*c#6oN=llXTp-CS$upCIfmzw7mzg7l
zV~WGdSGhipi<KQ1*xGy=Um5ZTR5eK1I==3o!gHbFSW5TAOS(3Pc8M5YnC!%_IMtK2
zKIvSRUJ`3KNAxKdftXW|4xD^#^T73;!qg@0A{qCCl;j$PZV0q(kqX-NaD^IY(6<j2
z{z(tN?oUqt<;uA^arL<Z6HPM?lQl-FH&U(5l8&8-o40J;))fwY@--fkm)tyAKQws+
zT)(j*;-Hz;ubDaP_W7O54iI^JFeXsw&%FNj?2YwrAAa8QXUT+#6I&)4PIK7TD$Bxf
ziA5z+kwfc)<%^YzS<X~Gbi1-8LtG_HC3j-$5|&2?*625ARX?7j7{=t$*thM9e3WFu
ztXVb^;^)%7YIaRs+AbG)=+vH;g7Q}(9s(;eqmzS8of)UGGM?YR_m$qxLv5`FZN|=r
z_J}X=TX_A(#ronot2PTs99!+nE)~pnbt#uq8wXcVXfAh<msi*k?sMTe`#bm6_0Hca
zab~lh!Tp@~Q4_XaIvXrJy;YxwFE^mhi@`+l?Ss2JBmdmX>SynkPkOk9MW*Cf<*A$>
zFGVj-7qQzK?L1?dt=G;40c)n@=ae+?UOuY+<(7506H9A(pm~kd!TPXgKb{|{-@4W>
Ucv(#NKfNbi1q&741Tsbe0KxJ0WB>pF

diff --git a/man/NetoTb2A.1.Rd b/man/NetoTb2A.1.Rd
index ecc0a301..6ccd6398 100644
--- a/man/NetoTb2A.1.Rd
+++ b/man/NetoTb2A.1.Rd
@@ -7,38 +7,36 @@
 
 \describe{
 
-\item{\code{ens}}{Ensaio correspondente.}
+\item{\code{ens}}{Número do ensaio.}
 
-\item{\code{sai}}{Fator de 25 níveis qualitativos referente aos
-   horários de saída do pesquisador.}
-   
-\item{\code{dia}}{Fator de 5 níveis qualitativos referente aos dias
-   da semana em que o pesquisador realizou o percurso.}
+\item{\code{sai}}{Fator de 25 níveis referentes aos horários de 
+   saída do pesquisador.}
 
-\item{\code{perc}}{Fator de 3 níveis referente ao percurso realizado
-   pelo pesquisador}
+\item{dia}{Fator de 5 níveis referentes aos dias em que o pesquisador
+   realizou o trajeto.}
+   
+\item{perc}{Fator de e níveis referentes ao percurso realizado.}
 
-\item{\code{tem}}{Tempo de viagem, em minutos}
+\item{tem}{Tempo de viagem do pesquisador.} 
 
 }}
 \source{
 Barros Neto, Benício de (2010), (Tabela 2A.1, pág. 86)
 }
 \description{
-A tabela contém resultados de 32 ensaios em que foi
-   cronometrado o tempo transcorrido desde a passagem por uma ponte
-   até a chegada do pesquisador ao seu destino final.
+Foi cronometrado o tempo transcorrido desde o momento em
+   que o ônibus passa por uma ponte no trajeto até a hora que o
+   pesquisador chega à seu destino final.
 }
 \examples{
 
-library(lattice)
-
 data(NetoTb2A.1)
 str(NetoTb2A.1)
 
-xyplot(tem ~ ens, xlab = "Ensaio", ylab = "Tempo",
-       main = "Tempos do Experimento na Ordem de Obtenção",
-       data = NetoTb2A.1)
+plot(tem ~ ens, type = "o", col = "blue", data = NetoTb2A.1,
+     xlab = "Ensaio", ylab = "Tempo", 
+     main = "Tempo de Viagem")
+
 
 }
 \keyword{DBC}
-- 
GitLab