From 6a21246e4f07f7fc3db6912ce071e9faa3daf103 Mon Sep 17 00:00:00 2001
From: bruna wundervald <brunadaviesw@gmail.com>
Date: Fri, 16 Sep 2016 15:17:36 -0300
Subject: [PATCH] Adiciona os arquivos das tabelas 5.1, 5.3 e 5.5 do Morettin

---
 R/MorettinTb5.1.R          |  30 ++++++++++++++++++++++
 R/MorettinTb5.3.R          |  31 ++++++++++++++++++++++
 R/MorettinTb5.5.R          |  31 ++++++++++++++++++++++
 data-raw/MorettinTb5.1.txt |  51 +++++++++++++++++++++++++++++++++++++
 data-raw/MorettinTb5.3.txt |  51 +++++++++++++++++++++++++++++++++++++
 data-raw/MorettinTb5.5.txt |  51 +++++++++++++++++++++++++++++++++++++
 data/MorettinTb5.1.rda     | Bin 0 -> 475 bytes
 data/MorettinTb5.3.rda     | Bin 0 -> 460 bytes
 data/MorettinTb5.5.rda     | Bin 0 -> 464 bytes
 9 files changed, 245 insertions(+)
 create mode 100644 R/MorettinTb5.1.R
 create mode 100644 R/MorettinTb5.3.R
 create mode 100644 R/MorettinTb5.5.R
 create mode 100644 data-raw/MorettinTb5.1.txt
 create mode 100644 data-raw/MorettinTb5.3.txt
 create mode 100644 data-raw/MorettinTb5.5.txt
 create mode 100644 data/MorettinTb5.1.rda
 create mode 100644 data/MorettinTb5.3.rda
 create mode 100644 data/MorettinTb5.5.rda

