From 662441a6011b484b5f6d9a3d4e3e41f3aca40398 Mon Sep 17 00:00:00 2001
From: lindseylabrie <lindseylabrie7@gmail.com>
Date: Tue, 25 Apr 2023 14:33:26 -0500
Subject: [PATCH] edit code

---
 silver_carp_telemetry.R | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/silver_carp_telemetry.R b/silver_carp_telemetry.R
index d82643b..0c5fde3 100644
--- a/silver_carp_telemetry.R
+++ b/silver_carp_telemetry.R
@@ -105,6 +105,9 @@ abs_mvmt <-rkm_tracker_date %>% mutate(abs_dist=abs(distance)) %>% arrange(trans
   group_by(transmitter_id) %>% 
   summarise(total_movement=sum(total_movement, na.rm = T))
 
+sum(abs_mvmt$total_movement)
+
+
 
 TotalMovementPlot <- ggplot(abs_mvmt, aes(x = reorder(as.factor(transmitter_id),-total_movement), y = total_movement )) + 
   geom_point() +