R 语言贷款月供数据分析

#================================================================
#----------------------------------------------------------------
# 步骤 ：为各个变量赋值
# P: 本金
# m: 还款的总月份
# i: 年利率
# s: 月利率

P=
i=0.05
m=
s=i/

# step : 计算月份向量

t=:m

# step : 计算月还款额

monthly.payment = (+s)^m*s*P/((+s)^m-)

# step : 计算每个月应该偿还的本金额度向量

principal.paid.money.t = (+s)^(t-)*s*P/((+s)^m-)

# step :  计算每月未偿还的本金额度向量

principal.remaining= P*(-((+s)^t-)/((+s)^m-))

# step : 用每月还款额扣除每月应偿还的本金额度向量，计算每个月还的利息

interest.paid.month.t = monthly.payment - principal.paid.money.t

# step ： 将每个月所付出的利息累加，计算总利息

total.interest.paid=sum(interest.paid.month.t)

# step : 在控制台显示计算结果

monthly.payment
total.interest.paid
t
principal.paid.money.t
interest.paid.month.t
principal.remaining

# step : 以月份向量为横轴，以未偿还的本金额度向量为纵轴来绘图

plot(t,principal.remaining,type="l")

选自 《R 语言初学指南》