PERCOBAAN 1

as_daily_income <- function(yearly_income) {
  yearly_income / 365
}

as_daily_income <- function(x) {
  x / 365
  }

as_daily_income(61362)

## [1] 168.1151

as_daily_income <- function(yearly_income, duration) {
  yearly_income / duration
}

as_daily_income(61362, 365)

## [1] 168.1151