求助把R写的等额本息还款代码翻译成SAS代码

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

A<-1000000
i<-0.0705/12
m<-240
a<-A
d<-1+i
j<-c(1:m)
R1<-A*i*(1+i)^(m)/((1+i)^(m)-1)
i[j+1]<-A*(1+i)^(j)*i-R1*((1+i)^(j)-1)
i[1]<-A*(d-1)
P[1]<-R1-i[1]
P[j]<-R1-i[j]
A[j]<-a*d^(j)-R1*(d^(j)-1)/(d-1)
R1#等额偿还金额
I<-sum(i[j])
I#总利息和
P1<-round(P[j],2)#第j期还款本金
A1<-round(A[j],2)#第j期贷款余额
I1<-round(i[j],2)#第j期还款利息
R1<-round(R1,2)#还款金额
loan<-data.frame(还款本金P1=P1,还款利息I1=I1,贷款余额A1=A1,还款金额R1=R1)
write.table(loan,file="E:\\loan.txt")
loan<-read.table("E:\\loan.txt",header=T)
write.csv(loan,"E:\\loan.csv")
read.csv("E:\\loan.csv")

以上是用R写的等额本息还款算法，已知合同金额、年化利率和还款期限，需要计算每期的还款本息、本金、利息、还款余额，有哪位大神能翻译成可运行的SAS代码吗？

或者直接用其他SAS函数写也可以哦，谢谢

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：sas代码

proc loan start=2016:12;
   fixed amount=1000000 rate=7.05 life=240
         schedule=20;
run;

这是sas的贷款程序步
你可以试试看