From f04801047bcf3d3610d5c2f1450cff66f151fe66 Mon Sep 17 00:00:00 2001
From: thocro <thomas.cropper@noc.ac.uk>
Date: Fri, 12 Aug 2022 09:09:27 +0000
Subject: [PATCH] Update example_fit_to_the_cumulus.R

---
 example_fit_to_the_cumulus.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/example_fit_to_the_cumulus.R b/example_fit_to_the_cumulus.R
index 60c1062..7668ef5 100644
--- a/example_fit_to_the_cumulus.R
+++ b/example_fit_to_the_cumulus.R
@@ -23,7 +23,7 @@ cumulus$local_hour <- as.numeric(format.POSIXct(cumulus$local, "%H"))
 ###############################################################################
 
 cumulus_lag <- lag(cumulus)
-cumulus$distance <- geosphere::distHaversine(cumulus[,2:3],cumulus_lag[,2:3])
+cumulus$distance <- geosphere::distHaversine(cumulus[,2:3],cumulus_lag[,2:3]) / 1000
 cumulus$time_lag <- as.numeric(difftime(cumulus$date,cumulus_lag$date,units = "secs"))
 cumulus$ship.speed <- cumulus$distance / cumulus$time_lag
 cumulus$heading <- geosphere::bearing(cumulus[,2:3],cumulus_lag[,2:3])
-- 
GitLab