入門01 - waseda2bun_r @ ウィキ

入門

• PVを求める

---

pv　<- function (cf,r){
n <- length(cf)
x <- (1/(1+r))^(0:(n-1))
y <- sum(cf*x)
return(y)
}

#CFをまずは設定

(cf <- c(-2000,300,400,500,600,700))

#PVを導出 #PV

pv(cf,0.02)

---

• 結果
  • 下線部はRによる結果を示す。

---

#CFをまずは設定

(cf <- c(-2000,300,400,500,600,700))
[1] -2000 300 400 500 600 700

#PVを導出 #PV

pv(cf,0.02)
[1] 338.0651

---

• IRを求める
  • R関数保管場所の（２）と同じ

---

# cfs: キャッシュ・フロー流列
ir <- function (cf,x) {
ir.f <- function (cf, x) {
n <- length(cf)
y <- sum(cf*x^(0:(n-1)))
return(y)
}
x0 <- uniroot(ir.f, c(0,1), cf=cf)$root
res <- 1/x0 - 1
return(res)
}

上のCFの場合
(cf <- c(-2000,300,400,500,600,700))
ir(cf)

#結果

[1] 0.06913308

---