やけくそで逆張り暫定5号も投入
#暫定5号
#200日移動平均乖離率が小さい順の下から0.1%
s$h200<-hei200(s)
ans<-tapply(s$h200,s$j,quantile,0.001)
ans0<-hei(ans,10)
q <- subset(s ,
#M5200
s5m(sp0m)+5*s200m(sp0m)<(-10) &
#
h200<ans0[j+1]&
h200< (-25)&
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)
シグナルは少ないけどDDは小さく、期待値は高い