Bruna140: Adiciona os arquivos de 8 tabelas do Morettin

Realização do Issue #140, tabelas 4.1, 4.6, 4.7, 4.8, 4.9, 4.10, 4.12 e 4.13.

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