diff --git a/src/main.Rmd b/src/main.Rmd
index 3a4aea3..0a58f22 100644
--- a/src/main.Rmd
+++ b/src/main.Rmd
@@ -166,6 +166,21 @@ calculate_trajectory_params <- function(icao, departure_time, creds) {
     return(NULL)
   })
 }
+
+getAircraftTrajectories <- function(icao, time, creds, days = 5){
+  tracks <- list()
+  for (i in 0: (days-1)) {
+    flights <- getFlights(icao,time - days(i),creds)
+    for (f in flights){
+      track <- calculate_trajectory_params(icao, f[["departure_time"]], creds)
+      if (!is.null(track)){
+        tracks[[length(tracks)+1]] <- track
+      }
+      Sys.sleep(0.5) # API courtesy
+    }
+  }
+  return(tracks)
+}
 ```
 
 ```{r stat-functions, include=FALSE}