Diskussion zum Artikel "Tiefe neuronale Netzwerke (Teil I). Datenaufbereitung" - Seite 2

Neuer Kommentar
 

Endlich ins Chinesische übersetzt, und es lohnt sich, gute Artikel sorgfältig zu studieren!

 

Hallo!

Sie haben nicht beschrieben, wie Sie Anführungszeichen in die Umgebung env geladen haben ("Da wir Vektoren von Anführungszeichen in die Umgebung env geladen haben ...) und wie Sie es erstellt haben.

Ich versuche, alles von Anfang an manuell mit meinen Zitaten zu wiederholen, ich habe sie in Vektoren entladen, aber ich bin auf diese Umgebung gestoßen, die Sie erstellt haben. Ich verstehe nicht, wie ich sie erstellen und nach Ihrem Beispiel wiederholen kann.

Hilfe!

 

Die Meldung ist verschwunden.

Wie übertragen Sie Anführungszeichen an Rterm? Lesen Sie aus einer Datei oder aus dem Terminal?

 
Vladimir Perervenko:

Die Meldung ist verschwunden.

Wie übertragen Sie Anführungszeichen an Rterm? Liest man aus einer Datei oder aus dem Terminal?


Ich habe es mehr oder weniger selbst herausgefunden. Ich habe Ihren Teil 1 zu EURUSD-Kursen ausprobiert, alles hat funktioniert.

Ich mache folgendes:

1. IN MT4 -

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

{

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

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

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

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

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

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


}

//--------Daten an Rterm senden--------------------------------------

Rv(R, "Daten",tm);

Rv(R, "Open",o);

Rv(R, "Hoch",hi);

Rv(R, "Tief",lo);

Rv(R, "Schluss",clo);

Rv(R, "Volumen",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) )

preis1 <- data.frame(preis_ursprung)

Preis2 <- as.list(Preis1)


env <- new.env()

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

assign("Daten", Preis1$Daten, env)

assign("Hoch", Preis1$Hoch, env)

zuweisen("Tief", Preis1$Tief, env)

assign("Offen", Preis1$Offen, env)

zuweisen("Volumen", Preis1$Volumen, env)

Dig <- 5;

sym <- "EURUSD";

tf <- "M15";


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


Konnte keine Charts in MT4 ausführen, da evalq nicht funktioniert, %>%, aes, geom_candlestick :

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

ggplot(aes(x = Daten, y = Schluss)) +

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

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

theme_tq(), env)"));

Ich habe den alten Weg ohne die Umgebungsvariable env versucht, die Daten entladen, der Befehl ggplot(,) startet und das Fenster für den Chart öffnet sich. Mit Parametern geht es nicht.

 
Konstantin Kopylov:

Ich habe mehr oder weniger herausgefunden, es selbst. Ich habe versucht, Ihre Teil 1 auf EURUSD Notierungen, alles funktioniert.

Ich mache folgendes:

1. IN MT4 -

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

{

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

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

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

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

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

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


}

//--------Daten an Rterm senden--------------------------------------

Rv(R, "Daten",tm);

Rv(R, "Open",o);

Rv(R, "Hoch",hi);

Rv(R, "Tief",lo);

Rv(R, "Schluss",clo);

Rv(R, "Volumen",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) )

preis1 <- data.frame(preis_ursprung)

Preis2 <- as.list(Preis1)


env <- new.env()

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

assign("Daten", Preis1$Daten, env)

assign("Hoch", Preis1$Hoch, env)

zuweisen("Tief", Preis1$Tief, env)

assign("Offen", Preis1$Offen, env)

zuweisen("Volumen", Preis1$Volumen, env)

Dig <- 5;

sym <- "EURUSD";

tf <- "M15";


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


Konnte keine Charts in MT4 ausführen, da evalq nicht funktioniert, %>%, aes, geom_candlestick :

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

ggplot(aes(x = Daten, y = Schluss)) +

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

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

theme_tq(), env)"));

Ich habe den alten Weg ohne die Umgebungsvariable env versucht, die Daten entladen, der Befehl ggplot(,) startet und das Fenster für den Chart öffnet sich. Mit Parametern geht es nicht.

Schönen Tag noch.

