From c28c1d372971209d20688184341320be3ee106c2 Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Thu, 22 Sep 2016 16:36:51 -0300
Subject: [PATCH] =?UTF-8?q?Refaz=20a=20inclus=C3=A3o=20da=20s=C3=A9rie=20M?=
 =?UTF-8?q?orettinTb4.10?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 R/MorettinTb4.10.R          |  79 ++++++++--------------
 data-raw/MorettinTb4.10.txt | 126 ++++++++++++++++++++++++++++++++----
 data/MorettinTb4.10.rda     | Bin 732 -> 712 bytes
 man/MorettinTb4.10.Rd       |  41 ++++++++++++
 4 files changed, 183 insertions(+), 63 deletions(-)
 create mode 100644 man/MorettinTb4.10.Rd

diff --git a/R/MorettinTb4.10.R b/R/MorettinTb4.10.R
index e44046c8..32188b1f 100644
--- a/R/MorettinTb4.10.R
+++ b/R/MorettinTb4.10.R
@@ -1,58 +1,33 @@
 #' @name MorettinTb4.10
-#' @title Preço Médio Mensal de Café 
-#' @description Dados de uma série do preço médio mensal (corrente), 
-#'     recebido pelos produtos de café, no Estado de São Paulo. A tabela
-#'     é referente aos meses de Janeiro de 1970 a Junho de 1979. 
-#' @format Uma série temporal (classe \code{ts}), com 12 observações, 
-#'     em que
-#'
-#' \describe{
-#'
-#' \item{\code{Jan}}{Número decimal que indica o preço médio do mês de Janeiro.}
-#' 
-#' \item{\code{Fev}}{Número decimal que indica o preço médio do mês de 
-#'     Fevereiro.}
-#'     
-#' \item{\code{Mar}}{Número decimal que indica o preço médio do mês de Março.}
-#' 
-#' \item{\code{Abril}}{Número decimal que indica o preço médio do mês de Abril.}
-#' 
-#' \item{\code{Mai}}{Número decimal que indica o preço médio do mês de Maio.}
-#' 
-#' \item{\code{Jun}}{Número decimal que indica o preço médio do mês de Junho.}
-#' 
-#' \item{\code{Jul}}{Número decimal que indica o preço médio do mês de Julho.}
-#' 
-#' \item{\code{Ago}}{Número decimal que indica o preço médio do mês de Agosto.}
-#' 
-#' \item{\code{Set}}{Número decimal que indica o preço médio do mês de 
-#'      Setembro.}
-#' 
-#' \item{\code{Out}}{Número decimal que indica o preço médio do mês de Outubro.}
-#' 
-#' \item{\code{Nov}}{Número decimal que indica o preço médio do mês de  
-#'     Novembro.}
-#' 
-#' \item{\code{Dez}}{Número decimal que indica o preço médio do mês de 
-#'     Dezembro.}
-#' 
-#' }
-#' @keywords TS temporais
+#' @title Preço Médio Mensal de Café no Estado de São Paulo
+#' @description Dados sobre o preço médio mensal (corrente), MENSURADO
+#'     EM ???, recebido pelos produtos de café, no Estado de São Paulo
+#'     durante o período de 1970 a 1979.  referente aos meses de janeiro
+#'     de 1970 a junho de 1979.
+#' @format Uma série temporal (classe \code{ts}), com 144 observações
+#'     mensais, de janeiro de 1970 a junho de 1979.
+#' @keywords TS
 #' @source Morettin, P. A., Toloi, C. M. C. (2006). Análise de Séries
-#'     Temporais (2nd ed.). São Paulo, SP: Editora Egard Blucher. (Tabela 4.10
-#'     pág. 100)
+#'     Temporais (2nd ed.). São Paulo, SP: Editora Egard
+#'     Blucher. (Tabela 4.10 pág. 100)
 #' @examples
 #'
 #' data(MorettinTb4.10)
-#' 
-#' library(lattice)
 #' str(MorettinTb4.10)
