diff --git a/R/ICV.R b/R/MorettinA10.R
similarity index 52%
rename from R/ICV.R
rename to R/MorettinA10.R
index 03caadaa8fe7e5ddfbe2e554d32b62d1bafc8416..6b92096d600402047d4dea9d537d6c2472a62ee7 100644
--- a/R/ICV.R
+++ b/R/MorettinA10.R
@@ -1,32 +1,31 @@
-#' @name ICV
+#' @name MorettinA10
 #' @title Índice de Custo de Vida em São Paulo
 #' @description Dados sobre o índice de custo de vida (ICV), na cidade
 #'     de São Paulo. A série é referente a observações mensais no
-#'     período de Janeiro de 1970 a Outubro de 1980.
+#'     período de janeiro de 1970 a outubro de 1980.
 #' @format Uma série temporal (classe \code{ts}), com 126 observações
 #'     mensais de Janeiro de 1970 a Outubro de 1980.
 #' @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. (Série
-#'     A10 - M-ICV, mencionada em diversas páginas)
+#' @source MORETTIN, TOLOI (2006), Série A10 - M-ICV, descrita no
+#'     Capítulo 1 pág. 17 e mencionada em diversas páginas.
 #' @examples
 #'
-#' data(ICV)
-#' str(ICV)
-#' ICV
+#' data(MorettinA10)
+#' str(MorettinA10)
+#' MorettinA10
 #'
 #' # Médias anuais
-#' aggregate(ICV, FUN = mean)
+#' aggregate(MorettinA10, FUN = mean)
 #'
 #' # Médias mensais
-#' tapply(ICV, cycle(ICV), mean)
+#' tapply(MorettinA10, cycle(MorettinA10), mean)
 #'
 #' # Visualização da série
 #' library(lattice)
-#' xyplot(ICV, type = c("o", "g"), pch = 19, col = "peachpuff")
+#' xyplot(MorettinA10, type = c("o", "g"), pch = 19, col = "peachpuff")
 #'
 #' # Gráfico da decomposição sazonal
 #' library(latticeExtra)
-#' xyplot(stl(ICV, s.window = 12), col = "peru")
+#' xyplot(stl(MorettinA10, s.window = 12), col = "peru")
 #'
 NULL
diff --git a/data-raw/ICV.txt b/data-raw/MorettinA10.txt
similarity index 100%
rename from data-raw/ICV.txt
rename to data-raw/MorettinA10.txt
diff --git a/data/ICV.rda b/data/ICV.rda
deleted file mode 100644
index d16ac89f4c3450eef53bea44ad31e7c16f8eec3c..0000000000000000000000000000000000000000
Binary files a/data/ICV.rda and /dev/null differ
diff --git a/data/MorettinA10.rda b/data/MorettinA10.rda
new file mode 100644
index 0000000000000000000000000000000000000000..87ed25765118c7ec459a8e1215c7215d6363b545
Binary files /dev/null and b/data/MorettinA10.rda differ
diff --git a/man/ICV.Rd b/man/MorettinA10.Rd
similarity index 51%
rename from man/ICV.Rd
rename to man/MorettinA10.Rd
index abfc1fab5747095af410a2584e3ed6be24132b7e..b99ae374571ad260b27a7054dbbb4c25a4def258 100644
--- a/man/ICV.Rd
+++ b/man/MorettinA10.Rd
@@ -1,40 +1,38 @@
 % Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/ICV.R
-\name{ICV}
-\alias{ICV}
+% Please edit documentation in R/MorettinA10.R
+\name{MorettinA10}
+\alias{MorettinA10}
 \title{Índice de Custo de Vida em São Paulo}
 \format{Uma série temporal (classe \code{ts}), com 126 observações
     mensais de Janeiro de 1970 a Outubro de 1980.}
 \source{
-Morettin, P. A., Toloi, C. M. C. (2006). Análise de Séries
-    Temporais (2nd ed.). São Paulo, SP: Editora Egard Blucher. (Série
-    A10 - M-ICV, mencionada em diversas páginas)
+MORETTIN, TOLOI (2006), Série A10 - M-ICV, descrita no
+    Capítulo 1 pág. 17 e mencionada em diversas páginas.
 }
 \description{
 Dados sobre o índice de custo de vida (ICV), na cidade
     de São Paulo. A série é referente a observações mensais no
-    período de Janeiro de 1970 a Outubro de 1980.
+    período de janeiro de 1970 a outubro de 1980.
 }
 \examples{
 
-data(ICV)
-str(ICV)
-ICV
+data(MorettinA10)
+str(MorettinA10)
+MorettinA10
 
 # Médias anuais
-aggregate(ICV, FUN = mean)
+aggregate(MorettinA10, FUN = mean)
 
 # Médias mensais
-tapply(ICV, cycle(ICV), mean)
+tapply(MorettinA10, cycle(MorettinA10), mean)
 
 # Visualização da série
 library(lattice)
-xyplot(ICV, type = c("o", "g"), pch = 19, col = "peachpuff")
+xyplot(MorettinA10, type = c("o", "g"), pch = 19, col = "peachpuff")
 
 # Gráfico da decomposição sazonal
 library(latticeExtra)
-xyplot(stl(ICV, s.window = 12), col = "peru")
+xyplot(stl(MorettinA10, s.window = 12), col = "peru")
 
 }
 \keyword{TS}
-