更に調子に乗って、逆張り暫定4号も投入
※注意は手仕舞いが4日後であること
#暫定4号
#15日移動平均乖離率が小さい順の下から0.1%
s$h15<-hei15(s)
ans<-tapply(s$h15,s$j,quantile,0.001)
ans0<-hei(ans,10)
q <- subset(s ,
#M515
s5m(sp0m)+5*s15m(sp0m)<(10) &
#
h15<ans0[j+1]&
h15< (-15)&
dai>100000000&
TRUE )
#ソートしていないので猿ダーツ
index<-tapply(-q$dai,q$j,order)
ans<-NULL
for (i in 1:length(index)) {
ans<-c(ans,indexi)
}
q$ord<-ans
p<-subset(q,ord<=10)
ほぼ「逆張り暫定1号の25日移動平均を15日移動平均に置き換えた」だけのルール
なんか適当すぎるけど大丈夫か？
