storyline

cardiologists <- 33
hours_saved_per_patient <- 15/60
cardiologist_dollars_per_hr <- 150
patients_per_day <- 10
year_workdays <- 261
day_savings <- function(cardiologists,hours_saved_per_patien, cardiologist_dollars_per_hr, patients_per_day) {
  cardiologists*hours_saved_per_patient*cardiologist_dollars_per_hr*patients_per_day
}

day_savings(cardiologists,hours_saved_per_patient, cardiologist_dollars_per_hr, patients_per_day)*year_workdays

## [1] 3229875