Interest Calculation

Math Chapter Nine

simple_interest_calc <- function(principal, zeit, rate){

  interesse= principal*rate*zeit 
  return(interesse)
}
  

simple_interest_calc(1000, 40, 0.02)

## [1] 800

compound_amount_calc <- function(principal, zeit, rate) {
  
  compound_amount = principal*(1 + rate)^zeit
  return(compound_amount)
}
  
  compound_amount_calc(500,3/12, 0.06)

## [1] 507.3369