diff --git a/R/MorettinTb4.13.R b/R/MorettinTb4.13.R
index e4b8ab7458f02597b3d0abe45cf9cb00a9fcd074..fb57c301c1671253dd533a7d33847112f95ee616 100644
--- a/R/MorettinTb4.13.R
+++ b/R/MorettinTb4.13.R
@@ -1,55 +1,32 @@
 #' @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