Out<-function(ch=0.0037){ # ЗигЗаг имеет значения (определен) на каждом баре а не только в вершинах zz<-ZigZag(price[ ,'Med'], change = ch, percent = F, retrace = F, lastExtreme = T); n<-1:length(zz); # На последних барах неопределенные значения заменим на последние известные for(i in n) { if(is.na(zz[i])) zz[i] = zz[i-1];} #Определим скорость изменения ЗигЗага и сдвинем на один бар в будущее dz<-c(diff(zz), NA); #Если скорость >0 - сигнал = 0(Buy), если <0, сигнал = 1 (Sell) иначе NA sig<-ifelse(dz>0, 0, ifelse(dz<0, 1, NA)); return(sig); }
ウラジミールさん、こんにちは。
私はspatialSignの変換についていくつか疑問があります。
spatialSignを使ったpreProcessの効果を知りたくて、以下のコードを試してみました：
predict(preprocess(try,method="spatialSign"),try)
以下の結果が得られました：
[1,] -0.7071068 -0.7071068
[2,] -0.7071068 -0.7071068
[3,] 0.7071068 0.7071068
[4,] 0.7071068 0.7071068
直感的に、spatialSignでは1と2は同じにならないと思っていたので、この結果にはとても驚きました。 まずセンタリングとスケーリングを行い、それからspatialSignを適用するのですが、この結果は正しいのでしょうか？
ウラジミール、興味深い資料をありがとう。1年前、RとExpert Advisor間のデータとシグナルの中間ストレージとしてFireBirdデータベースを使用したシステムのモデルを書きました。他のRアルゴリズムで実験する機会を与えてくれました。本当にありがとうございました。
こんにちは、私は中国から来ました、私はいつも非常にmql5.comの記事であなたを心配している。4つの記事は私のために非常に研究、学習のコストです。私はあなたの専門的な知識を賞賛する。読者としてあなたの経験を共有することができますありがとうございます。あなたの記事で私が混乱している場所が常にある、あなたの暇な時に私に答えをください。ありがとうございます！
なぜpr.sae>mean(pr.sae) はいsig=-1ではなくsig=1なのですか？
こんにちは、私は中国から来ました、私はいつも非常にmql5.comの記事であなたを心配している。4つの記事は私のために非常に研究、学習のコストです。私はあなたの専門的な知識を賞賛する。読者としてあなたの経験を共有することができますありがとうございます。あなたの記事で私が混乱している場所が常にある、あなたの暇な時に私に答えをください。ありがとうございました！
なぜpr.sae>mean(pr.sae) はい sig=-1ではなく sig=1なのですか？
ターゲット変数を定義したとき、0が買い、1が売りと仮定しましたか？
# ЗигЗаг имеет значения (определен) на каждом баре а не только в вершинах
zz<-ZigZag(price[ ,'Med'], change = ch, percent = F, retrace = F, lastExtreme = T);
n<-1:length(zz);
# На последних барах неопределенные значения заменим на последние известные
for(i in n) { if(is.na(zz[i])) zz[i] = zz[i-1];}
#Определим скорость изменения ЗигЗага и сдвинем на один бар в будущее
dz<-c(diff(zz), NA);
#Если скорость >0 - сигнал = 0(Buy), если <0, сигнал = 1 (Sell) иначе NA
sig<-ifelse(dz>0, 0, ifelse(dz<0, 1, NA));
return(sig);
}
素晴らしい記事だね。
しかし、なぜ私のKzzは-Infに等しいのでしょうか？
sig.zz<-ifelse(tail(dt[ , ncol(dt)], 500) == 0, 1, -1)
bal.zz<-cumsum(tail(price[ , 'CO'], 500) * sig.zz)
Kzz<-mean(bal.zz / bal)
Kzz-Inf
Rsiを使うのは間違ったアプローチかもしれない。
歩けるようになったり、チェスや他のゲームができるようになったりするように、直接トレードさせた方がいいのかもしれない。
pr.sae<-nn.predict(SAE, x.ts)
sig<-ifelse(pr.sae>mean(pr.sae),-1, 1)
sig.zz<-ifelse(y.ts == 0, 1,-1 )
bal<-cumsum(tail(price[ ,'CO'], bar) * sig)
bal.zz<-cumsum(tail(price[ ,'CO'], bar) * sig.zz)
上のコード、balを計算するとき、DEEP NEURAL NETDEEPNEURAL NETWORK WITH STACKED RBMでやったように符号をバックワードに移動していません。
何か見落としがありますか？
NEW ARTICLE ニューラル・ネットワークの第3世代：ディープ・ネットワークが 発表された：
著者：ウラジーミル・ペレヴェンコ
ターゲットが弱すぎる！
ターゲットが弱すぎる！
バカなことを書かないでください。この記事をよく読んでください。よく考えてください。この後、その主張を証明するような例が繰り返される。
多くの人々に空虚なスローガンを投げかける。