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 语言初学指南》