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.13.R

 #' @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.}
+#'     A tabela é referente aos meses de Janeiro de 1970 a Dezembro de 197?. 
+#' @format Uma série temporal (classe \code{ts}), com 48 observações mensai, 
+#'     de janeiro de 1970 a dezembro de 197?.
 #' 
 #' }
 #' @keywords TS temporais
 #' @source MORETTIN, TOLOI (2006), Tabela 4.13, pág. 102.
 #' @examples
 #'
-#' data(MorettinTb4.12)
+#' data(MorettinTb4.13)
 #' 
 #' 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)))
+#' # Médias anuais
+#' aggregate(MorettinTb4.13, FUN = mean)
+#'
+#' # Médias mensais
+#' tapply(MorettinTb4.13, cycle(MorettinTb4.13), mean)
+#'
+#' xyplot(MorettinTb4.13, type = c("o", "g"), pch = 19,
+#'          strip = strip.custom(bg = "white"),
+#'          scales = list(y = list(rot = 0)),
+#'          col = "tomato")
+#' 
+#' # Gráfico da decomposição sazonal
+#' library(latticeExtra)
+#' xyplot(stl(MorettinTb4.10, s.window = 12), col = "turquoise")
 NULL
\ No newline at end of file