From b50ea69c861fc0a90a3c3b5f85d0609cce85d309 Mon Sep 17 00:00:00 2001
From: Bruna Wundervald <brunadaviesw@gmail.com>
Date: Wed, 14 Sep 2016 16:53:38 -0300
Subject: [PATCH] Adiciona o .R das tabelas 7.1 e 7.2 do Morettin
---
R/MorettinTb7.1.R | 33 +++++++++++++++++++++++++++++++++
R/MorettinTb7.2.R | 35 +++++++++++++++++++++++++++++++++++
2 files changed, 68 insertions(+)
create mode 100644 R/MorettinTb7.2.R
diff --git a/R/MorettinTb7.1.R b/R/MorettinTb7.1.R
index e69de29b..291b22db 100644
--- a/R/MorettinTb7.1.R
+++ b/R/MorettinTb7.1.R
@@ -0,0 +1,33 @@
+#' @name MorettinTb7.1
+#' @title Cálculo recursivo de At
+#' @description Tabela contendo dados para o cálculo recursivo de \emph{a}_{t}.
+#'
+#' @format Uma série temporal (classe \code{ts}) diária, com 10 observações,
+#' em que
+#'
+#' \describe{
+#'
+#' \item{\code{Zt}}{Número inteiro que indica os valores das observações.}
+#'
+#' \item{\code{Wt}}{Número inteiro que indica os valores de Wt.}
+#'
+#' \item{\code{at}}{Número decimal que indica os valores de at, atualizados
+#' recursivamente.}
+#'
+#' }
+#' @keywords TS temporais
+#' @source MORETTIN, TOLOI (2006), Tabela 7.1, pág. 183.
+#' @examples
+#'
+#' data(MorettinTb7.1)
+#'
+#' library(lattice)
+#' str(MorettinTb7.1)
+#'
+#' xyplot(MorettinTb7.1, type = c("l", "g"),
+#' xlab = "Tempo", ylab = "Observações",
+#' main = expression("Cálculo recursivo de"~a[t]),
+#' strip = strip.custom(bg = "white"),
+#' lwd = 2, col = c("palegreen2", "orange", "pink"),
+#' scales = list(y = list(rot = 0)))
+NULL
\ No newline at end of file
diff --git a/R/MorettinTb7.2.R b/R/MorettinTb7.2.R
new file mode 100644
index 00000000..1338eda6
--- /dev/null
+++ b/R/MorettinTb7.2.R
@@ -0,0 +1,35 @@
+#' @name MorettinTb7.2
+#' @title Cálculo recursivo de At
+#' @description Tabela contendo dados para o cálculo recursivo de \emph{a}_{t}.
+#'
+#' @format Uma série temporal (classe \code{ts}) diária, com 11 observações,
+#' em que
+#'
+#' \describe{
+#'
+#' \item{\code{Zt}}{Número inteiro que indica os valores das observações.}
+#'
+#' \item{\code{Wt}}{Número inteiro que indica os valores de Wt.}
+#'
+#' \item{\code{at}}{Número decimal que indica os valores de at, atualizados
+#' recursivamente.}
+#'
+#' \item{\code{et}}{Número decimal que indica os valores de et, atualizados
+#' recursivamente.}
+#' }
+#' @keywords TS temporais
+#' @source MORETTIN, TOLOI (2006), Tabela 7.2, pág. 185.
+#' @examples
+#'
+#' data(MorettinTb7.2)
+#'
+#' library(lattice)
+#' str(MorettinTb7.2)
+#'
+#' xyplot(MorettinTb7.2, type = c("l", "g"),
+#' xlab = "Tempo", ylab = "Observações",
+#' main = expression("Cálculo recursivo de"~a[t]),
+#' strip = strip.custom(bg = "white"),
+#' lwd = 2, col = c("palegreen2", "orange", "pink", "lightblue"),
+#' scales = list(y = list(rot = 0)))
+NULL
\ No newline at end of file
--
GitLab