From 4ed05899f232b09680b5f961b7be2a4e108bff15 Mon Sep 17 00:00:00 2001
From: Bruna Wundervald <brunadaviesw@gmail.com>
Date: Fri, 14 Oct 2016 09:19:09 -0300
Subject: [PATCH] Atualiza o .R da tabela MorettinTb4.12.R
---
R/MorettinTb4.12.R | 59 +++++++++++++---------------------------------
1 file changed, 17 insertions(+), 42 deletions(-)
diff --git a/R/MorettinTb4.12.R b/R/MorettinTb4.12.R
index f8c73675..c1b2671a 100644
--- a/R/MorettinTb4.12.R
+++ b/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)
-#'
-#' 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)))
+#' # 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)))
+#'
+#' # Gráfico da decomposição sazonal
+#' library(latticeExtra)
+#' xyplot(stl(MorettinTb4.13, s.window = 12), col = "violetred")
NULL
\ No newline at end of file
--
GitLab