Eine solche Übertragung aus dem Terminal ist unnötig. Du lädst in die globale Umgebung und überträgst dann in die env-Umgebung. Danach müssen Sie die globale Umgebung bereinigen. Der Sinn des Ladens und Verarbeitens von Daten in einer separaten Umgebung besteht darin, Namenskonflikte bei der Verwendung mehrerer TFs eines Symbols oder mehrerer Symbole zu vermeiden. Sie werden alle von denselben Skripten verarbeitet, und die Quelldaten und Ergebnisse haben dieselben Namen, aber jedes in seiner eigenen Umgebung. Wir müssen dies tun:

In Init().

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

//Hier kann ein beliebiges Symbol stehen, zum Beispiel EURUSD <- new.env(). Dann wird auf die Daten entsprechend EURUSD$price zugegriffen.

In start().

 //--------Senden von Daten an 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);

Die Daten werden sofort in eine eigene Umgebung env. Und weiter mit ihnen arbeiten durch evalq().

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

Versuchen Sie es auf diese Weise mit Charts:

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()");

Ich gebe Charts nicht auf diese Weise aus. Bitte schreiben Sie mir, wie Sie es überprüfen.

Viel Erfolg!

 
Vladimir Perervenko:

Guten Tag!

Diese Übertragung vom Terminal aus ist unnötig. Sie laden in die globale Umgebung und übertragen dann in die Umgebung env. Danach müssen Sie die globale Umgebung bereinigen. Der Sinn des Ladens und Verarbeitens von Daten in einer separaten Umgebung besteht darin, Namenskonflikte bei der Verwendung mehrerer TFs eines Symbols oder mehrerer Symbole zu vermeiden. Sie werden alle von denselben Skripten verarbeitet, und die Quelldaten und Ergebnisse haben dieselben Namen, aber jedes in seiner eigenen Umgebung. Wir müssen dies tun:

In Init().

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

//Hier kann ein beliebiges Symbol stehen, zum Beispiel EURUSD <- new.env(). Dann wird auf die Daten entsprechend EURUSD$price zugegriffen.

In start().

Die Daten werden sofort in eine eigene Umgebung env. Und weiter mit ihnen arbeiten durch evalq().

Versuchen Sie es auf diese Weise mit Charts:

Ich gebe Charts nicht auf diese Weise aus. Bitte schreiben Sie mir, wie Sie es überprüfen.

Viel Erfolg!


Mit dem Upload hat alles funktioniert. Vielen Dank dafür!

Aber mit dem Diagramm klappt es nicht. Es gibt eine Fehlermeldung. Obwohl die Bibliotheken geladen sind.

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)");


Das gleiche in RStudio geprüft, es findet nicht %>%.( Fehler in env$pr %>% tail(., 500) %>% ggplot(aes(x = env$Data, y = env$Close)) : 

 Funktion "%>%" konnte nicht gefunden werden)
 
Konstantin Kopylov:

Mit dem Upload hat alles geklappt. Danke dafür!

Aber mit dem Diagramm klappt es nicht. Es gibt eine Fehlermeldung. Obwohl die Bibliotheken geladen sind.

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)");


Das gleiche in RStudio geprüft, es findet nicht %>%.( Fehler in env$pr %>% tail(., 500) %>% ggplot(aes(x = env$Data, y = env$Close)) :

In diesem Skript ist %>% fehl am Platz. Versuchen Sie .

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()");

Es ist besser, all dies in R statt im Terminal zu schreiben. Ich bin mir nicht sicher, ob diese Kombination funktionieren wird. Ich habe so etwas schon lange nicht mehr geschrieben, daher keine Meinung.

Viel Glück!

 
Vladimir Perervenko:

In diesem Skript ist %>% fehl am Platz. Versuchen Sie es


Es funktioniert nicht, sowohl über MT4 als auch in 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 weiß nicht, wie man mit Daten der Klasse uneval umgeht
So eingefügt in 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 Candlestick Chart', y = 'Close Price', x = '') + theme_tq())");
 
Konstantin Kopylov:

Es funktioniert nicht, Fehler sowohl durch MT4 und in RStudio:

Etwas wurde in ggplot2 verbessert. Ich werde es jetzt überprüfen.
 

In ggplot2(v2.2.1) die Definition von geom_candlestick (MRO 3.4.1) verschwunden.

Ich habe bereits MRO 3.4.0 abgerissen, in dem ich alle Berechnungen gemacht habe, also werde ich morgen eine Lösung finden und schreiben.

Welche Version von R haben Sie?

1234
Neuer Kommentar