R语言菜鸟练习笔记7

R语言笔记

题目：

赶上国家好政策，量化宽松，贷款年利率4%， 老王贷款100万元买房，贷款30年 问题来了：

等额本金、等额本息、到期还本付息的总还款额是多少？ 老王贷款买房，按等额本金还款，每月的还款额分别是多少？ 按贴现率3%，三种还款方法的现值和终值分别是多少？ 程序：

m1<-function(extra,r,t){

fv<-extra*(1+r/12)^(t*12) return (fv) }

m2<-function(fv,r,t){

pv<-fv/((1+r/12)^(t*12)) return (pv) }

m3<-function(b,r,n){ MB<-(b/n) ye<-c() ye[1]<-b mp<-c()

mp[1]<-MB+ye[1]*(r/12) for(i in 2:n*12){

ye[i]<-ye[i-1]-MB

mp[i]<-MB+ye[i]*(r/12) }

return (mp) }

m31<-function(b,r,n){ MB<-(b/n) ye<-c() ye[1]<-b mp<-c()

mp[1]<-MB+ye[1]*(r/12) for(i in 2:n*12){

ye[i]<-ye[i-1]-MB

mp[i]<-MB+ye[i]*(r/12) } y<-0

for(i in 1:(n*12)){

y<-mp[i]/((1+(r/12))^i) pv<-pv+y }

return (pv) }

m32<-function(b,r,n){ MB<-(b/n) ye<-c() ye[1]<-b mp<-c()

mp[1]<-MB+ye[1]*(r/12) for(i in 2:n*12){

ye[i]<-ye[i-1]-MB

mp[i]<-MB+ye[i]*(r/12) } y<-0

for(i in 1:(n*12)){

y<-mp[i]*(1+(r/12))^i fv<-fv+y }

return (fv) }

m4<-function(a,r,n){

x<-a*((r/12)*((1+(r/12))^(n*12)))/((1+(r/12))^(n*12)-1) return (x) }

m41<-function(a,r,n){

x<-a*((r/12)*((1+(r/12))^(n*12)))/((1+(r/12))^(n*12)-1) pv<-0

for(i in 1:(n*12)){

y<-x/((1+(r/12))^i) pv<-pv+y }

return (pv) }

m42<-function(a,r,n){

x<-a*((r/12)*((1+(r/12))^(n*12)))/((1+(r/12))^(n*12)-1) fv<-0

for(i in 1:(n*12)){ y<-x*(1+(r/12))^i fv<-fv+y }

return (fv) }

截图：