R/max_alt.R

In everydayduffy/DroneLabToolkit: Various functions for playing with dataflash logs.

#' Calculate maximum altitude
#'
#' @keywords internal
#' @author James P. Duffy
#' @export

max_alt <-
  function(x){
    # round altitude data
    dat <- round(as.numeric(x),0)
    # remove 0 values
    dat <- dat[dat > 0]
    # check to see if any values left
    if(length(dat)==0) {
      # if all were 0's output 0
      max_alt <- 0
    } else {
      # calculate the mode altitude
      max_alt <- max(dat)
    }
    return(max_alt)
  }