R関数保管場所 - waseda2bun_r @ ウィキ

wikiモードのページだとスペースや改行が文字化けしたり意図せぬ変換したりするのでこちらにまとめ。

（１）MAを求める関数。

 

#MA(データ名,月数)で求めるようにする #例：MA(HT,13)の場合 #HTの13カ月移動平均 MA <- function (x, month) {    results = c()    for(i in 1:month-1) {        results[i] = NULL    }    # MAを導出    for(i in month:length(x)){        start = i - month + 1        results[i] = mean(x[start:i])    }    results }

 

（２）内部収益率を求める関数

 

# 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) }