Skip to content
Snippets Groups Projects
Commit b50ea69c authored by Bruna Wundervald's avatar Bruna Wundervald
Browse files

Adiciona o .R das tabelas 7.1 e 7.2 do Morettin

parent b3a28e68
No related branches found
No related tags found
1 merge request!128Bruna165
Pipeline #
#' @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
#' @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
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment