# NOT RUN {
# }
# NOT RUN {
# test of function aml_make_model is duplicated here
library(readr)
library(h2o)
library(lazytrade)
path_model <- normalizePath(tempdir(),winslash = "/")
path_data <- normalizePath(tempdir(),winslash = "/")
data(EURUSDM15X75)
write_rds(EURUSDM15X75, file.path(path_data, 'EURUSDM15X75.rds'))
# start h2o engine (using all CPU's by default)
h2o.init()
# performing Deep Learning Regression using the custom function
aml_make_model(symbol = 'EURUSD',
num_bars = 75,
timeframe = 15,
path_model = path_model,
path_data = path_data)
path_sbxm <- normalizePath(tempdir(),winslash = "/")
path_sbxs <- normalizePath(tempdir(),winslash = "/")
# score the latest data to generate predictions for one currency pair
aml_score_data(symbol = 'EURUSD',
num_bars = 75,
timeframe = 15,
path_model = path_model,
path_data = path_data,
path_sbxm = path_sbxm,
path_sbxs = path_sbxs)
# stop h2o engine
h2o.shutdown(prompt = F)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab