From 8db1c69f2f7fb63713fbe3fb57aa8d09675ae552 Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Fri, 3 Feb 2017 12:44:13 -0200
Subject: [PATCH] =?UTF-8?q?Inclus=C3=A3o=20de=20s=C3=A9ries=20temporais=20?=
=?UTF-8?q?reais=20-=20S=C3=A9rie=20A7?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
R/{Atmosfera.R => MorettinA7.R} | 27 +++++++++--------
data-raw/{Atmosfera.txt => MorettinA7.txt} | 0
data/Atmosfera.rda | Bin 2000 -> 0 bytes
data/MorettinA7.rda | Bin 0 -> 2006 bytes
man/{Atmosfera.Rd => MorettinA7.Rd} | 32 ++++++++++-----------
5 files changed, 28 insertions(+), 31 deletions(-)
rename R/{Atmosfera.R => MorettinA7.R} (63%)
rename data-raw/{Atmosfera.txt => MorettinA7.txt} (100%)
delete mode 100644 data/Atmosfera.rda
create mode 100644 data/MorettinA7.rda
rename man/{Atmosfera.Rd => MorettinA7.Rd} (63%)
diff --git a/R/Atmosfera.R b/R/MorettinA7.R
similarity index 63%
rename from R/Atmosfera.R
rename to R/MorettinA7.R
index 5a6edc66..786be796 100644
--- a/R/Atmosfera.R
+++ b/R/MorettinA7.R
@@ -1,4 +1,4 @@
-#' @name Atmosfera
+#' @name MorettinA7
#' @title Temperatura e Umidade do Ar na Cidade de São Paulo
#' @description Dados atmosféricos sobre temperatura
#' (\code{Temperatura}) e umidade relativa do ar (\code{Umidade}),
@@ -11,33 +11,32 @@
#' \describe{
#'
#' \item{\code{Temperatura}}{Temperaturas, mensuradas ao meio-dia em
-#' [VER UNIDADE DE MEDIDA].}
+#' graus Celsius.}
#'
#' \item{\code{Umidade}}{Umidades relativa do ar, mensuradas ao meio-dia
-#' em [VER UNIDADE DE MEDIDA].}
+#' e expressas em porcentagem.}
#'
#' }
-#' @seealso \code{\link{Poluentes}}.
+#' @seealso \code{\link{MorettinA6}}.
#' @keywords TS MTS
-#' @source Morettin, P. A., Toloi, C. M. C. (2006). Análise de Séries
-#' Temporais (2nd ed.). São Paulo, SP: Editora Egard Blucher. (Série
-#' A7 - Atmosfera, mencionada em diversas páginas)
+#' @source MORETTIN, TOLOI (2006), Série A7 - Atmosfera, descrita no
+#' CapÃtulo 1 pág. 17 e mencionada em diversas páginas).
#' @examples
#'
-#' data(Atmosfera)
-#' str(Atmosfera)
-#' Atmosfera
+#' data(MorettinA7)
+#' str(MorettinA7)
+#' MorettinA7
#'
#' # EstatÃsticas resumo das séries
-#' apply(Atmosfera, 2, summary)
+#' apply(MorettinA7, 2, summary)
#'
#' # Visualização da série
#' library(lattice)
-#' xyplot(Atmosfera, type = c("o", "g"), pch = 19, col = "turquoise")
+#' xyplot(MorettinA7, type = c("o", "g"), pch = 19, col = "turquoise")
#'
#' # Mesclando com as séries dos agentes poluentes no mesmo perÃodo
-#' # help(Poluentes)
-#' series <- ts.union(Atmosfera, Poluentes)
+#' # help(MorettinA6)
+#' series <- ts.union(MorettinA6, MorettinA7)
#' xyplot(series, type = c("o", "g"), pch = 20, col = "black")
#'
NULL
diff --git a/data-raw/Atmosfera.txt b/data-raw/MorettinA7.txt
similarity index 100%
rename from data-raw/Atmosfera.txt
rename to data-raw/MorettinA7.txt
diff --git a/data/Atmosfera.rda b/data/Atmosfera.rda
deleted file mode 100644
index 25a3cdf4afb86e075eae664985efd1ce6947f191..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001
literal 2000
zcma)#X;jjQ8pi)1f{>&T8EW0YeakC~TR93uC@vE&7?S3iVrJt$+RX$-BgF+=vU1#W
zkXAD_mrBdE5G}378n?-%G0k-JdXviQoI4-xmwV3ro#(@Qp7WgFOJQ^D31mM5Z@--2
z9XSBhWa}@!wM1-eZ7pwXjVme?Unj>Eip>_q*1K`V))Wjj1l5QFbtWw;bDpu05S_5A
z-rn9R&h-Sra8Tjs`gh+M7!5;@(r4fc4s}^V@<RBPD*&i~2<38~{|=KxE<}@%Y6e8c
zI<eo9GiH$g5+O}1g!2bP^*G>v00uyn0B0CbqIqZ$kifQ03rnu#Xl~E9TL3_AcR&~i
z&`NR5^Z?G57yRk@TP2`G0<``-{|jjP|LH>04K7N;Ju8Vy9+pJTUj`@_*v@}Y^W1&|
zi=o<e%+6Js?g=pM>AM~0=gXYG9u-9{J^kiWd{j>|Z7?;@w)_QDFNqd<6`7fHL&B-x
z&|t<=vFKj!^^b!EgDCKGAODd#b^)aQCyUkMVDjZ}v+%i-?}L<NJctd!40}3s8IK6&
zbK?=(&leBwx-bc@#fyL8=JoSu#U`-{?u#x}*eV8z)lCXQ3Cs|#G`wapfywkW5nng2
zPh`bfM7ogSpsE5N5UUoCeVpk_1F4`?q`(dYBtt_`RCx!-1NhiG*K&YLrjQ}nZ!2qB
zQ~?mdiJwd|UYC07Xsc3`Yx*0;5>tPlFa)i<cvKT{tvT7WQ;_NIL-3cD`_8#}NQNVQ
zdQQH_S+yihmcI)Po3ONg%Npu9heZ>2LXK!uo3QsO^V@gqwt`AfM5w&ur6=WyDy)?F
ztfB}&+bZ%Ot|u1;a(Wk+YMbp*a440+#uV<f(H6^;_4RJDis>fqkYbUSd-LbM^TBUZ
zlL=G^4!i3xmM+O7eLtpG)L6z%DWF>_gScuRAR4Y6{TQP>icc(9(*ozr)Kx$G@J$7+
z?8Wiu8~IH&q3VgS*uXPy<5~_S8D}-s%Luvgw@d?FUl*2gBIm;O7gks4I-;j>t{xY>
zaJ!hA^>%w^3`$--Aidjs==iy-<g3Ndk8Lu$@<vOsYp*;$`h)GnyezZ`Ri&<vJ5nbF
z^r(_96Ru~7mn8iTf(j>-OzM2Q!0&ZYReW5x$_;?0VZk7gvMJAaWOOydP1h`YEI0`z
zYHv_c3L=hI1~fA#s>43nfrIZt+T3#e(Y;d#G?*jiHmqTmF!NH9vzq<Q!7ZODeiLPX
zOb+uO$+o%KdSLKrH)_E6nQJv!I3DQe-XP%vC*jHZe*Gio*q4-)5!nXF!-NuVs0(e_
z#t`Vm@7&n;GqpM{0AIG-!ppkhK~z!iA^$ZXR1<UQ2!b8tNOYJX@z?l+JgJp4Jec%i
zz_k~cSJlE+5{BzF8Z^n6Fm@h2>#B}#M~_g|KZ|R6Dm*=e8pmURA<e$(5T6Efltj*|
zHR~L73=@}Txha7V)BRHi;z%KSj615LyN{>2^y8N>eFrV9Kjwb)^SVgZ9pwZXS7)(g
zxc*w>m6DLRmb<OrgD~-Br?sjt*7dK}tjhctPmU3qjzyE*oL$5!=Z|}|{V=*gA8r#<
zK_r~t=Unz$zv_jk)4HPM2KSOfbUz2=i9=r3hnLfOzTP^od~5#p$39m*L_)!UW{W=V
zF~GS+*JTahbX2LZxG*YEYl+h$3aBQj99injjfwHPY=uDP@rt@J@o@S>T5~$iOQ*05
zU9kKZKN&dr`OKTZ*DM99k*Hl^qd~<|Njtl{P=Gy<lbT&>815){LTpIeu6F!Vw*oHT
zTv)1GREU<?f;Z8Ukqbk$sx-+6_iRWF=5v*^D{+VS+Jf=&slAVUC!`KMMlmckHl?|9
z%wlAHCT7py4|H<D*+)wge2jP*uHuT<`WkZfvy_jQ<3{aUg`!5>@i&e4)c#lkcn6`5
z=s}465<EK<fkoyTwqMW#9NmRckzf3MB2cBC0>F>O_dy8mj{a+kTl8z#^wZhc6J67$
z9@^Z+3|u;y$`M8h8j@B5IqFr3>ii6MURurhpVnI(tX6);emS*~lFN8?M*eD_oAs6P
zQ}-rm4nkd~3-(r93`^6$I}_b{dB&F26At}wKVhG|_BOQ`4{#xPDj%F}1*L_95S!ti
zH*Jc%BiKtka6(=nBFUorgw_6TPw^ihfZ?3a+=J9=<N>8eGO`8&TUYP0lJ5_-){@{N
zXQ)wp$`ed&#C*H4($lZ#rbaICsllv8cMq~7a>#ab=F$Bhr_eBoiU6KK{pZ;yhAyp>
z(~xgzzisyB<|kj?@Z0~g>xaTt(UhPDr={m|o9J7Cq-W@?{YJV-LqkFUC#NKXxo^Xo
ziW2AfcyUB#`L*xmqpwE#M%YFtrI-lQA<d@j)ngW>GQVrKW-C&&XB26n5d;q)@BkQ%
zQP=0RK~?KAonm>HyAnObq|#s0nw=H-PMO->1?mFcUYJ+9qj#5=fWAA}bKk7`;V<{s
zXji|=)z7`S-KUqHK#iO!yIW^vU)F_MSC#>WTSGxH5prnbB!omJsGuozk|NoaMs1dg
s>Ny8<`s5URL^ugiIZVPIwiBAT%WIB1-YZ8ee+d}COj9Ta_~vH+2D6+{!~g&Q
diff --git a/data/MorettinA7.rda b/data/MorettinA7.rda
new file mode 100644
index 0000000000000000000000000000000000000000..677aaa3ca85f7a30cd53b601bb35dbab66e655a9
GIT binary patch
literal 2006
zcma)$|3A}<9>+iX?2F~w`Is%XovY7ch+(mdl6y8S%_7W~EYtC2<XfVWlcSoEGi+jr
z^u?x(RJ-ye+`jlyiFJ-lsiTvq+)@s4Itjau<J|5aaG$@t-|yGs{d&FMUc2KrZDjGS
zgZOFV?dt%H{mTFNqiyf!m6Z>lS4MT!y5+G^oo=a3xAJ;aw=%A$_Yk=@1}TcTqa2)K
z3fDt^HC4_hePsUDL64YKndj@?88Hp5{h4_u*+z`7g0u{+0-?(B7GZMy7|wK<5#Q^Z
z;O}R1k;v#RwRxW#JPRdUfXn)ffK^Bc#b0F=1^^6x=>UMaIvJ4wAin>CH$?#e&d9A;
zh7l45{;L8A<*H^V1Cah3xVC^+fn)*zQoFhiAl?ICz=(iV|6lx{S)dQW`R|AlMLd9!
zt$u=JGUC7Z0U?q}VhBk9(ho>btR5N0xu3JX?@IjXg6iXfYk<S~9hC5>s7Mp!+YwZ?
zkS4yJwKJRYgZ0-<qm;paga+B8&prz~Pw2sTN8hu^@mz|Q+?5+|C-3`KlF2ktA38W3
zbwbbOn{&3iZF&HUKFBM2vRkHMW<sZPMR9m`y3r59vrG{>Yb(_j^oTaich^{ptOBF~
z^)M|Orep7}MN=&y>9{Yqq2cZ&yK9LNak-TpIhe9ssF*}VGYJJ=CQ{oFVI-6d6)1p4
z1!rS?KGy)mLReOzepsVEI_zGdiz#?*Rx0N^t#i4Nw~1En?tiQ{sq?mf-q>O@?ZbLv
zecg@ck9$avkLkvDt{!p1JK;MsJ@=R#Fy5Qo4K@cVJD((Ey3K{mX8gAPgrn7!d^+fR
zG&wyesi|c#+?9>h5RytpdtB@><#yaC?U9yG02ud{e`}=8ILjaJ(Be`}lUq})f-ari
zPRT#O&-U@L=TmvyQjptw$!4)LZKe3|N+`rexf`xg8d^QR58Kk@+@`m%MV}=R%!>q%
ziVdiVLVb&Z393ItDFspKTC=TVBhIlE%80LW;;O1DHf@itvbW#$>`ZX$LHPR@H+5$h
zU~L%tx?u>&p-IHIdu}V_8$Cj-hT*w0__@pX-@hNd0M{PwxOBY|?`k)*m-y=StJ1N|
zrY>Nh?o3jy)?lL6OM<Vdse$dX*H+a7CAbTy2E?{}ZjFA|28fCV8Y<_pW-N1=Aq4|(
zi$r0siNzp_w^pE!Eys!ZL}BOygGQ-rRKg@9RMX&elloJTWsb;q2fX8A`*1fc1=Pky
zIKPgSp(TC%4544O+P^boBlc6NTgQO|_qT*;mV8+`&53C<Gyh7DO?ZhEXA}j9mcNne
zUGZYvI?fB;-aE9@O(R$8Z$=wz3v+k_LNRV+a(D{cb#q@pH+8P3wVPCqgPx6$MZB{9
z^plMDgC<=Q`%ZTkxv@`_BzS4G&r;Q$CSzITWcJWaw(F}XUS6&wmFSZ^v_7cBkzoNG
z4N!=Aqo=HhZwA)DCc}3ZMg95zW&|q>zP2gmy_TC73pX!FVj3G8@%5aX&92pYF9m*d
zg<J4FPfH@;=*lAFGXxTf%r?=z_+ub5y8z!_IliSpAfu+WV|MJjzDrY4O)ofYYT{$5
zeysBI45W(-*;S-ky^3|Jbu{tiqU4X<R4l?S^o%p1w6a?|Ez3>&r`cLzGfg%WdPFij
zvAdj~)i&RG`C$%+qw%{NGK6Mwgfe@14P8W{_FJV8tw4Hi_DiJ|A~;txSIYAyj~7oW
z1*aYabo{N;=;@v@YiYpr?B*GdZurNd^e|QMsGaK7{dBc>EIp=dVIq2iXM%GCJyQs=
zCcwjOg`K{A|7m~jP#3#jo6IO|4Cue!_UIOTH9Kmcv83XWVOPF$w`QIwGIdP!c7f~?
z^JXsnJpCf2^IdP(vzrGVRNDW(RF~p#Y}bbt^|s|ja*r=3wG06Ie@+gvhr7BqkjzJ<
zr^J1ScH+W+-ypsvEyK07BEoYcJi6d+sun$k=U!2>r0QVAZ#Lh_8=1&oCkCe`=bQ-7
z-2{CwGEcglqq(}XzZa#ycTk|8@-2>BWa>%KEo`!7fl)F`mfAE<*Sx1FZ(X~14Kj?$
z*nfQZ^_wuu5Bmor-?lDfO+K6&8VXGtS;l0aFR@qd!pHF);~9e(`IH&0Hry<<!9i*m
zIhtWy*zvf$g34jS2y7q)s1c)0fc2Vd!w&qRf*-@jhoH#Q1F23<+kQ!lApBxzF2G`Z
zJHA_(B}^Z}8l+}CbyWQkR3V<YakD^A4%8QgvD^ru;`*A**(j?XEw6d(5U?h#tNBUc
zjf%Mx<?%&L;ec4grw`$nb+x8-uvbe%3kzv*Vmxg!V5TyBCBo%Xqs{z{L?*Th65-t6
zH2Edchs_xoOE^?WCC8)~SUzTc?wsxp!{ANQl%@GYC%31nBzIZDWSoP!hr5bxWN3Tx
zpx1RrBZI0V)jxSjuLj2ZAni~TK%WADI6Op6AXyUyWy?})66evA$YOzRdSW2<6M4}>
z*mbd($Bil5(Q_m@#x#%V-0%WK74Zs}%%0!IisxJBa7?+SPr6|4GCMdJbgLu);K^m<
z&&R!gwG5QtP*o@3D=P1hD~IOmk8vO;b;>56ju(ZOFLJU`+>5w!9K*2Hy!HFVPz*G9
Q{M8JnP9JBy#SA(ACo?`rZ2$lO
literal 0
HcmV?d00001
diff --git a/man/Atmosfera.Rd b/man/MorettinA7.Rd
similarity index 63%
rename from man/Atmosfera.Rd
rename to man/MorettinA7.Rd
index eec32462..c0532173 100644
--- a/man/Atmosfera.Rd
+++ b/man/MorettinA7.Rd
@@ -1,7 +1,7 @@
% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/Atmosfera.R
-\name{Atmosfera}
-\alias{Atmosfera}
+% Please edit documentation in R/MorettinA7.R
+\name{MorettinA7}
+\alias{MorettinA7}
\title{Temperatura e Umidade do Ar na Cidade de São Paulo}
\format{Uma série temporal bivariada (classe \code{mts}), com 365
observações diárias de 1º de Janeiro a 31 de Dezembro de 1997,
@@ -10,16 +10,15 @@
\describe{
\item{\code{Temperatura}}{Temperaturas, mensuradas ao meio-dia em
- [VER UNIDADE DE MEDIDA].}
+ graus Celsius.}
\item{\code{Umidade}}{Umidades relativa do ar, mensuradas ao meio-dia
- em [VER UNIDADE DE MEDIDA].}
+ e expressas em porcentagem.}
}}
\source{
-Morettin, P. A., Toloi, C. M. C. (2006). Análise de Séries
- Temporais (2nd ed.). São Paulo, SP: Editora Egard Blucher. (Série
- A7 - Atmosfera, mencionada em diversas páginas)
+MORETTIN, TOLOI (2006), Série A7 - Atmosfera, descrita no
+ CapÃtulo 1 pág. 17 e mencionada em diversas páginas).
}
\description{
Dados atmosféricos sobre temperatura
@@ -29,26 +28,25 @@ Dados atmosféricos sobre temperatura
}
\examples{
-data(Atmosfera)
-str(Atmosfera)
-Atmosfera
+data(MorettinA7)
+str(MorettinA7)
+MorettinA7
# EstatÃsticas resumo das séries
-apply(Atmosfera, 2, summary)
+apply(MorettinA7, 2, summary)
# Visualização da série
library(lattice)
-xyplot(Atmosfera, type = c("o", "g"), pch = 19, col = "turquoise")
+xyplot(MorettinA7, type = c("o", "g"), pch = 19, col = "turquoise")
# Mesclando com as séries dos agentes poluentes no mesmo perÃodo
-# help(Poluentes)
-series <- ts.union(Atmosfera, Poluentes)
+# help(MorettinA6)
+series <- ts.union(MorettinA6, MorettinA7)
xyplot(series, type = c("o", "g"), pch = 20, col = "black")
}
\seealso{
-\code{\link{Poluentes}}.
+\code{\link{MorettinA6}}.
}
\keyword{MTS}
\keyword{TS}
-
--
GitLab