よくあるグラフっぽく書くとすると、以下のような感じ。
<![CDATA[zsh# R<br />
:<br />
[Previously saved workspace restored]</p>
<p>> ma <- function(a,t){ # array, t から移動平均の値を求める
+ r <- array()
+ for(i in 1:length(a)){
+ r[i]=mean(a[max(1,i-t):i])
+ }
+ (r)
+ }
> plot(your_array) # 通常のグラフ<br />
> lines(ma(your_array, 25), col=”red”) # 25日移動平均線を重ね書き<br />
> lines(ma(your_array, 75), col=”green”) # 75日移動平均線を重ね書き<br />
]]>
次はローソク足のグラフ書きにチャレンジしてみようかな(って別に株価の分析をしたくてRを使おうと思ったわけじゃないのに…)。
図書館で借りてきたSの本にはtsplot()っていう関数があるように書いてあるんだけど、Rにはないようだ。よくわかんないけど関数が定義されていない。plot()を使うと重ね書きにならないので、最初にplot()でグラフを作ってその上にlines()とかpoints()を使って重ね書きをするとよいだろう。