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

 #' @name MorettinTb4.10
-#' @title Preço Médio Mensal de Café 
-#' @description Dados de uma série do preço médio mensal (corrente), 
-#'     recebido pelos produtos de café, no Estado de São Paulo. A tabela
-#'     é referente aos meses de Janeiro de 1970 a Junho de 1979. 
-#' @format Uma série temporal (classe \code{ts}), com 12 observações, 
-#'     em que
-#'
-#' \describe{
-#'
-#' \item{\code{Jan}}{Número decimal que indica o preço médio do mês de Janeiro.}
-#' 
-#' \item{\code{Fev}}{Número decimal que indica o preço médio do mês de 
-#'     Fevereiro.}
-#'     
-#' \item{\code{Mar}}{Número decimal que indica o preço médio do mês de Março.}
-#' 
-#' \item{\code{Abril}}{Número decimal que indica o preço médio do mês de Abril.}
-#' 
-#' \item{\code{Mai}}{Número decimal que indica o preço médio do mês de Maio.}
-#' 
-#' \item{\code{Jun}}{Número decimal que indica o preço médio do mês de Junho.}
-#' 
-#' \item{\code{Jul}}{Número decimal que indica o preço médio do mês de Julho.}
-#' 
-#' \item{\code{Ago}}{Número decimal que indica o preço médio do mês de Agosto.}
-#' 
-#' \item{\code{Set}}{Número decimal que indica o preço médio do mês de 
-#'      Setembro.}
-#' 
-#' \item{\code{Out}}{Número decimal que indica o preço médio do mês de Outubro.}
-#' 
-#' \item{\code{Nov}}{Número decimal que indica o preço médio do mês de  
-#'     Novembro.}
-#' 
-#' \item{\code{Dez}}{Número decimal que indica o preço médio do mês de 
-#'     Dezembro.}
-#' 
-#' }
-#' @keywords TS temporais
+#' @title Preço Médio Mensal de Café no Estado de São Paulo
+#' @description Dados sobre o preço médio mensal (corrente), MENSURADO
+#'     EM ???, recebido pelos produtos de café, no Estado de São Paulo
+#'     durante o período de 1970 a 1979.  referente aos meses de janeiro
+#'     de 1970 a junho de 1979.
+#' @format Uma série temporal (classe \code{ts}), com 144 observações
+#'     mensais, de janeiro de 1970 a junho de 1979.
+#' @keywords TS
 #' @source Morettin, P. A., Toloi, C. M. C. (2006). Análise de Séries
-#'     Temporais (2nd ed.). São Paulo, SP: Editora Egard Blucher. (Tabela 4.10
-#'     pág. 100)
+#'     Temporais (2nd ed.). São Paulo, SP: Editora Egard
+#'     Blucher. (Tabela 4.10 pág. 100)
 #' @examples
 #'
 #' data(MorettinTb4.10)
-#' 
-#' library(lattice)
 #' str(MorettinTb4.10)
-#' 
-#' fivenum(MorettinTb4.10)
-#' 
-#' xyplot(MorettinTb4.10, type = c("l", "g"), 
-#'        layout = c(2, 6), xlab = "Anos", ylab = "Preços", 
-#'        main = "Preço médio mensal do café", strip = strip.custom(bg = "white"), 
-#'        lwd = 2, col = c("violetred", "palegreen2", "yellow"), 
-#'        scales = list(y = list(rot = 0)))
-NULL
\ No newline at end of file
+#' MorettinTb4.10
+#'
+#' # Médias anuais
+#' aggregate(MorettinTb4.10, FUN = mean)
+#'
+#' # Médias mensais
+#' tapply(MorettinTb4.10, cycle(MorettinTb4.10), mean)
+#'
+#' # Visualização da série
+#' library(lattice)
+#' xyplot(MorettinTb4.10, type = c("o", "g"), pch = 19)
+#'
+#' # Gráfico da decomposição sazonal
+#' library(latticeExtra)
+#' xyplot(stl(MorettinTb4.10, s.window = 12))
+#'
+NULL