-#' 
-#' fivenum(MorettinTb4.10)
-#' 
-#' xyplot(MorettinTb4.10, type = c("l", "g"), 
-#'        layout = c(2, 6), xlab = "Anos", ylab = "Preços", 
-#'        main = "Preço médio mensal do café", strip = strip.custom(bg = "white"), 
-#'        lwd = 2, col = c("violetred", "palegreen2", "yellow"), 
-#'        scales = list(y = list(rot = 0)))
-NULL
\ No newline at end of file
+#' MorettinTb4.10
+#'
+#' # Médias anuais
+#' aggregate(MorettinTb4.10, FUN = mean)
+#'
+#' # Médias mensais
+#' tapply(MorettinTb4.10, cycle(MorettinTb4.10), mean)
+#'
+#' # Visualização da série
+#' library(lattice)
+#' xyplot(MorettinTb4.10, type = c("o", "g"), pch = 19)
+#'
+#' # Gráfico da decomposição sazonal
+#' library(latticeExtra)
+#' xyplot(stl(MorettinTb4.10, s.window = 12))
+#'
+NULL
diff --git a/data-raw/MorettinTb4.10.txt b/data-raw/MorettinTb4.10.txt
index 919633e5..e79db26a 100644
--- a/data-raw/MorettinTb4.10.txt
+++ b/data-raw/MorettinTb4.10.txt
@@ -1,11 +1,115 @@
-Jan	Fev	Mar	Abr	Mai	Jun	Jul	Ago	Set	Out	Nov	Dez
-123.3	134.77	141.16	144.62	145.76	142.45	144.18	147.68	148.95	148.95	146.69	144.5
-138.82	131.46	137.5	138.22	134.05	130.25	126.55	126.47	125.5	127.09	129.85	132.16
-139.14	141.21	144.07	149.38	157.44	163.45	182.5	222.07	221.98	213.6	216.65	218.61
-228.06	238.34	245.27	249.25	248.89	256.21	278.78	287	286.27	287.7	291.4	298.4
-301.41	312.84	367.31	379.06	368.57	353.05	340.5	322.89	314.3	307.03	308.7	315.95
-337.48	339.39	333.07	327.49	335.09	376	383.57	632.51	638.12	640.45	635.82	649.45
-768.39	891.4	919.2	1057.7	1418.2	1423.8	1412.4	1368.7	1446.5	1492.2	1651.6	1792.3
-2045.4	2158	3401.3	3763.8	3013.9	2574.9	2158.5	1908.4	1801.2	1741.2	2075.5	2089
-2097.8	1968.6	1896.2	1867.9	1815.7	1956.2	1859.9	1878.2	2013.5	1947	1939.9	1843.4
-1907.8	1970.5	2045.2	2211.8	2452	2915.4	NA	NA	NA	NA	NA	NA
+x
+123.3
+134.77
+141.16
+144.62
+145.76
+142.45
+144.18
+147.68
+148.95
+148.95
+146.69
+144.5
+138.82
+131.46
+137.5
+138.22
+134.05
+130.25
+126.55
+126.47
+125.5
+127.09
+129.85
+132.16
+139.14
+141.21
+144.07
+149.38
+157.44
+163.45
+182.5
+222.07
+221.98
+213.6
+216.65
+218.61
+228.06
+238.34
+245.27
+249.25
+248.89
+256.21
+278.78
+287
+286.27
+287.7
+291.4
+298.4
+301.41
+312.84
+367.31
+379.06
+368.57
+353.05
+340.5
+322.89
+314.3
+307.03
+308.7
+315.95
+337.48
+339.39
+333.07
+327.49
+335.09
+376
+383.57
+632.51
+638.12
+640.45
+635.82
+649.45
+768.39
+891.4
+919.2
+1057.7
+1418.2
+1423.8
+1412.4
+1368.7
+1446.5
+1492.2
+1651.6
+1792.3
+2045.4
+2158
+3401.3
+3763.8
+3013.9
+2574.9
+2158.5
+1908.4
+1801.2
+1741.2
+2075.5
+2089
+2097.8
+1968.6
+1896.2
+1867.9
+1815.7
+1956.2
+1859.9
+1878.2
+2013.5
+1947
+1939.9
+1843.4
+1907.8
+1970.5
+2045.2
+2211.8
+2452
+2915.4
diff --git a/data/MorettinTb4.10.rda b/data/MorettinTb4.10.rda
index fd740863e2f81cf55e59ec8df75f93fa1c2c2c00..6b1c5db175e85910c93ee1612d68165bc3857f43 100644
GIT binary patch
literal 712
zcmZ>Y%CIzaj8qGb+_Ac+l7W%u|Nno6Z`xZD|DHN>>Tl@({r_j=`(57u{=P@T{_vOQ
zRru019T>lts~4~0)m-7$%QlOls@LSg1t|t*2Zqa67)*>9GI$x79jcnId^M5lT;{|X
zxPT$U)|9OwiNWLoo7%j^90yGpPB1W}ur<iFm`E9!2->Rn2UR&=VE`L(fdL74sf2u$
zTfWR$bD5Ek$;?F=Ctn&UU+^_>_F*wwHjAgNSy*uS0^cPkE}S^|%2vHIx}fHK=lvkx
zFAEpk-n}>IWJRjUl=Kz{K1;(ukJ%Elm*_ufVo(=QTEWN|t7Raf(dcX{Xli$Y+4(4c
zi5ZvXJ!TVTg#;!xM>Y;7wH2&!(i*2FY<nD<0-PGfSbrrwc*Jxx>GAeyGv_^8w?R%J
z#ZU59-p(@bnQ9Ye=rDHO>v7{_zT6<;_w;V!<prl&8ko!_?Kvv<)%(eZo4iT;yfsSf
zaNI%7aBU7F*W!pT^^q%$7qbZWcE7uNJ#opUXokaW-Gy97&%e4{s<Y{;+R23%?R0c}
zW^3*Z`Z?1<Z~FDAGrUgEWL02dYgR~5ID5)dp+RK^M^BRG?UcGBOv^T0d-L&vd!FVa
z#)L?VxnU)@Pp4m#4^iMq<S5c;pBZSUrS>iRS$pV52T%TUrSqTe+dcn!X-Bc?8!5AG
zkzq@+meoFu<S=RP-*@ovF>bp9sZUMHj<g;)BBS#p!|wD%W2u4`LCt$fjHda0LOL!S
zYD(dj`x5*)1ld2GliyqZq`$bzqsCKX?|Dx_i4K<tr>2+{rk_+j6M9#=M+-(<%d%<e
z-rn}y@%ze-z(2oRuPtM!Tc3C3S$qHMGfN#7$V&=|d{kms82)N8`-QI}n+{L@-2ZQ;
zo)DwhrhD@3J5H`!ck}q=1cAAG6;5$-wYe;cS`cFLs93x;)3g8S7Uk;(e2(QR!L6L!
JT|16X000(!EdKxi

literal 732
zcmb2|=3oE==Gc%}50O9-x$-SVn#Lkkn$<58s|~d`DjX5^(C(ZmrKo6S{95bwyL0c(
zoq5+~8?iz#Lc>vd*1G6fu2Wd{-k6+X-;$#0$ojY8!fZQ<43Wl?_jToAH@J5{w=UoJ
zdG37cV(Hbh`K@Qqoup!^5_xW-j8XGWzHif&pL+c~BX*^gXMO6=FPoz(UoJHAoWy-2
zPkd{g%^~rX&$SN=&!4+wTe<$u<=vVEl{@#RESuQl->kdttGLKr+t@pML!85(PMX>F
zv`#8sJ}tW?NbbhQ?-v618B9IJp=q`Jt#T=snZ@~3{YjN`m#<us!TO1}#x>^E>?7i;
z&#itedSX-aRqoTu)DNcYkG`;<5RQ(XFP&rQa80S=`n-kn+Ra^JS8mVIz3@Y7P1un`
zhbAxCH8-YXi@TnlgQEDC$NnvGGJ6(kcU0fe{K9wWUg6=a<5E8scvSM;KYaYjyk!^U
z&KS<?-?b+Gh4sUxdw&^kTnxLxIWfMr{ohonA8)PxY`AlXdufE?kB{CJ^Hv=CqxL<?
z-jc=oYt)z7$8Qz>UAB$$gO#0vo{&Rr;6(L*;-zY3oyC9q{%)L`x&Jx;_igu7b+x`s
zdU4sl{d32fru?ag-q&_MH#favxJ~2P^*P_F!*chk{K^g%ct78D{>1q+R$F%dxEDId
zJBek_#lMeYk~8Z!+eN<@eYNL<NUi(7gR@d!?DluF-G0vDdD+ex@eEZnf1O*%|J35q
z-=hyCMNcGOOWOaPec$B7!n&1<AJwiqKPz7G+tj)<x9=Z0$R!!<lrL6QyLCmriF=KF
z@1pmtFFJp1+E=vmu6RnC`!A&lDs_rE=NIK9i^TF)`L=bl<TwB2x*Vfe>~%G_;*#{{
z#JO2FKD4Cey!&O87+5RJW_0J=1m4+urt!XBELmYS#WV2j+jDs*jSm0$_h`bT{39XZ
wm$q@~$9{{Q{+x5gGR>+<xpNn!a=kdQK-clAQB7<Ti}ZiSFB5Z<+*uhI0D9SOT>t<8

diff --git a/man/MorettinTb4.10.Rd b/man/MorettinTb4.10.Rd
new file mode 100644
index 00000000..7da930d7
--- /dev/null
+++ b/man/MorettinTb4.10.Rd
@@ -0,0 +1,41 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/MorettinTb4.10.R
+\name{MorettinTb4.10}
+\alias{MorettinTb4.10}
+\title{Preço Médio Mensal de Café no Estado de São Paulo}
+\format{Uma série temporal (classe \code{ts}), com 144 observações
+    mensais, de janeiro de 1970 a junho de 1979.}
+\source{
+Morettin, P. A., Toloi, C. M. C. (2006). Análise de Séries
+    Temporais (2nd ed.). São Paulo, SP: Editora Egard
+    Blucher. (Tabela 4.10 pág. 100)
+}
+\description{
+Dados sobre o preço médio mensal (corrente), MENSURADO
+    EM ???, recebido pelos produtos de café, no Estado de São Paulo
+    durante o período de 1970 a 1979.  referente aos meses de janeiro
+    de 1970 a junho de 1979.
+}
+\examples{
+
+data(MorettinTb4.10)
+str(MorettinTb4.10)
+MorettinTb4.10
+
+# Médias anuais
+aggregate(MorettinTb4.10, FUN = mean)
+
+# Médias mensais
+tapply(MorettinTb4.10, cycle(MorettinTb4.10), mean)
+
+# Visualização da série
+library(lattice)
+xyplot(MorettinTb4.10, type = c("o", "g"), pch = 19)
+
+# Gráfico da decomposição sazonal
+library(latticeExtra)
+xyplot(stl(MorettinTb4.10, s.window = 12))
+
+}
+\keyword{TS}
+
-- 
GitLab