R/flow_06_invert.R

Defines functions invert

invert <- function(db) {
  max_elev <- max(db$elev, na.rm = TRUE)
  db <- dplyr::mutate(db, elev = max_elev - elev)
  return(db)
}
FRDC-SHL/LITAP documentation built on April 14, 2025, 9:35 a.m.