princ_accum {cumprinc}

Accumulated principal paid back at time n

Description

Accumulated principal paid back at time n

Usage

princ_accum(s, r, t, n)

Arguments

s

original loan amount

r

interest rate. Divide by 100 if in a percent and again by 12 if yearly

t

loan term in months

n

month to return value for

Value

numeric value of accumulated paid principal

Examples

s <- 10000
r <- 5 / 100 / 12
t <- 60
n <- 5
princ_accum( s, r, t, n)