library(rlR)
set.seed(123)
knitr::opts_chunk$set(cache = TRUE, collapse = FALSE, dev = "svg", fig.height = 3.5)
knitr::knit_hooks$set(document = function(x){
  gsub("```\n*```r*\n*", "", x)
})

Configure

options(width=1000)
listAvailConf()[, .(name, note)]
conf = getDefaultConf("AgentDQN")
conf
conf$set(render = FALSE, console = FALSE)
env = makeGymEnv("CartPole-v0")
agent = initAgent("AgentDQN", env, conf)
agent$learn(2)  
agent$plotPerf(F)


compstat-lmu/rlR documentation built on June 26, 2019, 5:56 p.m.