diff --git a/NAMESPACE b/NAMESPACE
index 8a027dc..b841ed2 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -6,6 +6,7 @@ export(get_aircrafts_dates_available)
 export(get_airfares_dates_available)
 export(get_airport_movement_dates_available)
 export(get_flight_dates_available)
+export(latest_airfares_date)
 export(latest_flights_date)
 export(read_aircrafts)
 export(read_airfares)
diff --git a/man/latest_airfares_date.Rd b/man/latest_airfares_date.Rd
new file mode 100644
index 0000000..51a8421
--- /dev/null
+++ b/man/latest_airfares_date.Rd
@@ -0,0 +1,31 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/latest_flights_date.R
+\name{latest_airfares_date}
+\alias{latest_airfares_date}
+\title{Check the date of the latest airfare data available}
+\usage{
+latest_airfares_date(dom = TRUE)
+}
+\arguments{
+\item{dom}{Logical. Defaults to \code{TRUE} download airfares of domestic
+flights. If \code{FALSE}, the function downloads airfares of
+international flights.}
+}
+\value{
+A numeric date in the format \code{yyyymm}.
+}
+\description{
+Check the date of the latest airfare data available
+}
+\examples{
+\dontrun{ if (interactive()) {
+
+latest_date <- latest_airfares_date()
+
+}}
+}
+\seealso{
+Other support function: 
+\code{\link{latest_flights_date}()}
+}
+\concept{support function}
diff --git a/man/latest_flights_date.Rd b/man/latest_flights_date.Rd
index 69352f9..709da69 100644
--- a/man/latest_flights_date.Rd
+++ b/man/latest_flights_date.Rd
@@ -19,4 +19,8 @@ latest_date <- latest_flights_date()
 
 }}
 }
+\seealso{
+Other support function: 
+\code{\link{latest_airfares_date}()}
+}
 \concept{support function}
diff --git a/tests_rafa/precodapassagem.R b/tests_rafa/precodapassagem.R
index eb5b73d..3ad58d0 100644
--- a/tests_rafa/precodapassagem.R
+++ b/tests_rafa/precodapassagem.R
@@ -198,16 +198,11 @@ df_output <- df100 |>
 
 quak::quak(df_output)
 
-# proximos passos
-- logo no começo, identificar pares de ida e volta
-- gerar valor total de ida + volta
-- gerar grafico da distribuiçao do valor
-
-library(data.table)
-
-dt <- data.table::CJ(letters[1:4], letters[1:4])
-setnames(dt, c('origin', 'destination'))
-
+# # proximos passos
+# - logo no começo, identificar pares de ida e volta
+# - gerar valor total de ida + volta
+# - gerar grafico da distribuiçao do valor
+#