princ_remn {cumprinc}

Remaining principal at time n

Description

Remaining principal at time n

Usage

princ_remn(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 remaining principal

Examples

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