hearingThresholds <- function() {
  return(hearingThresholdsPark2016())
}

hearingThresholdsPark2016 <- function(sex="M", age="35") {

}