diff --git a/R/Atmosfera.R b/R/MorettinA7.R
similarity index 63%
rename from R/Atmosfera.R
rename to R/MorettinA7.R
index 5a6edc668dee678deee61475710949ebe6f9f093..786be796a6b538503e3d00748fb18c367a1f36cf 100644
--- a/R/Atmosfera.R
+++ b/R/MorettinA7.R
@@ -1,4 +1,4 @@
-#' @name Atmosfera
+#' @name MorettinA7
 #' @title Temperatura e Umidade do Ar na Cidade de São Paulo
 #' @description Dados atmosféricos sobre temperatura
 #'     (\code{Temperatura}) e umidade relativa do ar (\code{Umidade}),
@@ -11,33 +11,32 @@
 #' \describe{
 #'
 #' \item{\code{Temperatura}}{Temperaturas, mensuradas ao meio-dia em
-#'     [VER UNIDADE DE MEDIDA].}
+#'     graus Celsius.}
 #'
 #' \item{\code{Umidade}}{Umidades relativa do ar, mensuradas ao meio-dia
-#'     em [VER UNIDADE DE MEDIDA].}
+#'     e expressas em porcentagem.}
 #'
 #' }
-#' @seealso \code{\link{Poluentes}}.
+#' @seealso \code{\link{MorettinA6}}.
 #' @keywords TS MTS
-#' @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
-#'     A7 - Atmosfera, mencionada em diversas páginas)
+#' @source MORETTIN, TOLOI (2006), Série A7 - Atmosfera, descrita no
+#'     Capítulo 1 pág. 17 e mencionada em diversas páginas).
 #' @examples
 #'
-#' data(Atmosfera)
-#' str(Atmosfera)
-#' Atmosfera
+#' data(MorettinA7)
+#' str(MorettinA7)
+#' MorettinA7
 #'
 #' # Estatísticas resumo das séries
-#' apply(Atmosfera, 2, summary)
+#' apply(MorettinA7, 2, summary)
 #'
 #' # Visualização da série
 #' library(lattice)
-#' xyplot(Atmosfera, type = c("o", "g"), pch = 19, col = "turquoise")
+#' xyplot(MorettinA7, type = c("o", "g"), pch = 19, col = "turquoise")
 #'
 #' # Mesclando com as séries dos agentes poluentes no mesmo período
-#' # help(Poluentes)
-#' series <- ts.union(Atmosfera, Poluentes)
+#' # help(MorettinA6)
+#' series <- ts.union(MorettinA6, MorettinA7)
 #' xyplot(series, type = c("o", "g"), pch = 20, col = "black")
 #'
 NULL
diff --git a/data-raw/Atmosfera.txt b/data-raw/MorettinA7.txt
similarity index 100%
rename from data-raw/Atmosfera.txt
rename to data-raw/MorettinA7.txt
diff --git a/data/Atmosfera.rda b/data/Atmosfera.rda
deleted file mode 100644
index 25a3cdf4afb86e075eae664985efd1ce6947f191..0000000000000000000000000000000000000000
Binary files a/data/Atmosfera.rda and /dev/null differ
diff --git a/data/MorettinA7.rda b/data/MorettinA7.rda
new file mode 100644
index 0000000000000000000000000000000000000000..677aaa3ca85f7a30cd53b601bb35dbab66e655a9
Binary files /dev/null and b/data/MorettinA7.rda differ
diff --git a/man/Atmosfera.Rd b/man/MorettinA7.Rd
similarity index 63%
rename from man/Atmosfera.Rd
rename to man/MorettinA7.Rd
index eec32462c6eda0bc5b5cb385c30f045662146d4f..c0532173fa8854dedf8ac501df365059ea9166fe 100644
--- a/man/Atmosfera.Rd
+++ b/man/MorettinA7.Rd
@@ -1,7 +1,7 @@
 % Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/Atmosfera.R
-\name{Atmosfera}
-\alias{Atmosfera}
+% Please edit documentation in R/MorettinA7.R
+\name{MorettinA7}
+\alias{MorettinA7}
 \title{Temperatura e Umidade do Ar na Cidade de São Paulo}
 \format{Uma série temporal bivariada (classe \code{mts}), com 365
     observações diárias de 1º de Janeiro a 31 de Dezembro de 1997,
@@ -10,16 +10,15 @@
 \describe{
 
 \item{\code{Temperatura}}{Temperaturas, mensuradas ao meio-dia em
-    [VER UNIDADE DE MEDIDA].}
+    graus Celsius.}
 
 \item{\code{Umidade}}{Umidades relativa do ar, mensuradas ao meio-dia
-    em [VER UNIDADE DE MEDIDA].}
+    e expressas em porcentagem.}
 
 }}
 \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
-    A7 - Atmosfera, mencionada em diversas páginas)
+MORETTIN, TOLOI (2006), Série A7 - Atmosfera, descrita no
+    Capítulo 1 pág. 17 e mencionada em diversas páginas).
 }
 \description{
 Dados atmosféricos sobre temperatura
@@ -29,26 +28,25 @@ Dados atmosféricos sobre temperatura
 }
 \examples{
 
-data(Atmosfera)
-str(Atmosfera)
-Atmosfera
+data(MorettinA7)
+str(MorettinA7)
+MorettinA7
 
 # Estatísticas resumo das séries
-apply(Atmosfera, 2, summary)
+apply(MorettinA7, 2, summary)
 
 # Visualização da série
 library(lattice)
-xyplot(Atmosfera, type = c("o", "g"), pch = 19, col = "turquoise")
+xyplot(MorettinA7, type = c("o", "g"), pch = 19, col = "turquoise")
 
 # Mesclando com as séries dos agentes poluentes no mesmo período
-# help(Poluentes)
-series <- ts.union(Atmosfera, Poluentes)
+# help(MorettinA6)
+series <- ts.union(MorettinA6, MorettinA7)
 xyplot(series, type = c("o", "g"), pch = 20, col = "black")
 
 }
 \seealso{
-\code{\link{Poluentes}}.
+\code{\link{MorettinA6}}.
 }
 \keyword{MTS}
 \keyword{TS}
-