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) })
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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.