diff --git a/R/MorettinTb5.1.R b/R/MorettinTb5.1.R
new file mode 100644
index 00000000..253de0c8
--- /dev/null
+++ b/R/MorettinTb5.1.R
@@ -0,0 +1,30 @@
+#' @name MorettinTb5.1
+#' @title Série Simulada AR(1)
+#' @description Valores de uma série temporal simulada, obtidos com um 
+#'     processo auto-regressivo de ordem 1, AR(1). A tabela é composta de 
+#'     50 números. 
+#' @format Uma série temporal (classe \code{ts}), com 50 observações, 
+#'     em que
+#'
+#' \describe{
+#'
+#' \item{\code{Zt}}{Número decimal que indica os valores simulados.}
+#' 
+#' }
+#' @keywords TS temporais
+#' @source  MORETTIN, TOLOI (2006), Tabela 5.1, pág. 111. 
+#' @examples
+#'
+#' data(MorettinTb5.1)
+#' 
+#' library(lattice)
+#' str(MorettinTb5.1)
+#' 
+#' fivenum(MorettinTb5.1)
+#' 
+#' xyplot(MorettinTb5.1, type = c("l", "g"), 
+#'        xlab = "Tempo", ylab = "Observações", 
+#'        main = "Série simulada AR(1)", strip = strip.custom(bg = "white"), 
+#'        lwd = 2, col = "violetred", 
+#'        scales = list(y = list(rot = 0)))
+NULL
\ No newline at end of file
diff --git a/R/MorettinTb5.3.R b/R/MorettinTb5.3.R
new file mode 100644
index 00000000..1fb5aaba
--- /dev/null
+++ b/R/MorettinTb5.3.R
@@ -0,0 +1,31 @@
+#' @name MorettinTb5.3 MA(1)
+#' @title Série Simulada
+#' @description Valores de uma série temporal simulada, obtidos com um 
+#'     processo de médias móveis de ordem 1, MA(1). A tabela é composta de 
+#'     50 números. 
+#' @format Uma série temporal (classe \code{ts}), com 50 observações, 
+#'     em que
+#'
+#' \describe{
+#'
+#' \item{\code{Zt}}{Número decimal que indica os valores simulados.}
+#' 
+#' }
+#' @keywords TS temporais
+#' @source  MORETTIN, TOLOI (2006), Tabela 5.3, pág. 120. 
+#' @examples
+#'
+#' data(MorettinTb5.3)
+#' 
+#' library(lattice)
+#' str(MorettinTb5.3)
+#' 
+#' fivenum(MorettinTb5.3)
+#' 
+#' xyplot(MorettinTb5.3, type = c("l", "g"), 
+#'        xlab = "Tempo", ylab = "Observações", 
+#'        main = "Série simulada MA(1)", strip = strip.custom(bg = "white"), 
+#'        lwd = 2, col = "wheat4", 
+#'        scales = list(y = list(rot = 0)
+#'        ))
+NULL
\ No newline at end of file
diff --git a/R/MorettinTb5.5.R b/R/MorettinTb5.5.R
new file mode 100644
index 00000000..3ba7c8c0
--- /dev/null
+++ b/R/MorettinTb5.5.R
@@ -0,0 +1,31 @@
+#' @name MorettinTb5.5
+#' @title Série Simulada ARMA(1,1)
+#' @description Valores de uma série temporal simulada, obtidos com um 
+#'     processo auto-regressivo e de médias móveis de ordem (1,1), ARMA(1,1). 
+#'     A tabela é composta de 50 números. 
+#' @format Uma série temporal (classe \code{ts}), com 50 observações, 
+#'     em que
+#'
+#' \describe{
+#'
+#' \item{\code{Zt}}{Número decimal que indica os valores simulados.}
+#' 
+#' }
+#' @keywords TS temporais
+#' @source  MORETTIN, TOLOI (2006), Tabela 5.5, pág. 126. 
+#' @examples
+#'
+#' data(MorettinTb5.5)
+#' 
+#' library(lattice)
+#' str(MorettinTb5.5)
+#' 
+#' fivenum(MorettinTb5.5)
+#' 
+#' xyplot(MorettinTb5.5, type = c("l", "g"), 
+#'        xlab = "Tempo", ylab = "Observações", 
+#'        main = "Série simulada ARMA(1,1)", strip = strip.custom(bg = "white"), 
+#'        lwd = 2, col = "purple", 
+#'       scales = list(y = list(rot = 0)
+#'       ))
+NULL
\ No newline at end of file
diff --git a/data-raw/MorettinTb5.1.txt b/data-raw/MorettinTb5.1.txt
new file mode 100644
index 00000000..75154419
--- /dev/null
+++ b/data-raw/MorettinTb5.1.txt
@@ -0,0 +1,51 @@
+Zt
+0.656
+1.057
+-1.75
+-0.489
+-2.861
+-2.227
+-2.014
+-3.773
+-3.333
+-0.626
+-0.731
+-0.549
+-1.801
+-0.538
+-0.292
+-0.444
+1.648
+2.183
+-0.253
+-1.069
+-2.092
+-1.993
+-1.187
+1.394
+3.098
+4.853
+4.649
+4.821
+4.441
+5.496
+3.892
+4.29
+3.746
+3.723
+1.111
+3.48
+2.144
+1.252
+-0.006
+0.412
+1.958
+1.883
+0.344
+-0.708
+-1.852
+-2.318
+-2.3
+-0.937
+-1.799
+-1.698
diff --git a/data-raw/MorettinTb5.3.txt b/data-raw/MorettinTb5.3.txt
new file mode 100644
index 00000000..41b91df8
--- /dev/null
+++ b/data-raw/MorettinTb5.3.txt
@@ -0,0 +1,51 @@
+Zt
+0.811
+-0.028
+0.159
+0.663
+-2.299
+-0.494
+1.498
+-1.408
+0.032
+0.487
+0.888
+0.458
+-0.316
+-1.513
+0.545
+0.071
+0.447
+-0.287
+0.57
+-0.336
+-2.074
+0.748
+0.858
+0.257
+-1.902
+2.908
+-3.726
+1.376
+2.261
+-2.789
+-0.22
+1.038
+0.73
+-0.664
+1.166
+-1.548
+-0.974
+0.524
+1.093
+-0.118
+-2.39
+1.765
+-0.038
+0.249
+-0.46
+0.894
+-0.775
+-0.031
+-0.497
+0.288
diff --git a/data-raw/MorettinTb5.5.txt b/data-raw/MorettinTb5.5.txt
new file mode 100644
index 00000000..7313a9a3
--- /dev/null
+++ b/data-raw/MorettinTb5.5.txt
@@ -0,0 +1,51 @@
+Zt
+0.466
+0.069
+1.158
+0.187
+0.483
+0.92
+0.754
+0.218
+0.81
+1.25
+0.949
+0.913
+0.705
+1.009
+0.147
+1.336
+-0.793
+-0.484
+-1.932
+-1.333
+-0.752
+0.092
+-0.562
+1.521
+1.336
+0.904
+1.836
+-0.259
+1.876
+3.688
+1.988
+2.241
+2.993
+3.515
+3.185
+4.37
+1.929
+0.874
+1.556
+0.267
+1.496
+-0.207
+2.265
+2.819
+3.425
+1.072
+1.15
+1.34
+-0.047
+1.1
diff --git a/data/MorettinTb5.1.rda b/data/MorettinTb5.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..6393f3cd30c8cec9e5e9bfd3462803d009cc354d
GIT binary patch
literal 475
zcmb2|=3oE=X6~X+gGXHtk`fXUk`mI=QWBEbj3Q?=uqZQgGpkQ{_Vuj3m#*f?Gu)m=
zSB+B=5}q-0N!_&n`MYxV>qD2n$;XAoFdBXTpUBYs_xs*{-Fo}-%Z%HOAH0A5u894C
ziiep^$;*E-vduJ=Y0J{*|M1fL?EUbvPYl;j-9KNvEB2c`V`o^*-TyYKTuYMvAMTWN
zl@{rH_n-OV_WuhlPaLTHt)ClUVO0I{@!#@Iuj=lF?aKJCeeTM>XK!8Dk8Ki;)=_5p
z7SAAA{Ph06euc;WIhF@DurCRy{9oT;{jI)f*Z0})m-aiXmbEx=Ym!Wh@xgcH0<#Qv
zruc{LZQj7{67%816*se~yZII=q+9tHKL}^CKH(Vf`1Qhn629zl3sxq*y~Vdjp!kh_
z)84hO57f>*y)EHmDZAT*;(v7;|1*7!XFc&_SNyl_3h%c4m*+7%@K63mwBonx5h@N^
z-|U&C4{!hf{!lRctkzHb2Bp@_vWu!3G<kWx?Qh+Y{$IXh@9+9-<Bt{Zx}3XBo=rIu
z6L6>Tv8Y6Bf@X-SjDu=r=gyT!9kv;S+_hH_a|k*t655nk;91BxfoUmY+Hd{|7UdsW
iE*RL&61(<f&XGq+C6m3o7JmE7%uu+<qOF;UfdK%X&*ka>

literal 0
HcmV?d00001

diff --git a/data/MorettinTb5.3.rda b/data/MorettinTb5.3.rda
new file mode 100644
index 0000000000000000000000000000000000000000..21b5a83cf9f04dacb6a4b5df4dc0831fd129d419
GIT binary patch
literal 460
zcmb2|=3oE=X6~X+gGXHtk`fXUk`mI=QWBEbj3Q?=uqZQgGpkQ{_Vuj3m#*f?Gu)m=
zSB=vW5}q-0N!{H4XV2Nvhbx<ZKVS3EAf!4nvtGrE?L^S_`mA@gIX{0_vd;)Q!1Vk5
z`MXO_iyuq+|M&OK*-3A2{ocPd+xTO}yG`*Eo>aele9HdY_k(vVew#;@+UIM>ZrT63
z{=Su}SJ{8j(;ST|_fP+>pK<H@p1Cs;|8Ge6SgLp1sd_`E(B!x8&&2(*`0@Ma-|3GI
zaJ`Yg*(CaA|E&|tio)Z6F&zF9H^KAU`TNbX3IBJc@SkA&&Fv~J(sw3q+y8jEh(_k!
zpF<|}G4DxuZg{hvS&A>@)d7}AA1h=Nns+_#Id<Loui>n3@(SN>+4nPYzp3Xci`)2j
z`O}2%Z~rZrf<7ewuU@fV&f&*5dB;;-W^eAZe>~5awo|roee~0}{~hk`m3X!9v%>3?
zYj5^*e|;~#!ajZuW8>!E&);iXZ#-(0^uKmRwZ7w@MzPE@nlpDU*ui{U+hEs$pcP&g
z4PKvwii5iwa}rnVs&~+7Skk7siskNuNspKmSiP9fe3O?raNwY@)8QW(Q4y1ig}S>h
V`s!)6-TKbYptMqqy_t!D0RU#d?8^WE

literal 0
HcmV?d00001

diff --git a/data/MorettinTb5.5.rda b/data/MorettinTb5.5.rda
new file mode 100644
index 0000000000000000000000000000000000000000..100662f90412734673038c7ca4b584daab42871f
GIT binary patch
literal 464
zcmb2|=3oE=X6~X+gGXHtk`fXUk`mI=QWBEbj3Q?=uqZQgGpkQ{_Vuj3m#*f?Gu)m=
zSB+B>5}q-0N!`4^_e<f^_s@5JlWt7$+ur?md0DQS-1*pV$M2uNyX3TZTK)Ufqf__K
z-+ptyZbZ%8)7vimYdtjarnh|ijrnY=%I4k5`2VSN^_{*0=HKEa4jlLwJ7;C>+1s7p
z^3U$=*R8id|1Yw>=h$`Uzu)9T-o5fZdq2JY#i7eA$Nh?buUEMA`^UfO0l)5@zwPC)
z^6!6zZ*Tug{rP*xcjLFe`Ye-b^lM{M_wT*_e_yHBm4EFD=~n)m{|g>dGTfQMe@5oF
zdA@p@NN&KE|J<hUnF5SfznlKoe#0gm_Iqw-3%HlO{om|!HLWP2Wkq?ye~xcEnE5Y=
zuaABzYq45x*LvZVWdbc1zWqONPH%fXZ&}~Azx*3M*S^tj@_G1i(|<nB<$ssIIv`h&
z&@}5XTj6@<aw&-$^&!laZ@T}gYy8(%vH8Bf;n(}eJ_0jZ#WK%m&fK|R2lH`lgIx!L
zR(M%7czqHo4(@KuNnEk3-a)5fNt@;>mb(uoJz`Q|^<qBrO<tk!`2)^gXAOB@?(8DJ
Zq(Z}8CsmII{Qk$tFwLNObu$wK0|3u&?Q8%5

literal 0
HcmV?d00001

-- 
GitLab