Remove séries que são janelas da série Tb3.6

R/MorettinTb4.8.R

-#' @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 = "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

R/MorettinTb4.9.R

-#' @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

data-raw/MorettinTb4.8.txt

-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

data-raw/MorettinTb4.9.txt

-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