as_daily_income <- function(x){x/365
  }
as_daily_income (20000)
## [1] 54.79452