diff --git a/R/Energia.R b/R/MorettinA5.R
similarity index 55%
rename from R/Energia.R
rename to R/MorettinA5.R
index f619746aac4f8f55fcbff7919cc279c9d168a55e..092d8323ebc62c3229419db5f574603501a99903 100644
--- a/R/Energia.R
+++ b/R/MorettinA5.R
@@ -1,34 +1,31 @@
-#' @name Energia
+#' @name MorettinA5
 #' @title Consumo de Energia Elétrica no Espírito Santo
 #' @description Dados sobre o consumo de energia elétrica no estado do
 #'     Espírito Santo. A série é referente a valores mensais de consumo
 #'     no período de Janeiro de 1968 a Setembro de 1979.
-#'
 #' @format Uma série temporal (classe \code{ts}), com 141 observações
 #'     mensais de Janeiro de 1968 a Setembro 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. (Série A5 - Energia, mencionada em diversas
-#'     páginas)
+#' @source MORETTIN, TOLOI (2006), Série A5 - Energia, descrita no
+#'     Capítulo 1 pág. 17 e mencionada em diversas páginas.
 #' @examples
 #'
-#' data(Energia)
-#' str(Energia)
-#' Energia
+#' data(MorettinA5)
+#' str(MorettinA5)
+#' MorettinA5
 #'
 #' # Médias anuais
-#' aggregate(Energia, FUN = mean)
+#' aggregate(MorettinA5, FUN = mean)
 #'
 #' # Médias mensais
-#' tapply(Energia, cycle(Energia), mean)
+#' tapply(MorettinA5, cycle(MorettinA5), mean)
 #'
 #' # Visualização da série
 #' library(lattice)
-#' xyplot(Energia, type = c("o", "g"), pch = 19, col = "lightblue")
+#' xyplot(MorettinA5, type = c("o", "g"), pch = 19, col = "lightblue")
 #'
 #' # Gráfico da decomposição sazonal
 #' library(latticeExtra)
-#' xyplot(stl(Energia, s.window = 12), col = "yellowgreen")
+#' xyplot(stl(MorettinA5, s.window = 12), col = "yellowgreen")
 #'
 NULL
diff --git a/data-raw/Energia.txt b/data-raw/MorettinA5.txt
similarity index 100%
rename from data-raw/Energia.txt
rename to data-raw/MorettinA5.txt
diff --git a/data/Energia.rda b/data/Energia.rda
deleted file mode 100644
index 85937596dee5e36d489475cb6442c08746347fa1..0000000000000000000000000000000000000000
Binary files a/data/Energia.rda and /dev/null differ
diff --git a/data/MorettinA5.rda b/data/MorettinA5.rda
new file mode 100644
index 0000000000000000000000000000000000000000..22314b415a1d70a09a70cb4a557ae2a45cdab79b
Binary files /dev/null and b/data/MorettinA5.rda differ
diff --git a/man/Energia.Rd b/man/MorettinA5.Rd
similarity index 55%
rename from man/Energia.Rd
rename to man/MorettinA5.Rd
index dc29cd5a07a884f53a4db1fddb0cde1eab5f347f..cef84fa71147cd396a63c83ee0ae0b9d08f410e6 100644
--- a/man/Energia.Rd
+++ b/man/MorettinA5.Rd
@@ -1,15 +1,13 @@
 % Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/Energia.R
-\name{Energia}
-\alias{Energia}
+% Please edit documentation in R/MorettinA5.R
+\name{MorettinA5}
+\alias{MorettinA5}
 \title{Consumo de Energia Elétrica no Espírito Santo}
 \format{Uma série temporal (classe \code{ts}), com 141 observações
     mensais de Janeiro de 1968 a Setembro de 1979.}
 \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 A5 - Energia, mencionada em diversas
-    páginas)
+MORETTIN, TOLOI (2006), Série A5 - Energia, descrita no
+    Capítulo 1 pág. 17 e mencionada em diversas páginas.
 }
 \description{
 Dados sobre o consumo de energia elétrica no estado do
@@ -18,24 +16,23 @@ Dados sobre o consumo de energia elétrica no estado do
 }
 \examples{
 
-data(Energia)
-str(Energia)
-Energia
+data(MorettinA5)
+str(MorettinA5)
+MorettinA5
 
 # Médias anuais
-aggregate(Energia, FUN = mean)
+aggregate(MorettinA5, FUN = mean)
 
 # Médias mensais
-tapply(Energia, cycle(Energia), mean)
+tapply(MorettinA5, cycle(MorettinA5), mean)
 
 # Visualização da série
 library(lattice)
-xyplot(Energia, type = c("o", "g"), pch = 19, col = "lightblue")
+xyplot(MorettinA5, type = c("o", "g"), pch = 19, col = "lightblue")
 
 # Gráfico da decomposição sazonal
 library(latticeExtra)
-xyplot(stl(Energia, s.window = 12), col = "yellowgreen")
+xyplot(stl(MorettinA5, s.window = 12), col = "yellowgreen")
 
 }
 \keyword{TS}
-