Function to calculate the theoretical maximum Heart Rate (HRmax)

Maximum Heart Rate Calculation

#' Function to caclulate the theoretical maximum Heart Rate (HRmax)
#'
#' @param sex (character) "M" or "F"
#' @param age (numeric) Age in years
#' @param weight (numeric) Weight in kilograms
#' 
#' @return theoretical maximum Heart Rate
#' @examples
#' get_HRmax(sex = "M", age = 35, weight = 61)
#'
get_HRmax <- function(sex, age, weight) {
  HRmax <- 210
  if (sex == "M") {
    HRmax <- HRmax + 4
  }
  HRmax <- HRmax - weight/11 - age/2
  return(HRmax)
}