From 4e22acbe72a7937b5523d8711d28f026e1b60db8 Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Fri, 3 Feb 2017 11:53:30 -0200
Subject: [PATCH] =?UTF-8?q?Inclui=20dados=20de=20chuva=20em=20Lavras,=20ta?=
 =?UTF-8?q?mb=C3=A9m=20pertencente=20a=20s=C3=A9rie=20A3?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 R/MorettinA3.R                                |  39 +-
 data-raw/{MorettinA3.txt => MorettinA3.1.txt} |   0
 data-raw/MorettinA3.2.txt                     | 385 ++++++++++++++++++
 data/MorettinA3.rda                           | Bin 505 -> 1701 bytes
 man/MorettinA3.Rd                             |  39 +-
 5 files changed, 447 insertions(+), 16 deletions(-)
 rename data-raw/{MorettinA3.txt => MorettinA3.1.txt} (100%)
 create mode 100644 data-raw/MorettinA3.2.txt

diff --git a/R/MorettinA3.R b/R/MorettinA3.R
index ef005cb5..64daa624 100644
--- a/R/MorettinA3.R
+++ b/R/MorettinA3.R
@@ -1,9 +1,20 @@
 #' @name MorettinA3
-#' @title Precipitação Atmosférica em Fortaleza, Ceará
-#' @description Dados sobre precipitação atmosférica em Fortaleza, no
-#'     Ceará. A série é referente ao período de 1849 a 1997.
-#' @format Uma série temporal (classe \code{ts}), com 149 observações
-#'     anuais de 1849 a 1997.
+#' @title Séries Temporais sobre Precipitação Atmosférica
+#' @description Dados sobre precipitação atmosférica em Fortaleza, Ceará
+#'     e em Lavras, Minas Gerais.
+#' @format Uma lista com duas séries temporais referentes a precipitação
+#'     atmosférica:
+#'
+#' \describe{
+#'
+#' \item{\code{Fortaleza-CE}}{Precipitação atmosférica, em Fortaleza, no
+#'     estado do Ceará. São 149 observações anuais de 1849 a 1997.}
+#'
+#' \item{\code{Lavras-MG}}{Precipitação atmosférica, em Lavras, no
+#'     estado de Minas Gerais. São 384 observações mensais de Janeiro de
+#'     1966 a Dezembro de 1997.}
+#'
+#' }
 #' @keywords TS
 #' @source MORETTIN, TOLOI (2006), Série A3 - Chuva, descrita no
 #'     Capítulo 1 pág. 16 e mencionada em diversas páginas.
@@ -14,10 +25,22 @@
 #' MorettinA3
 #'
 #' # Resumos da série
-#' summary(MorettinA3)
+#' sapply(MorettinA3, summary)
+#' sapply(MorettinA3, function(x) {
+#'     c("nobs" = length(x), "nobs/ano" = frequency(x))
+#' })
 #'
-#' # Visualização da série
+#' # Visualização das séries
 #' library(lattice)
-#' xyplot(MorettinA3, type = c("o", "g"), pch = 20, col = "orange")
+#'
+#' xyplot(MorettinA3[["Fortaleza-CE"]],
+#'        main = "Precipitação atmosférica em Fortaleza-CE",
+#'        type = c("o", "g"),
+#'        pch = 20, col = "orange")
+#'
+#' xyplot(MorettinA3[["Lavras-MG"]],
+#'        main = "Precipitação atmosférica em Fortaleza-CE",
+#'        type = c("o", "g"),
+#'        pch = 20, col = "orange")
 #'
 NULL
