記事"ディープニューラルネットワーク(その1)データの準備"についてのディスカッション - ページ 2

 

ようやく中国語に翻訳され、良い記事を注意深く研究する価値がある!

 

こんにちは!

env環境にどのように引用符を読み込んだのか(「envに 引用符のベクターを読み込んだので...」)、どのように作成したのかが 書かれていませんでしたね。

私は自分の引用符をベクターにアンロードし、手動で最初からすべてを繰り返そうとしているのですが、あなたが作成したこの環境に遭遇しました。どのように作成し、あなたのサンプルに従ってそれを繰り返すのか理解できません。

助けてください。

 

メッセージが消えた

引用符はどうやってRtermに転送するのですか?ファイルから読むのですか、それともターミナルから読むのですか?

 
Vladimir Perervenko:

メッセージが消えた

引用符はどうやってRtermに転送するのですか?ファイルから読むのですか、それともターミナルから読むのですか?


私自身はだいたい理解できました。EURUSDのクォートで あなたのパート1を試しましたが、すべてうまくいきました。

私は次のようにしています:

1.MT4で

for(i = 0; i < lim; i++)

{

tm[i] = Time[i+1];

o[i] = Open[i+1];

hi[i] = High[i+1];

lo[i] = Low[i+1];

clo[i]= Close[i+1];

vol[i]= Volume[i+1];


}

//--------Rterm にデータを送信します。

Rv(R, "Data",tm);

Rv(R, "Open",o);

Rv(R, "High",hi);

Rv(R, "Low",lo);

Rv(R, "Close",clo);

Rv(R, "Volume",vol);

2.IN R -.

price_orig <- cbind(Close = rev(Close), Data = rev(Data), High = rev(High), Low = rev(Low), Open = rev(Open), Volume = rev(Volume) )

価格1 <- data.frame(price_orig)

price2 <- as.list(price1)


env <- new.env()

assign("Close", price1$Close, env)

assign("Data", price1$Data, env)

assign("高値", price1$High, env)

assign("Low", price1$Low, env)

assign("Open", price1$Open, env)

assign("出来高", price1$Volume, env)

ディグ <- 5;

sym <- "EURUSD";

tf <- "M15";


evalq({pr <- pr.OHLCV(Data, Open, High, Low, Close, Volume)}, env)


MT4でチャートを実行できませんでした、evalqを通過しません、%>%, aes, geom_candlestick :

Rx(R, "evalq(pr %>% tail(., 500) %>%")

ggplot(aes(x = Data, y = Close)) +.

geom_candlestick(aes(open = Open, high = High, low = Low, close = Close)) +.

labs(title = "EURJPY ローソク足チャート", y = "終値", x = "") + テーマ_tq(), env.

theme_tq(), env)")";

環境変数envなしで、データをアンロードし、ggplot(,)コマンドが起動し、チャートのウィンドウが開く古い方法を試した。パラメータを指定すると、そうはならない。

 
Konstantin Kopylov:

私は多かれ少なかれ自分でそれを理解しました。EURUSDのクォートであなたのパート1を試しましたが、すべてうまくいきました。

私は次のようにする:

1.MT4 で

for(i = 0; i < lim; i++)

{

tm[i] = Time[i+1];

o[i] = Open[i+1];

hi[i] = High[i+1];

lo[i] = Low[i+1];

clo[i]= Close[i+1];

vol[i]= Volume[i+1];


}

//--------Rterm にデータを送信します。

Rv(R, "Data",tm);

Rv(R, "Open",o);

Rv(R, "High",hi);

Rv(R, "Low",lo);

Rv(R, "Close",clo);

Rv(R, "Volume",vol);

2.IN R -.

price_orig <- cbind(Close = rev(Close), Data = rev(Data), High = rev(High), Low = rev(Low), Open = rev(Open), Volume = rev(Volume) )

価格1 <- data.frame(price_orig)

price2 <- as.list(price1)


env <- new.env()

assign("Close", price1$Close, env)

assign("Data", price1$Data, env)

assign("高値", price1$High, env)

assign("Low", price1$Low, env)

assign("Open", price1$Open, env)

assign("出来高", price1$Volume, env)

ディグ <- 5;

sym <- "EURUSD";

tf <- "M15";


evalq({pr <- pr.OHLCV(Data, Open, High, Low, Close, Volume)}, env)


MT4でチャートを実行できませんでした、evalqを通過しません、%>%, aes, geom_candlestick :

Rx(R, "evalq(pr %>% tail(., 500) %>%")

ggplot(aes(x = Data, y = Close)) +.

geom_candlestick(aes(open = Open, high = High, low = Low, close = Close)) +.

labs(title = "EURJPY ローソク足チャート", y = "終値", x = "") + テーマ_tq(), env.

theme_tq(), env)")";

環境変数envなしで、データをアンロードし、ggplot(,)コマンドが起動し、チャートのウィンドウが開く古い方法を試した。パラメータを指定すると、そうはいきません。

いい日だ。

このようなターミナルからの転送は不要です。グローバル環境にロードしてからenv環境に転送する。その後、グローバル環境をクリーンアップする必要があります。別環境にデータをロードして処理する意味は、1つのシンボルまたは複数のシンボルのTFを複数使用する場合に、名前の衝突を避けるためです。すべてのTFは同じスクリプトで処理され、ソースデータと結果は同じ名前を持つが、それぞれは独自の環境にある。そのためには

Init()で

