R語言菜鳥練習筆記 13 - 下載本文

#終值計算

fun1<-function(extra,r1,r2,t){ m<-extra*r sum<-0

for(i in 0:(t-1)){

sum<-sum+m*(1+r2)^i }

fv<-extra+sum return (fv) }

#現值計算

fun2<-function(extra,m,r,t){ sum<-0 for(i in 1:t){

sum<-m/((1+r)^i)+sum }

pv<-extra/((1+r)^t)+sum return (pv) }

#轉讓值計算之一年付息一次 fun3<-function(extra,r1,r2,mt,t){ m<-extra*r1 sum<-0

for(i in mt:t){

sum<-sum+m*(1+r2)^(mt-i) }

pv<-sum+extra/((1+r2)^(t-mt)) return (pv) }

#轉讓值計算之半年付息一次 fun4<-function(extra,r1,r2,mt,t){ r1<-r1/2 r2<-r2/2 t<-t*2 mt<-mt*2

m<-extra*r1 sum<-0

for(i in mt:t){

sum<-sum+m*(1+r2)^(mt-i) }

pv<-sum+extra/((1+r2)^(t-mt)) return (pv) }

#哪種還法更合適

fun5<-function(r,m1,t11,t12,m2,t21,t22){ sum1<-0 for(i in t11:t12){

sum1<-sum1+m1/(1+r)^i }

sum2<-0 for(j in t21:t22){

sum2<-sum2+m2/(1+r)^j }

if(sum1

print(\第一種還款方式更合適\ }

if(sum1>sum2){

print(\第二種還款方式更合適\ }

if(sum1==sum2){

print(\兩種還款方式都可以\ } }

#等額本金

fun6<-function(B,R,n){ MB<-B/n ye<-c() ye[1]<-B mp<-c() for(i in 1:n){

ye[i+1]<-ye[i]-MB mp[i]<-MB+ye[i]*R/12 }

print(\每月還款額:\print(mp)

print(\每月還款本金:\print(MB)

print(\每月還款利息:\print(mp-MB) }

#等額本息

fun7<-function(A,r,n){

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





天津时时彩开奖号码表 2018年准生肖特二肖中特 五子棋游戏单人 甘肃11选5基本走势图 今天双色球专家预测选号 今日湖北快三走势图 双色球复式投注过滤工具 皇冠足球即时赔率 山东十一选五推荐 竞彩比分500 湖北11选5推荐号码 快乐时时彩计划 888棋牌游戏网站平台 陕西11选5开奖查询 东方6+1 攒劲甘肃麻将最新 色情主播是好赚钱吗