# NOT RUN {
library(dplyr)
library(ReinforcementLearning)
data(trading_systemDF)
states <- c("BUN", "BUV", "BEN", "BEV", "RAN", "RAV")
actions <- c("ON", "OFF")
control <- list(alpha = 0.7, gamma = 0.3, epsilon = 0.1)
generate_RL_policy_mt(trading_systemDF, states, actions, control)
# }
Run the code above in your browser using DataLab