Atualiza o .R da tabela MorettinTb4.12.R

R/MorettinTb4.12.R

@@ -3,41 +3,9 @@
 #' @description Dados de uma série de quantidade de vendas de óleo 
 #'     lubrificante. A tabela é referente aos meses de Janeiro de 1975 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.}
-#' 
-#' }
-#' @keywords TS temporais
+#' @format Uma série temporal (classe \code{ts}), com 48 observações, 
+#'     mensais, de janeiro de 1975 a dezembro de 1978.
+#' @keywords TS
 #' @source MORETTIN, TOLOI (2006), Tabela 4.12, pág. 101. 
 #' @examples
 #'
@@ -46,11 +14,18 @@
 #' library(lattice)
 #' str(MorettinTb4.12)
 #' 
-#' fivenum(MorettinTb4.12)
+#' # Médias anuais
+#' aggregate(MorettinTb4.12, FUN = mean)
+#'
+#'#' # Médias mensais
+#' tapply(MorettinTb4.12, cycle(MorettinTb4.12), mean)
+#'
+#' # Visualização da série temporal
+#' xyplot(MorettinTb4.12, type = c("o", "g"), pch = 19,
+#'        strip = strip.custom(bg = "white"), col = "palegreen2",
+#'        lwd = 2, scales = list(y = list(rot = 0)))
 #' 
-#' xyplot(MorettinTb4.12, type = c("l", "g"), 
-#'        layout = c(2, 6), xlab = "Anos", ylab = "Vendas", 
-#'        main = "Vendas de óleo lubrificante", strip = strip.custom(bg = "white"), 
-#'        lwd = 2, col = c("violetred", "palegreen2", "yellow"), 
-#'        scales = list(y = list(rot = 0)))
+#' # Gráfico da decomposição sazonal
+#' library(latticeExtra)
+#' xyplot(stl(MorettinTb4.13, s.window = 12), col = "violetred")
 NULL
\ No newline at end of file