R/calculate_distance.R

In Vickusr/AppsilonMarineData: What the Package Does (One Line, Title Case)

calculate_distance <- function(df_to_process){
  # Calculation on distance
  
  current_coords <- c(df_to_process$LON,df_to_process$LAT)
  previous_coords <- c(df_to_process$PREV_LON,df_to_process$PREV_LAT)
  
  distance <-  distHaversine(matrix(current_coords, ncol = 2),matrix(previous_coords, ncol = 2))
  
  df_to_process$distance <- round(distance,3)
  df_to_process
  
}