R/get_most_frequent.R

In GiulioGenova/MeteoBrowser: A Shiny App to download the meteorological time series from the Open Data - Province of Bozen

Defines functions Dir

Documented in Dir

#' gets most frequrnt value form a vector
#'
#' @param Value a vector
#' @export
#'

Dir <- function(Value){

  Value=as.numeric(names(which.max(table(Value,useNA = "no"))))

  return(Value)

}