# \donttest{
# test lasts 15 sec:
dir <- normalizePath(tempdir(),winslash = "/")
library(dplyr)
library(readr)
library(ReinforcementLearning)
library(magrittr)
library(lazytrade)
data(trading_systemDF)
# use optimal control parameters found by auxiliary function
rl_write_control_parameters_mt(x = trading_systemDF,
path_control_files = dir,
num_trades_to_consider = 100)
# }
Run the code above in your browser using DataLab