From e88fe9f216b15c587fa6263c1183c9e42eb3e982 Mon Sep 17 00:00:00 2001
From: Bruna Wundervald <brunadaviesw@gmail.com>
Date: Fri, 14 Oct 2016 09:12:29 -0300
Subject: [PATCH] Atualiza o .R da Tabela 4.13
---
R/MorettinTb4.13.R | 59 ++++++++++++++--------------------------------
1 file changed, 18 insertions(+), 41 deletions(-)
diff --git a/R/MorettinTb4.13.R b/R/MorettinTb4.13.R
index e4b8ab74..fb57c301 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
--
GitLab