From 19055096986c3e55e0107cf6a3ddb5662fa685ec Mon Sep 17 00:00:00 2001
From: bruna wundervald <brunadaviesw@gmail.com>
Date: Wed, 14 Sep 2016 09:58:55 -0300
Subject: [PATCH] Adiciona os arquivos das tabelas 4.1, 4.6, 4.7, 4.8, 4.9,
 4.10, 4.12 e 4.13 do Morettin

---
 R/MorettinTb4.1.R           |  43 ++++++++++++++++++++++++++
 R/MorettinTb4.10.R          |  58 ++++++++++++++++++++++++++++++++++++
 R/MorettinTb4.12.R          |  58 ++++++++++++++++++++++++++++++++++++
 R/MorettinTb4.13.R          |  57 +++++++++++++++++++++++++++++++++++
 R/MorettinTb4.4.R           |  38 +++++++++++++++++++++++
 R/MorettinTb4.6.R           |  36 ++++++++++++++++++++++
 R/MorettinTb4.7.R           |  36 ++++++++++++++++++++++
 R/MorettinTb4.8.R           |  37 +++++++++++++++++++++++
 R/MorettinTb4.9.R           |  35 ++++++++++++++++++++++
 data-raw/MorettinTb4.1.txt  |  16 ++++++++++
 data-raw/MorettinTb4.10.txt |  11 +++++++
 data-raw/MorettinTb4.12.txt |   5 ++++
 data-raw/MorettinTb4.13.txt |   5 ++++
 data-raw/MorettinTb4.4.txt  |  11 +++++++
 data-raw/MorettinTb4.6.txt  |  13 ++++++++
 data-raw/MorettinTb4.7.txt  |  13 ++++++++
 data-raw/MorettinTb4.8.txt  |  13 ++++++++
 data-raw/MorettinTb4.9.txt  |  13 ++++++++
 data/MorettinTb4.1.rda      | Bin 0 -> 654 bytes
 data/MorettinTb4.10.rda     | Bin 0 -> 732 bytes
 data/MorettinTb4.12.rda     | Bin 0 -> 362 bytes
 data/MorettinTb4.13.rda     | Bin 0 -> 373 bytes
 data/MorettinTb4.4.rda      | Bin 0 -> 290 bytes
 data/MorettinTb4.6.rda      | Bin 0 -> 301 bytes
 data/MorettinTb4.7.rda      | Bin 0 -> 294 bytes
 data/MorettinTb4.8.rda      | Bin 0 -> 309 bytes
 data/MorettinTb4.9.rda      | Bin 0 -> 337 bytes
 27 files changed, 498 insertions(+)
 create mode 100644 R/MorettinTb4.1.R
 create mode 100644 R/MorettinTb4.10.R
 create mode 100644 R/MorettinTb4.12.R
 create mode 100644 R/MorettinTb4.13.R
 create mode 100644 R/MorettinTb4.4.R
 create mode 100644 R/MorettinTb4.6.R
 create mode 100644 R/MorettinTb4.7.R
 create mode 100644 R/MorettinTb4.8.R
 create mode 100644 R/MorettinTb4.9.R
 create mode 100644 data-raw/MorettinTb4.1.txt
 create mode 100644 data-raw/MorettinTb4.10.txt
 create mode 100644 data-raw/MorettinTb4.12.txt
 create mode 100644 data-raw/MorettinTb4.13.txt
 create mode 100644 data-raw/MorettinTb4.4.txt
 create mode 100644 data-raw/MorettinTb4.6.txt
 create mode 100644 data-raw/MorettinTb4.7.txt
 create mode 100644 data-raw/MorettinTb4.8.txt
 create mode 100644 data-raw/MorettinTb4.9.txt
 create mode 100644 data/MorettinTb4.1.rda
 create mode 100644 data/MorettinTb4.10.rda
 create mode 100644 data/MorettinTb4.12.rda
 create mode 100644 data/MorettinTb4.13.rda
 create mode 100644 data/MorettinTb4.4.rda
 create mode 100644 data/MorettinTb4.6.rda
 create mode 100644 data/MorettinTb4.7.rda
 create mode 100644 data/MorettinTb4.8.rda
 create mode 100644 data/MorettinTb4.9.rda

