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函数写也可以哦，谢谢