# NOT RUN {
library(lazytrade)
library(magrittr)
library(dplyr)
library(readr)
library(lubridate)
path_data <- normalizePath(tempdir(),winslash = "/")
file.copy(from = system.file("extdata", "Setup.csv", package = "lazytrade"),
to = file.path(path_data, "Setup.csv"), overwrite = TRUE)
system_list <- read_csv(file.path(path_data, "Setup.csv"))
data(profit_factorDF)
# without writing to the file
check_if_optimize(x = profit_factorDF,
system_list = system_list,
path_data,
num_trades_to_consider = 3,
profit_factor_limit = 0.8,
write_mode = TRUE)
# }
Run the code above in your browser using DataLab