diff --git a/R/MorettinTb4.1.R b/R/MorettinTb4.1.R
new file mode 100644
index 00000000..8e027215
--- /dev/null
+++ b/R/MorettinTb4.1.R
@@ -0,0 +1,43 @@
+#' @name MorettinTb4.1
+#' @title Série A6 - CO
+#' @description Últimos 15 valores do ajustamento pelo método de MMS - Série A6
+#'      - CO, de 1ª de Janeiro a 30 de Abril de 1997. A tabela apresenta
+#'      os valores reais de Zt, e os para r igual a 7, 14 e 21. 
+#' @format Uma série temporal (classe \code{ts}) diária, com 15 observações, 
+#'     em que
+#'
+#' \describe{
+#'
+#' \item{\code{Zt}}{Número decimal que indica os valores reais das observações.}
+#' 
+#' \item{\code{r7}}{Número decimal que indica os valores para r = 7 das 
+#'     observações.}
+#' 
+#' \item{\code{r14}}{Número decimal que indica os valores para r = 14 das 
+#'     observações.}
+#' 
+#' \item{\code{r21}}{Número decimal que indica os valores para r = 21 das 
+#'     observações.}
+#'      
+#' }
+#' @keywords TS temporais
+#' @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.1
+#'     pág. 88)
+#' @examples
+#'
+#' data(MorettinTb4.1)
+#' 
+#' library(lattice)
+#' str(MorettinTb4.1)
+#' 
+#' fivenum(MorettinTb4.1)
+#' 
+#' colnames(MorettinTb4.1) <- c("Valor Real", "r = 7", "r = 14", "r = 21")
+#' xyplot(MorettinTb4.1, type = c("l", "g"), 
+#'        layout = c(2, 2), xlab = "Dias", ylab = "Valores", 
+#'        main = expression("Série"~A[6]~"- CO"), 
+#'        strip = strip.custom(bg = "white"), 
+#'        lwd = 2, col = c("violetred", "blue", "yellow", "palegreen2"), 
+#'        scales = list(y = list(rot = 0)))
+NULL
\ No newline at end of file
diff --git a/R/MorettinTb4.10.R b/R/MorettinTb4.10.R
new file mode 100644
index 00000000..e44046c8
--- /dev/null
+++ b/R/MorettinTb4.10.R
@@ -0,0 +1,58 @@
+#' @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
+#' @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)
+#' @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
diff --git a/R/MorettinTb4.12.R b/R/MorettinTb4.12.R
new file mode 100644
index 00000000..a183fd12
--- /dev/null
+++ b/R/MorettinTb4.12.R
@@ -0,0 +1,58 @@
+#' @name MorettinTb4.12
+#' @title Vendas de Óleo Lubrificante 
+#' @description Dados de uma série de quantidade de vendas de óleo 
+#'     lubrificante. A tabela é referente aos meses de Janeiro de 1975 a 
+#'     Dezembro de 1978. 
+#' @format Uma série temporal (classe \code{ts}), com 4 observações, 
+#'     em que
+#'
+#' \describe{
+#'
+#' \item{\code{Jan}}{Número inteiro que indica as vendas do mês de Janeiro.}
+#' 
+#' \item{\code{Fev}}{Número inteiro que indica as vendas do mês de 
+#'     Fevereiro.}
+#'     
+#' \item{\code{Mar}}{Número inteiro que indica as vendas do mês de Março.}
+#' 
+#' \item{\code{Abril}}{Número inteiro que indica as vendas do mês de Abril.}
+#' 
+#' \item{\code{Mai}}{Número inteiro que indica as vendas do mês de Maio.}
+#' 
+#' \item{\code{Jun}}{Número inteiro que indica as vendas do mês de Junho.}
+#' 
+#' \item{\code{Jul}}{Número inteiro que indica as vendas do mês de Julho.}
+#' 
+#' \item{\code{Ago}}{Número inteiro que indica as vendas do mês de Agosto.}
+#' 
+#' \item{\code{Set}}{Número inteiro que indica as vendas do mês de 
+#'      Setembro.}
+#'
+#' \item{\code{Out}}{Número inteiro que indica as vendas do mês de Outubro.}
+#' 
+#' \item{\code{Nov}}{Número inteiro que indica as vendas do mês de  
+#'     Novembro.}
+#' 
+#' \item{\code{Dez}}{Número inteiro que indica as vendas do mês de 
+#'     Dezembro.}
+#' 
+#' }
+#' @keywords TS temporais
+#' @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.12
+#'     pág. 101)
+#' @examples
+#'
+#' data(MorettinTb4.12)
+#' 
+#' library(lattice)
+#' str(MorettinTb4.12)
+#' 
+#' fivenum(MorettinTb4.12)
+#' 
+#' xyplot(MorettinTb4.12, type = c("l", "g"), 
+#'        layout = c(2, 6), xlab = "Anos", ylab = "Vendas", 
+#'        main = "Vendas de óleo lubrificante", 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
diff --git a/R/MorettinTb4.13.R b/R/MorettinTb4.13.R
new file mode 100644
index 00000000..55ba00b3
--- /dev/null
+++ b/R/MorettinTb4.13.R
@@ -0,0 +1,57 @@
+#' @name MorettinTb4.13
+#' @title Vendas de Refrigerante
+#' @description Dados de uma série de quantidade de vendas de refrigerante. 
+#'     A tabela é referente aos meses de Janeiro de 1970 a Dezembro de 1978. 
+#' @format Uma série temporal (classe \code{ts}), com 4 observações, 
+#'     em que
+#'
+#' \describe{
+#'
+#' \item{\code{Jan}}{Número inteiro que indica as vendas do mês de Janeiro.}
+#' 
+#' \item{\code{Fev}}{Número inteiro que indica as vendas do mês de 
+#'     Fevereiro.}
+#'     
+#' \item{\code{Mar}}{Número inteiro que indica as vendas do mês de Março.}
+#' 
+#' \item{\code{Abril}}{Número inteiro que indica as vendas do mês de Abril.}
+#' 
+#' \item{\code{Mai}}{Número inteiro que indica as vendas do mês de Maio.}
+#' 
+#' \item{\code{Jun}}{Número inteiro que indica as vendas do mês de Junho.}
+#' 
+#' \item{\code{Jul}}{Número inteiro que indica as vendas do mês de Julho.}
+#' 
+#' \item{\code{Ago}}{Número inteiro que indica as vendas do mês de Agosto.}
+#' 
+#' \item{\code{Set}}{Número inteiro que indica as vendas do mês de 
+#'      Setembro.}
+#'
+#' \item{\code{Out}}{Número inteiro que indica as vendas do mês de Outubro.}
+#' 
+#' \item{\code{Nov}}{Número inteiro que indica as vendas do mês de  
+#'     Novembro.}
+#' 
+#' \item{\code{Dez}}{Número inteiro que indica as vendas do mês de 
+#'     Dezembro.}
+#' 
+#' }
+#' @keywords TS temporais
+#' @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.13
+#'     pág. 102)
+#' @examples
+#'
+#' data(MorettinTb4.12)
+#' 
+#' library(lattice)
+#' str(MorettinTb4.13)
+#' 
+#' fivenum(MorettinTb4.13)
+#' 
+#' xyplot(MorettinTb4.13, type = c("l", "g"), 
+#'        layout = c(2, 6), xlab = "Anos", ylab = "Vendas", 
+#'        main = "Vendas de Refrigerante", 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
diff --git a/R/MorettinTb4.4.R b/R/MorettinTb4.4.R
new file mode 100644
index 00000000..5e609623
--- /dev/null
+++ b/R/MorettinTb4.4.R
@@ -0,0 +1,38 @@
+#' @name MorettinTb4.4
+#' @title Série A6 - NO2
+#' @description Últimos valores suavizados da Série A6 - NO2, de primeiro
+#'     de Janeiro a 30 de Abril de 1997, utilizando suavização exponencial
+#'     com simples \expression{alpha}=0.5502. A tabela contém valores reais 
+#'     e ajustados. 
+#' @format Uma série temporal (classe \code{ts}) diária, com 10 observações, 
+#'     em que
+#'
+#' \describe{
+#'
+#' \item{\code{Zt}}{Número decimal que indica os valores reais das observações.}
+#' 
+#' \item{\code{Zt_a}}{Número decimal que indica os valores ajustados das 
+#'     observações.}
+#' 
+#' }
+#' @keywords TS temporais
+#' @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.4
+#'     pág. 93)
+#' @examples
+#'
+#' data(MorettinTb4.4)
+#' 
+#' library(lattice)
+#' str(MorettinTb4.4)
+#' 
+#' fivenum(MorettinTb4.4)
+#' 
+#' colnames(MorettinTb4.4) <- c("Valor Real", "Valor Ajustado")
+#' xyplot(MorettinTb4.4, type = c("l", "g"), 
+#'        layout = c(2, 1), xlab = "Dias", ylab = "Valores", 
+#'        main = expression("Série"~A[6]~"-"~NO[2]), 
+#'        strip = strip.custom(bg = "white"), 
+#'        lwd = 2, col = c("violetred", "palegreen2"), 
+#'        scales = list(y = list(rot = 0)))
+NULL
\ No newline at end of file
diff --git a/R/MorettinTb4.6.R b/R/MorettinTb4.6.R
new file mode 100644
index 00000000..b77fcf90
--- /dev/null
+++ b/R/MorettinTb4.6.R
@@ -0,0 +1,36 @@
+#' @name MorettinTb4.6
+#' @title Série A10 - M-ICV
+#' @description Valores reais e previsões para os meses subsequentes a junho 
+#'     de 1979 (t = 114), da Série A10 - M-ICV. As previsões foram feitas 
+#'     utilizando a suavização exponencial de Holt (SEH). 
+#' @format Uma série temporal (classe \code{ts}) diária, com 12 observações, 
+#'     em que
+#'
+#' \describe{
+#'
+#' \item{\code{Zt}}{Número decimal que indica os valores reais das observações.}
+#' 
+#' \item{\code{Z_114}}{Número decimal que indica os valores previstos das 
+#'     observações, em t = 114.}
+#' 
+#' }
+#' @keywords TS temporais
+#' @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.6
+#'     pág. 95)
+#' @examples
+#'
+#' data(MorettinTb4.6)
+#' 
+#' library(lattice)
+#' str(MorettinTb4.6)
+#' 
+#' fivenum(MorettinTb4.6)
+#' 
+#' colnames(MorettinTb4.6) <- c("Valor Real", "Previsões para t = 114")
+#' xyplot(MorettinTb4.6, type = c("l", "g"), 
+#'        layout = c(2, 1), xlab = "Dias", ylab = "Valores", 
+#'        main = expression("Série"~A[10]~"M-ICV"), strip = strip.custom(bg = "white"), 
+#'        lwd = 2, col = c("violetred", "palegreen2"), 
+#'        scales = list(y = list(rot = 0)))
+NULL
\ No newline at end of file
diff --git a/R/MorettinTb4.7.R b/R/MorettinTb4.7.R
new file mode 100644
index 00000000..a80ed9ce
--- /dev/null
+++ b/R/MorettinTb4.7.R
@@ -0,0 +1,36 @@
+#' @name MorettinTb4.7
+#' @title Série A10 - ICV
+#' @description Tabela 4.6 deste mesmo livro, com a previsão atualizada a cada
+#'     nova observação. 
+#' @format Uma série temporal (classe \code{ts}) diária, com 12 observações, 
+#'     em que
+#'
+#' \describe{
+#'
+#' \item{\code{Zt}}{Número decimal que indica os valores reais das observações.}
+#' 
+#' \item{\code{Z1}}{Número decimal que indica os valores previstos das 
+#'     observações, com t-1.}
+#' 
+#' }
+#' @keywords TS temporais
+#' @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.7
+#'     pág. 96)
+#' @examples
+#'
+#' data(MorettinTb4.7)
+#' 
+#' library(lattice)
+#' str(MorettinTb4.7)
+#' 
+#' fivenum(MorettinTb4.7)
+#' 
+#' colnames(MorettinTb4.7) <- c("Previsões para t-1", "Valor Real")
+#' xyplot(MorettinTb4.7, type = c("l", "g"), 
+#'        layout = c(2, 1), xlab = "Dias", ylab = "Valores", 
+#'        main = expression("Série"~A[10]~"-ICV"), 
+#'        strip = strip.custom(bg = "white"), 
+#'        lwd = 2, col = c("violetred", "palegreen2"), 
+#'        scales = list(y = list(rot = 0)))
+NULL
\ No newline at end of file
diff --git a/R/MorettinTb4.8.R b/R/MorettinTb4.8.R
new file mode 100644
index 00000000..812860a2
--- /dev/null
+++ b/R/MorettinTb4.8.R
@@ -0,0 +1,37 @@
+#' @name MorettinTb4.8
+#' @title Série de IPI 
+#' @description Aplicação do método de suavização exponencial sazonal de
+#'     Holt-Winters (HW) multiplicativo em uma série de IPI, com origem em 
+#'     Julho de 1979. A tabela contém os valores reais e os previstos. 
+#'     
+#' @format Uma série temporal (classe \code{ts}) diária, com 12 observações, 
+#'     em que
+#'
+#' \describe{
+#'
+#' \item{\code{Zt}}{Número decimal que indica os valores reais das observações.}
+#' 
+#' \item{\code{Z_127}}{Número decimal que indica os valores previstos das 
+#'     observações, em t = 127.}
+#' 
+#' }
+#' @keywords TS temporais
+#' @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.8
+#'     pág. 99)
+#' @examples
+#'
+#' data(MorettinTb4.8)
+#' 
+#' library(lattice)
+#' str(MorettinTb4.8)
+#' 
+#' fivenum(MorettinTb4.8)
+#' 
+#' colnames(MorettinTb4.8) <- c("Valor Real", "Previsão com t = 127")
+#' xyplot(MorettinTb4.8, type = c("l", "g"), 
+#'        layout = c(2, 1), xlab = "Dias", ylab = "Valores", 
+#'        main = expression("Série de IPI"), strip = strip.custom(bg = "white"), 
+#'        lwd = 2, col = c("violetred", "palegreen2"), 
+#'        scales = list(y = list(rot = 0)))
+NULL
\ No newline at end of file
diff --git a/R/MorettinTb4.9.R b/R/MorettinTb4.9.R
new file mode 100644
index 00000000..496146ca
--- /dev/null
+++ b/R/MorettinTb4.9.R
@@ -0,0 +1,35 @@
+#' @name MorettinTb4.9
+#' @title Série de IPI 
+#' @description Tabela 4.9 deste mesmo livro, com a previsão atualizada a cada
+#'     nova observação. 
+#' @format Uma série temporal (classe \code{ts}) diária, com 12 observações, 
+#'     em que
+#'
+#' \describe{
+#'
+#' \item{\code{Zt}}{Número decimal que indica os valores reais das observações.}
+#' 
+#' \item{\code{Z1}}{Número decimal que indica os valores previstos a cada
+#'     nova observação.}
+#' 
+#' }
+#' @keywords TS temporais
+#' @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.9
+#'     pág. 99)
+#' @examples
+#'
+#' data(MorettinTb4.9)
+#' 
+#' library(lattice)
+#' str(MorettinTb4.9)
+#' 
+#' fivenum(MorettinTb4.9)
+#' 
+#' colnames(MorettinTb4.8) <- c("Valor Real", "Previsão com t = 127")
+#' xyplot(MorettinTb4.8, type = c("l", "g"), 
+#'        layout = c(2, 1), xlab = "Dias", ylab = "Valores", 
+#'        main = "Série de IPI", strip = strip.custom(bg = "white"), 
+#'        lwd = 2, col = c("violetred", "palegreen2"), 
+#'        scales = list(y = list(rot = 0)))
+NULL
\ No newline at end of file
diff --git a/data-raw/MorettinTb4.1.txt b/data-raw/MorettinTb4.1.txt
new file mode 100644
index 00000000..e0b27da5
--- /dev/null
+++ b/data-raw/MorettinTb4.1.txt
@@ -0,0 +1,16 @@
+Zt	r7	r14	r21
+3.4371	3.5747	3.2287	3.0234
+4.9329	3.9243	3.2689	3.167
+4.6571	4.0085	3.28	3.3123
+4.0743	3.8512	3.3631	3.452
+4.0457	4.0616	3.5308	3.5633
+2.4914	3.8435	3.5496	3.5337
+2.5914	3.7471	3.5713	3.4511
+2.7029	3.6422	3.6085	3.8665
+3.3229	3.4122	3.6668	3.3167
+5.424	3.5218	3.7652	3.3606
+3.5767	3.4507	3.651	3.3923
+1.76	3.1242	3.5929	3.5953
+4.3857	3.3948	3.6191	3.498
+4.3286	3.643	3.6951	3.5952
+4.4614	3.8942	3.7682	3.7037
diff --git a/data-raw/MorettinTb4.10.txt b/data-raw/MorettinTb4.10.txt
new file mode 100644
index 00000000..919633e5
--- /dev/null
+++ b/data-raw/MorettinTb4.10.txt
@@ -0,0 +1,11 @@
+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
diff --git a/data-raw/MorettinTb4.12.txt b/data-raw/MorettinTb4.12.txt
new file mode 100644
index 00000000..21b6cca4
--- /dev/null
+++ b/data-raw/MorettinTb4.12.txt
@@ -0,0 +1,5 @@
+Jan	Fev	Mar	Abr	Mai	Jun	Jul	Ago	Set	Out	Nov	Dez
+317	194	312	316	322	322	317	356	428	411	494	412
+460	395	392	447	452	452	517	397	410	579	473	558
+538	570	600	565	485	604	527	603	604	790	714	653
+626	690	680	673	613	744	718	767	728	793	726	777
diff --git a/data-raw/MorettinTb4.13.txt b/data-raw/MorettinTb4.13.txt
new file mode 100644
index 00000000..95fa9eb8
--- /dev/null
+++ b/data-raw/MorettinTb4.13.txt
@@ -0,0 +1,5 @@
+Jan	Fev	Mar	Abr	Mai	Jun	Jul	Ago	Set	Out	Nov	Dez
+143	138	195	225	175	389	454	618	770	564	327	235
+189	326	289	293	279	552	664	827	1000	502	512	300
+359	264	315	361	414	647	836	901	1104	874	683	352
+332	244	320	437	544	830	1011	1081	1400	1123	713	487
diff --git a/data-raw/MorettinTb4.4.txt b/data-raw/MorettinTb4.4.txt
new file mode 100644
index 00000000..2578e09d
--- /dev/null
+++ b/data-raw/MorettinTb4.4.txt
@@ -0,0 +1,11 @@
+Zt	Zt_a
+57.47	67.94
+111.52	91.92
+96.77	94.59
+164.33	132.96
+127.41	129.9
+98.23	112.48
+88.05	99.04
+112.89	106.66
+137.22	123.48
+192.03	161.2
diff --git a/data-raw/MorettinTb4.6.txt b/data-raw/MorettinTb4.6.txt
new file mode 100644
index 00000000..e9b78d37
--- /dev/null
+++ b/data-raw/MorettinTb4.6.txt
@@ -0,0 +1,13 @@
+Zt	Z_114
+812	801.15
+840	825.26
+894	849.37
+936	873.49
+980	897.6
+1049	921.71
+1096	945.83
+1113	969.94
+1182	994.05
+1237	1081.16
+1309	1042.28
+1374	1066.39
diff --git a/data-raw/MorettinTb4.7.txt b/data-raw/MorettinTb4.7.txt
new file mode 100644
index 00000000..6b847c66
--- /dev/null
+++ b/data-raw/MorettinTb4.7.txt
@@ -0,0 +1,13 @@
+Z1	Zt
+801.15	812
+837.96	840
+867.39	894
+926.12	936
+972.46	980
+1018.73	1049
+1093.63	1096
+1144.06	1113
+1156.02	1182
+1226.33	1237
+1285.74	1309
+1362.76	1374
diff --git a/data-raw/MorettinTb4.8.txt b/data-raw/MorettinTb4.8.txt
new file mode 100644
index 00000000..b96af12d
--- /dev/null
+++ b/data-raw/MorettinTb4.8.txt
@@ -0,0 +1,13 @@
+Zt	Z_127
+21614	21418.04
+19717	20724.74
+22133	21839.38
+20503	20603.24
+18800	19834.87
+19577	19338.89
+18992	18500.37
+21022	20678.69
+19064	19919.52
+21067	21059.73
+21553	21276.02
+22513	21930.14
diff --git a/data-raw/MorettinTb4.9.txt b/data-raw/MorettinTb4.9.txt
new file mode 100644
index 00000000..6785eef0
--- /dev/null
+++ b/data-raw/MorettinTb4.9.txt
@@ -0,0 +1,13 @@
+Valor Real	Previsão com t = 127
+21614	21418.04
+19717	20724.74
+22133	21839.38
+20503	20603.24
+18800	19834.87
+19577	19338.89
+18992	18500.37
+21022	20678.69
+19064	19919.52
+21067	21059.73
+21553	21276.02
+22513	21930.14
diff --git a/data/MorettinTb4.1.rda b/data/MorettinTb4.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..4e55eeb6e74a83da6c7b6d24ac8cb41df91ad0e6
GIT binary patch
literal 654
zcmb2|=3oE=X6~X+gGXHtk`fXUk`mI=QWBEbj3Q?=uqZQgGpkQ{_Vuj3m#*f?Gu)m=
z7mZUA5}q-0-LfdS{<?Bcgx+(7J-5AYemWq{zL531Ug;d|0)Y>LUuO!Qf2XjZ{MYsu
z*M!)gm7n|+JLe3a&hD@GTVnS<IAFEEd-6-U#mv`378q@N&$noH$<IR(DzX*Nx@_(h
zTi*KDf9$&RU&C2^O|kKIcM5hsP>=|?yy@#XL-vExQ@5GFo-A9D_J{L>!0!hK=6|yN
zntwf)ov}}Mnjn)WU(It_d(K$>GJy@^f=PD|KRK{{|FgG8dXm`h#s3jr_IBRO1KcG~
zUvJ+pv!nLQ?A3dx$X1k03k!XsVOeng*^Hwht6m-WsGs)8)qcT#ld5^f>+e52u(~Kb
zKI@+yd)?Os6Iw!7^34es3R^1k>*0Z=+osNruief(J@??F*D>4pV$O^Id2;67(*w*~
zr>mEqs;a*y#y-z;O|^vhbIT8RjJLAyI?`xfvQ76lXFj`KrR&|I!<>A35+3rf&#Uzd
zd_PH4rowLjtvUN1EN9NQzp&HT&*H<%U4^=z4GSJHu-^W8m2Xa>j?iT9Zx#ht{lhgm
z-<3a@$IWNKKJVDk$|~u8iw`?CnLIO2VftIF9q>tJH}n17FZcfYzE*aJmBYQ_;s;e%
zo^05A@JM5{<dQo#8lM|jFv#qvw?F@~Y~Hg2#V^`_PIFb`+r!;>?zMf_G>#d;M#YYq
zjC1@XBz`z{viNec2YALM<z*R8(B%pJ&fmd$AWJc8#v-qTHA=-ZF1og<6)c;mxa+9u
zQC0`8DbHreE|QXPIH1VqV|b%Jp@B(6cg;!5&Z9>IX3tD~_GFsK;WcfWZxji8cNu9f
R;QPzYQ1&jEpNE-&0RZE_I(7g6

literal 0
HcmV?d00001

diff --git a/data/MorettinTb4.10.rda b/data/MorettinTb4.10.rda
new file mode 100644
index 0000000000000000000000000000000000000000..fd740863e2f81cf55e59ec8df75f93fa1c2c2c00
GIT binary patch
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

literal 0
HcmV?d00001

diff --git a/data/MorettinTb4.12.rda b/data/MorettinTb4.12.rda
new file mode 100644
index 0000000000000000000000000000000000000000..3a8c9c1ceceb4de48ae7d5ea00525598a1b85aea
GIT binary patch
literal 362
zcmb2|=3oE=X6~X+gGXHtk`fXUk`mI=QWBEbj3Q?=uqZQgGpkQ{_W7*7m#*f?Gu)m=
z7mZDl5)z&<cS%`@#3wK?w$EY~*u{7%e;&g^V;O~#qih^^Ii}{fo)R~Ac)GAe_{yBH
z75kDj_WxoI`Ome&hP_2Eu;CVeXuLSX)_CUKHJ6z=?(!MSznaIk;#V6N$K5c7g{KqV
zwXe$F#d!5Uvs1X^-SC|ZSO1vJu()#HS4dzN^Qre1jHUV^wYnxYw-&t1Z(g;!W!7bm
zQh#r@kp1k;EDMeZ6?>)WO?Z^b;Hnb9*HL+4N&&;vC#uhui80?i6j1uVA%bCzSXNJX
zl3dTrX;Ey+ztqGI&gk=W<+$jxW7{Pg7Gw5xX14Ojc>Hu54gY#S^x0ptLsV~N=!-Zl
zO}0weDYs_GKD*oaqwXHJLGJ%X#%PTVYR^@~#GU^h;W1X<zC_|wO4H^WMZ(@)M%oJ;
QKkzfmWnH#}otc3F0Kl%1=Kufz

literal 0
HcmV?d00001

diff --git a/data/MorettinTb4.13.rda b/data/MorettinTb4.13.rda
new file mode 100644
index 0000000000000000000000000000000000000000..ed523b12cb7a2ad66bbec478ca16f3ebff422e0b
GIT binary patch
literal 373
zcmb2|=3oE==G;lXUWXkd+Lq7MirONwr@=e?(fvbn1-m)|L`x?w4dykyu*7ucv{kOr
zYm&BJC{x^_W!vOl@RBiRN6ACRs-{Ov?pte$FrWN<?#bVOMwVXD*__%3C5$DW8>SVg
zK5nZz5;5njmYOl^{b`pz`fZXvz4~>}$0fI74Uh73>l<HJpVsa2(@{k2+VUewy)PQY
zZ+s6v@<6uE?Tr4TzlxvAJIo_)uc+_b6&`V2FurkppPkg~BhMNlT>rBDs&(7@P5PtU
z$FuoK*_}6js@g4lZ}zGDVEA44`4#O}`X{dECi;Deb>7b}_OWpK3#D`J^{GGdH1i%!
z`LXk{)|t&86s}sAp7)JNn{rfmovg-QhWi0`S56eq{MNGkX<zI$Bjp<1?VJBqT<<*O
zbuZ$Xa{jsnPdDmrwb5`b+AlEG<M#E*$|n_MO#j^8ar5_*m(}sgdAv93;}c)$=r=JK
g7tTFCm2rvS%FJ+&`zs#^^ZaLM4Sg%Z&dk670F|q?#Q*>R

literal 0
HcmV?d00001

diff --git a/data/MorettinTb4.4.rda b/data/MorettinTb4.4.rda
new file mode 100644
index 0000000000000000000000000000000000000000..54f836a834ad2848ea861db118f0a38da12b35ee
GIT binary patch
literal 290
zcmb2|=3oE=X6~X+gGXHtk`fXUk`mI=QWBEbj3Q?=uqZQgGpkQ{_Vuj3m#*f?Gu)m=
z7mX7W5}q-0by@s)bMZ&j3j1S<zZU+snz*W+Pq0nEYUyfwx5uv&+kZrFW9?pFZ0Yjl
zEl15=t@i@Qa(I~d48;_3XYqBuicw(YljISoJ0RatnYiD9EzG(_pY@Z;K1-D|%`f~n
zSTeJu%O*Wh_|xGmP`xP3@lEG$c0vC@Z)Qdle}m;I&zk-)eN$&<KC*v>mqmluC!ylt
z?#7(N6}##kbQsc{uNb&ab%@jnRQ=fbV%iiDaR$wR9|qPg@(B!#?G^?{6aF_cas_PJ
rp!QrvOx!s)v2Et$=pdfW0_T!W`|4<(TGL?lN}fS>(p$bAj0_9_Y3p%!

literal 0
HcmV?d00001

diff --git a/data/MorettinTb4.6.rda b/data/MorettinTb4.6.rda
new file mode 100644
index 0000000000000000000000000000000000000000..5103d74f50da6e8ef70ff233387a9c3a6e8eee87
GIT binary patch
literal 301
zcmb2|=3oE=X6~X+gGXHtk`fXUk`mI=QWBEbj3Q?=uqZQgGpkQ{_Vuj3m#*f?Gu)m=
z7mbq>5}q-0d0CXG88kFFPiJm<_m5#=^};{<SOuz_xLW3|U|72FkEf_WRS`$aydb89
z%bku|TlP90SonF0$5rR=rF^lm@%&$pXIPa~@6VfhTky$+!^LbI=d8ZWiDeIY@bJRz
z?LVxh=Pq=fZy#Xwq1So8gA|8_PX&|U{0E#Ob$4GGB&OE)9J_uvV_u5i$uq1!MP>MS
zcx(iuTsheTJmZq`vJ5Ba@`Qfp?_fQU(;>BNg^)(Ksn)#<7g+92oAiiDftAZ4t$hZw
zK>soGhRkY@9}C;<vWxtZ3JtGFrOmM1se05v`k~IYJ4YrhI>WVM^*=@im1(JqZ!$74
F001jrd}{yz

literal 0
HcmV?d00001

diff --git a/data/MorettinTb4.7.rda b/data/MorettinTb4.7.rda
new file mode 100644
index 0000000000000000000000000000000000000000..9b47baf501f6f5d4953ad7a03faac200b885f8a4
GIT binary patch
literal 294
zcmb2|=3oE=X6~X+gGXHtk`fXUk`mI=QWBEbj3Q?=uqZQgGpkQ{_Vuj3m#*f?Gu)m=
z7md>s5}q-0d0CVcNi{b(Pyc5%aaFq<-`z_^)=cr+t-jR!s9Is~c6p(`q|&|muU6A@
z4+^z+CarZ~&6iQL+n^g!Gxv1jB!+-nwQ~=r_%6`fDa#jpMB&%6s^UfwixM@1h6d;9
z%q{Q!F)XZJ_-7xhK$R0$%e)l~OBep}6cwl{;%J!{#I$g^(~*ldC+AF>$^A*&LPkQO
zLcyd<h;PB9JxA_bNm7WGSoKa`fV<(QfT>SlTR|A-E>YE^tPWfvRcH7N*%j7x<}+OW
xCNHsJXP2p^`o<j+S?tDV=G>W-G()vOEIKdAGcb+yisyfZkX@obuQ4((005t=b$b8+

literal 0
HcmV?d00001

diff --git a/data/MorettinTb4.8.rda b/data/MorettinTb4.8.rda
new file mode 100644
index 0000000000000000000000000000000000000000..804294ab3ad900b128685ca468ed4e502e5385f6
GIT binary patch
literal 309
zcmb2|=3oE=X6~X+gGXHtk`fXUk`mI=QWBEbj3Q?=uqZQgGpkQ{_Vuj3m#*f?Gu)m=
z7dIy)Bs^p0^0J7Tn#XX7hi|&9?13*=cMAOCdd+B1tJ%h=q|Yw6{|fWN_{{bfyG{5{
z&1VU$pUR$fPJV^u`dPn{P4-#FY`ofk@kiB-hglzb4_sgSi7))gx#pkKA8%VPyt3*=
z!OM$%>)U@N%jj`-HUA9fxt_tmDx)WEUlOk#^tK@N&~90WUcT@?<EEeCo2?vPU9>ql
zXVOgWPudnT5)u^(CS5{&3nuM3a_35tLbSxHck%+<4L1c$eF9Yj#Ii&7ESzY$OIP(M
zs{@xv!x=tKo(T*dEe3Dw4ICJ|#I8M=bL3Id3ez(N#YNs-iDri)b9Q#By3Q002>;8>
Na72H)%1uTF1^}OGfr9`5

literal 0
HcmV?d00001

diff --git a/data/MorettinTb4.9.rda b/data/MorettinTb4.9.rda
new file mode 100644
index 0000000000000000000000000000000000000000..23b81ffa693cca5be73d43945cc28dcef42fdde8
GIT binary patch
literal 337
zcmb2|=3oE=X6~X+gGXHtk`fXUk`mI=QWBEbj3Q?=uqZQgGpkQ{_Vuj3m#*f?Gu)m=
z7dNLQBs^p0^0J7Tn#XX7hi|&9?13*=cMAOCdd+B1tJ%h=q|Yw6{|fWN_{{bfyG{5{
z&1VU$pUR$fPJV^u`dPn{P4-#FY`ofk@kiB-hglzb4_sgSi7))gx#pkKA8%VPyt3*=
z!OM$%>)U@N%jj`-HUA9fxt_tmDx)WEUlOk#^tK@N&~90WUcT@?<EEeCo2?vPU9>ql
zXVOgWPudnT5)u^(CS5{&3nuM3a_35tLbSxHck%+<4L1c$V-h<pf4XuxuI#kr;o(&f
zyx6el%BC}q4tIYRo%Fd_)Jr5sl&AO1#aw+&J%*qK4XI@w2@NbhN-c^18yUF*wro&)
qt|BJxyf(dU=H%!go>ZfQkvTg%Rb6L_23-Hg%wW*}!RR9+0|Njdz>aPJ

literal 0
HcmV?d00001

-- 
GitLab