Rx(R, "env <- new.env()");

//ここでは、例えばEURUSD<- new.env()のように、任意のシンボルを指定することができます。その後、データはEURUSD$priceに従ってアクセスされます。

start()で。

 //--------Rtermにデータを送信する。

      Rv(R,"env$Data",tm);

      Rv(R,"env$Open",o);

      Rv(R,"env$High",hi);

      Rv(R,"env$Low",lo);

      Rv(R,"env$Close",clo);

      Rv(R,"env$Volume",vol);

データはすぐに別の環境envに入ります。さらに、evalq()を使ってデータを処理します。

evalq({pr <- pr.OHLCV(Data, Open, High, Low, Close, Volume)}, env)

チャートでこの方法を試してみてください:

Rx(R,"env$pr %>% tail(., 500) %>%

        ggplot(aes(x = env$Data, y = env$Close)) +

        geom_candlestick(aes(open = env$Open, high = env$High, low = env$Low, close = env$Close)) +

        labs(title = "EURJPY Candlestick Chart", y = "Close Price", x = "") + 

        theme_tq()");

私はこの方法ではチャートを出力しません。どのように確認したか書いてください。

幸運を祈る。

 
Vladimir Perervenko:

こんにちは。

ターミナルからの転送は不要です。グローバル環境にロードしてから、env環境に転送します。その後、グローバル環境をクリーニングする必要があります。別環境でデータをロードして処理する意味は、1つのシンボルまたは複数のシンボルのTFを複数使用する場合に、名前の衝突を避けるためです。すべてのTFは同じスクリプトで処理され、ソースデータと結果は同じ名前を持つが、それぞれは独自の環境にある。そのためには

Init()で

Rx(R, "env <- new.env()");

//ここでは、例えばEURUSD <- new.env()のように、任意のシンボルを指定することができます。その後、データはEURUSD$priceに従ってアクセスされます。

start()で。

データはすぐに別の環境envに入ります。さらに、evalq()を使ってデータを処理します。

チャートでこの方法を試してみてください:

私はこの方法ではチャートを出力しません。どのように確認したか書いてください。

幸運を祈る。


アップロードですべてうまくいきました。ありがとう!

しかし、グラフではうまくいきません。エラーが出ます。ライブラリはロードされているのですが。

Rx(R, "library(magrittr)");

Rx(R, "library(dplyr)");

Rx(R, "library(xts)");

Rx(R, "library(anytime)");

Rx(R, "library(quantmod)");

Rx(R, "library(TTR)");

Rx(R, "library(ggplot2)");


RStudioで 同じことを確認したところ、%>%が 見つかりません。(env$prでエラー %>% tail(., 500) %>% ggplot(aes(x = env$Data, y = env$Close)):

 関数"%>%"が見つかりませんでした。)
 
Konstantin Kopylov:

アップロードはすべてうまくいった。ありがとう!

しかし、グラフではうまくいきません。エラーが出ます。ライブラリはロードされているのですが。

Rx(R, "library(magrittr)");

Rx(R, "library(dplyr)");

Rx(R, "library(xts)");

Rx(R, "library(anytime)");

Rx(R, "library(quantmod)");

Rx(R, "library(TTR)");

Rx(R, "library(ggplot2)");


RStudioで 同じことを確認したところ、%>%が 見つからなかった。env$pr %>% tail(., 500) %>% ggplot(aes(x = env$Data, y = env$Close)):

このスクリプトでは、%>%の位置がずれています。試してみよう。

Rx(R,"env$pr %>% tail(., 500) -> tpr;

        ggplot(aes(x = tpr$Data, y = tpr$Close)) +

        geom_candlestick(aes(open = tpr$Open, high = tpr$High, low = tpr$Low, close = tpr$Close)) +

        labs(title = "EURJPY Candlestick Chart", y = "Close Price", x = "") + 

        theme_tq()");

ターミナルではなく、Rで書いた方が良い。この組み合わせがうまくいくかどうかはわからない。長い間このような書き方をしていないので、意見はない。

幸運を祈る。

 
Vladimir Perervenko:

このスクリプトでは、%>%の位置がずれている。試す


MT4とRStudioの両方でエラーが表示されます:

>env$pr %>% tail(.500) -> tpr> 
> .ggplot(aes(x = tpr$Data, y = tpr$Close)) ++    
 + geom_candlestick(aes(open = tpr$Open, high = tpr$High, low = tpr$Low, close = tpr$Close))) ++     
 + labs(title = "EURJPY Candlestick Chart", y = "Close Price", x = "") ++     
 + theme_tq()Error:ggplot2 doesn't know how to deal with data of class uneval

だからMQLに挿入された Rx(R, "env$pr %>% tail(., 500) -> tpr"); Rx(R, "ggplot(aes(x = tpr$Data, y = tpr$Close)) + geom_candlestick(aes(open = tpr$Open, high = tpr$High, low = tpr$Low, close = tpr$Close)) + labs(title = 'EURUSD ローソク足チャート', y = '終値', x = '') + theme_tq()");

 
Konstantin Kopylov:

MT4とRStudioの両方でエラーが発生します:

ggplot2で何か改善されたようです。今確認します。
 

ggplot2(v2.2.1)でgeom_candlestick(MRO 3.4.1)の定義が消えてしまった。

すべての計算を行ったMRO 3.4.0はすでに壊してしまったので、明日、解決策を見つけて書こうと思う。

Rのバージョンは?