R语言菜鸟联系笔记 9(2)

? 求该债券的到期收益率 fun5<-function(extra,m,t,pv){ r<-m/extra sum<-0

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

a<-200/((1+r/2)^i) sum<-sum+a }

sum<-sum+extra rf<-sum/pv-1 return (rf) }

> fun5<-function(extra,m,t,pv){ + r<-m/extra + sum<-0

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

+ a<-200/((1+r/2)^i) + sum<-sum+a + }

+ sum<-sum+extra + rf<-sum/pv-1 + return (rf) + }

>fun5(2500,200,40,2364) [1] 1.799026

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库R语言菜鸟联系笔记 9(2)在线全文阅读。