53歳限界プログラマの憂鬱

逆張りにおいて25日移動平均乖離率はよく使う しかし、何%となったらシグナルとなるのは結構難しい そこで、移動平均乖離率の分布を見たいのだが、実際見たいのはその変動なので変動をグラフに表したい で、こんな関数を作成（function_00.Rに入れた） gr25 <-function(q,qt=0.1) { q$h25<-hei25(q) ans<-tapply(q$h25,q$j…