diff --git a/data-raw/MorettinA3.txt b/data-raw/MorettinA3.1.txt
similarity index 100%
rename from data-raw/MorettinA3.txt
rename to data-raw/MorettinA3.1.txt
diff --git a/data-raw/MorettinA3.2.txt b/data-raw/MorettinA3.2.txt
new file mode 100644
index 00000000..0e011b95
--- /dev/null
+++ b/data-raw/MorettinA3.2.txt
@@ -0,0 +1,385 @@
+x
+515
+237.1
+224.2
+24.4
+11.6
+0
+4.9
+8.7
+32.3
+168
+265.1
+302.7
+393
+283.7
+115.2
+26.1
+0.6
+28.4
+0
+0
+5.1
+123
+257.6
+210
+196
+191.5
+76.4
+28.6
+2
+2
+3.3
+42.8
+66.8
+108
+81
+372
+254
+175.3
+147.6
+50
+33.2
+43
+4.7
+24.5
+20.2
+115
+291.5
+269.4
+345
+255.5
+106
+72.2
+16.8
+23.6
+26.1
+55.4
+57.4
+144
+222.8
+102.4
+259
+56.1
+49.7
+87.3
+2.7
+108.9
+0.6
+0
+48.9
+131
+294.6
+446.4
+197
+258.8
+204
+45.2
+32.6
+0
+94.4
+18
+72.8
+188
+417.1
+199.3
+202
+116.5
+111.7
+172.3
+60.4
+35
+8.2
+27.2
+42.2
+149
+133.7
+257.4
+212
+64.1
+426.2
+62
+35.4
+72.2
+0
+4.5
+15.2
+111
+71.9
+324.5
+173
+268.6
+47.2
+49.8
+17.8
+5.1
+25.4
+0
+50
+107
+331.7
+225.4
+76
+228.2
+126.9
+84.3
+123.4
+22.4
+68.6
+107
+196
+105
+166.4
+360.9
+250
+23.8
+279.4
+88.4
+5.1
+7.4
+0
+42
+128
+51.2
+273.2
+207.3
+410
+129.2
+90.1
+30.6
+100.2
+23.2
+46.1
+0.2
+43
+156
+218.6
+201.2
+205
+380.3
+204.2
+80.4
+86
+0
+81.8
+71.3
+73
+166
+235.6
+349.6
+489
+201.8
+61
+147.6
+8.8
+82.6
+0
+13.2
+45
+60.6
+229
+250.5
+282
+70.6
+117.2
+41.4
+25.4
+50.6
+0
+22
+57
+220
+253.2
+230.6
+352
+187.6
+343.2
+23
+16
+8.5
+21.8
+2
+44
+179
+136
+507.2
+238.4
+346.5
+246
+215.8
+140.8
+127.4
+54.6
+6
+369
+184
+193.6
+413.6
+172
+68.6
+101.2
+109.7
+46.6
+0
+0
+33.4
+113
+66.5
+232.8
+267.9
+448
+160.6
+225.1
+8.3
+21.2
+2.8
+0
+2
+60.7
+76
+262.6
+392
+126
+258.7
+147.7
+28.1
+89.9
+1.2
+80.4
+81.1
+17.6
+37.6
+140.2
+509.2
+205
+135.5
+179
+109.2
+56.6
+20.6
+4
+0
+91.9
+57.4
+169
+402.3
+138
+255.6
+111.7
+31.6
+33.8
+23.2
+9.5
+0
+53.2
+181
+153.8
+189.5
+270
+361.2
+272.8
+45.2
+0
+40.5
+31.4
+6.2
+71.4
+59.4
+123.4
+271.3
+114
+120
+115
+68.4
+92.6
+0.6
+34.8
+42.6
+71.4
+91.4
+181.4
+97
+543
+203.2
+218.9
+101.4
+2
+0
+7.4
+0
+46.6
+190
+101.5
+214.9
+718
+144
+237.8
+111
+93.9
+3.5
+14.1
+25.4
+158
+144
+230
+131.6
+194
+274.9
+134.2
+62.7
+28
+54
+0
+21.6
+55.4
+47.8
+102
+229.2
+421
+211.9
+273.8
+23.8
+198.3
+10
+3.5
+0
+0
+146
+127.4
+316.8
+200
+339.5
+124.8
+64.6
+65.6
+1.2
+1
+0
+38.6
+116
+192
+442.1
+174
+310.3
+129.1
+54.1
+84.6
+17
+0.2
+18.1
+149
+90.5
+363.2
+252.7
+383.3
+114.5
+96.5
+61.1
+41
+52.6
+5.6
+1.2
+38.8
+164.1
+194.8
+253.6
diff --git a/data/MorettinA3.rda b/data/MorettinA3.rda
index 840f335400d7609ab8add63c4f5d98dbc14d0ab4..60c61905013609df45d1ed91c97286936e3f4070 100644
GIT binary patch
literal 1701
zcmZ>Y%CIzaj8qGbRGs4Ynt^rO|NsAMYtwS?*Z=(w1^55||Nl3}H`g`IH^o=SC-DO7
ztfP;c%TCBHE!(cAci3f?;L1hD4nB>qa@A(^8fAQyVqC1ad}YgtuQrpfTwHAA%Wy#|
zb4!nd*@7e~BVK7oNx6>9<qJ7xd0d#ce5FnBm1^JMzZzHm27g)pDp#$i^VjkfCSUr4
z{e!Q3<qzEJ!5@6(WQP&M1;z!u3@1#O9ZXW>7Gy9aT)yPusgS{TIl$1M$49Z{vK!|s
zwq7H)8E$S_3<;c#Qc@XG84OZVCYRkDCp){P3h*>LFssdI_GMhG<|C}^*5>TMxLDz0
zi;<*}fwKc!vyVeUFXMs>%nl3_J(e}HHJp%=%DC)cWRh}1O3H-UA%k%N<ARI~UIqpR
z1``Gb242Ie7q2gDbbV;w{6qSwPs{n%)F~(VZo4M$Tg$cPYTmlnraL>mMOGa-BpttE
zTF%*2A!UQm#L^pv(@rM$ChwSeG~n9DOF6uTa*xj*apvUHzg=}s__v3emE@+qil+}1
ztb10Y-g`Cjdi0B%9m!fJJ@<#|g~cvkxqq?JiqnVM<L~}UT0GOw@MXlN$yfLyd*&p+
zyt%gM4{Pb=nm(Qx|ECrlo7lWEX~vH;s}_kQakscWK7A+Zf!DHcRuu-Popo(Ln^x8K
z&OP@^$1CPJ%Rkxcai^j;GhJVo@OJIjE#I#1>fuk$+Mp4=`?Pt-Ayp=gT=BY>t=DII
z1h6mU@D7cXacJ6*ab?1qPA=vgX}?vc=iMnX-zXN?pt3k?XD9329S^1`a#uS{5Ht|D
z<sxYJsKYUWS)kHEe76LL5?{;~R(3Wc&TYrkW-$odP&vTP!l1Z8;8@F%BS%iK%r0nA
zyCrdBa^r+!hH4rq4o5EKE@xp;S*W#SQK!pAt`nh_-?^qZXXGw1kan2E+;%xBIfv2E
zQ00WzQ>no3o$ARA9X+b=iqFo@S{NwF&grVe#P!PKPh1~!X<JX6?}kbHocQdI9k(=M
z^X<#$5>s-WBK7GO%jw4<iyK<SSF}h=M(6ZB_@MN8jkw1jcR9VguAxc}H3z#tXgG+c
zzWwyW>vHRn8R4xD-+$B82-si$?)&VZws+nO>x%MY{Y&bn*-kohcGAPm3fpQVCYDdV
zH>HQQHtWI4O!r8>^3%&N3!FCan$gPTSu$bc>_hidRwyp$n)o)OL_{SiCU#4`Iy>LW
zBb(>sPDvNCeAFAYY7wudiS}yI@Uuy!xnKGx7arZ_+L3>9Y1*m{N<Bp<b63vPo85Fg
zHQ-S<%ggN2wK8YU3UA!y7+GARo}C%s&=@LkT+i`7SJMKei+412J0~WboH=8v<|aul
zcRhum$7u#mOE|5}G&8q6OBI;YYq&^~%b_V+h*ijimycl@r-4hC3+F^7>BcRbyS8=Q
z>fAO-n$fIL=q#horJQ*gE^da6pA3x+I)gRbxI9;Ji=2qQdN@GPa+Oz8z^M!OlOyaN
zpTD+$n^)4Z^<oL8Qw$t(W_`U_tK?yDd#&v~%}Omd?a-EEd{$vxtMWKzWP~nRH|_Gh
zxf7aF@8xg#<#|#eOy}Cx+1at`>OyKljuHkg4y!jD;d$72_te=)E(NXZ<+3jGl=kmA
zF>A|~|E|g(Z*A^s|N6yRZf+_2vAEeQO||8e-AkDkcKUDHSH`fSNF-3#tc|fRMM5zw
z$TwkuhkgBZKkEV}mdI2=>)DgIvU^u-eX-%d*#$2zmL5vGe5lsAAf#QAv6W+qip+{Q
z?iPlF4Sx>$`JLak{K~ph$7av&4!UR@vQ^a9>~dJh=MBFE%#!?;-f3=Ha4p+R#gV~a
zLZ2JMq#YjeT~{??O)42Cxo}RKvf6unD5K1?rl|{y%?%tKnAi+hMCI*^#q8pZCL4W_
z`*mBpE`;%BqpJ_oz0mA}bqzbO-tde58<l(Sx9Nq<+Ui+#qIYNg&kp>b@u}K-zc=gj
zo)9Jm1r{d;B?jMZH)abbXF9mbzT;$z)}J`9<!;`(S<7Y%EA?Icao}P8_uzBNCpPzV
zoqfcibCJJxcg8QRn16@&2+h0dp1Dfid{_FS$~?L46KmdB6}yKP$L9t{>O01lY2AtB
z%<S`<wCnmr&beHhY#Fyqf4YokS=(;!ofDVw)HpCSd^kOEhOy0>Q!2|sF6d7b^0hqh
zv`8XwT9%RBpYTfajg?l?yOXaUyS&)K#O&DQOx~V^%SW$=T)MMy^W?oeqAE+9*Pp+7
zVxrZ1o6D-{J?|_{&fYz<<C^Eh4NpzxY?!|2{K?1{W<mw>UJrHG7rpf2nkCGj;PAhD
Or_vk^51~`)r40a?Yyb-Y

literal 505
zcmZ>Y%CIzaj8qGbOm>fY%)rE7|Nnofi;IgxY{(Ngk&wL9yH3~s|NsBj1p-)DTpSG;
zlT8C&{#w4waoOS&pUc6gq+RY!cK9l{Z1I&OqXdT&M^1KJW|Wxc$f9!Pv#+lkukVrz
znF|;g7hGUqkYZqbW#;nLKEP9@bJ>Mij0<=g82AI&8rWBW<rcp@X}ia|OF+Ri$!@~)
z;u*W7#hYhkTt4SyHuEF9&b32xuP(Th@~SX9Iq(d_b<f<D<<9(>C+x3Tyl7vhAID~Y
zCY4d7mOuHNPDj>0!I;xNd4Cr$iO9{IRI@Gk7Q5DjS5B&&DVKD^q$QYrx1G2pxAbI2
zO84O;F{YxwZgcHpvpEEu4sz%25})IEQFO&oClB)(4ocRFGt3>QoiI>ooczv9c}~9?
zyGzk*!Gnfd({|2mOMfNN{6A1yMCjz}T{{$g)^l8ra(Xf^XwCi~4vG#PEiN1lK8J+X
zC&;HLp9|>{y&t++Zs%P6UyJ^o^1irDTPMZs_4Hn+sg;#)eTw*RC~lUEZSrvSxbpJG
zyxS#7qV|ff&ajz0X0UQnC=%HI;BO_PY|9os86`F$g(C$M)wCz@?|sYs)9A&i3>SvC
zQZW_ljT>HFZ26XRSHMldFY6`uq}zNNKlOK-s`>6*r#ortea$BZE5A5h*gZ+}P)oCv
H)pZE~wX)lu

diff --git a/man/MorettinA3.Rd b/man/MorettinA3.Rd
index 9aa5bbeb..93a3d5d1 100644
--- a/man/MorettinA3.Rd
+++ b/man/MorettinA3.Rd
@@ -2,16 +2,27 @@
 % Please edit documentation in R/MorettinA3.R
 \name{MorettinA3}
 \alias{MorettinA3}
-\title{Precipitação Atmosférica em Fortaleza, Ceará}
-\format{Uma série temporal (classe \code{ts}), com 149 observações
-    anuais de 1849 a 1997.}
+\title{Séries Temporais sobre Precipitação Atmosférica}
+\format{Uma lista com duas séries temporais referentes a precipitação
+    atmosférica:
+
+\describe{
+
+\item{\code{Fortaleza-CE}}{Precipitação atmosférica, em Fortaleza, no
+    estado do Ceará. São 149 observações anuais de 1849 a 1997.}
+
+\item{\code{Lavras-MG}}{Precipitação atmosférica, em Lavras, no
+    estado de Minas Gerais. São 384 observações mensais de Janeiro de
+    1966 a Dezembro de 1997.}
+
+}}
 \source{
 MORETTIN, TOLOI (2006), Série A3 - Chuva, descrita no
     Capítulo 1 pág. 16 e mencionada em diversas páginas.
 }
 \description{
-Dados sobre precipitação atmosférica em Fortaleza, no
-    Ceará. A série é referente ao período de 1849 a 1997.
+Dados sobre precipitação atmosférica em Fortaleza, Ceará
+    e em Lavras, Minas Gerais.
 }
 \examples{
 
@@ -20,11 +31,23 @@ str(MorettinA3)
 MorettinA3
 
 # Resumos da série
-summary(MorettinA3)
+sapply(MorettinA3, summary)
+sapply(MorettinA3, function(x) {
+    c("nobs" = length(x), "nobs/ano" = frequency(x))
+})
 
-# Visualização da série
+# Visualização das séries
 library(lattice)
-xyplot(MorettinA3, type = c("o", "g"), pch = 20, col = "orange")
+
+xyplot(MorettinA3[["Fortaleza-CE"]],
+       main = "Precipitação atmosférica em Fortaleza-CE",
+       type = c("o", "g"),
+       pch = 20, col = "orange")
+
+xyplot(MorettinA3[["Lavras-MG"]],
+       main = "Precipitação atmosférica em Fortaleza-CE",
+       type = c("o", "g"),
+       pch = 20, col = "orange")
 
 }
 \keyword{TS}
-- 
GitLab