Minor updates

Author: robinvanemden

R/functions_generic.R

@@ -254,10 +254,7 @@ plot.History <- function(x, ...) {
       xlab = xlab,
       ylab = ylab,
       limit_agents = limit_agents,
-      limit_context = limit_context,
-      trunc_over_agents = trunc_over_agents,
-      trunc_per_agent = trunc_per_agent
-
+      limit_context = limit_context
     )
   }
 }

R/plot.R

@@ -260,9 +260,7 @@ Plot <- R6::R6Class(
                     legend_title       = NULL,
                     limit_context      = NULL,
                     smooth             = FALSE,
-                    limit_agents       = NULL,
-                    trunc_over_agents  = TRUE,
-                    trunc_per_agent    = TRUE) {
+                    limit_agents       = NULL) {
 
       self$history <- history
 
@@ -556,7 +554,6 @@ Plot <- R6::R6Class(
 
       data.table::setorder(data, agent, t)
 
-
       if (isTRUE(smooth)) {
         for (agent_name in agent_levels) {
           data[data$agent == agent_name, c("t", line_data_name) :=

demo/demo_epsilon_greedy_to_epoch_greedy_policy.R

@@ -75,3 +75,5 @@ plot(history, type = "arms")
 plot(history, type = "arms", limit_context= c("X.1"))
 plot(history, type = "arms", limit_context= c("X.2"))
 
+
+

demo/replication_kruijswijk_2019/lif_offline.R

@@ -36,9 +36,9 @@ bandit             <- OnlineOfflineContinuumBandit$new(delta = 0.1, horizon = ho
 
 
 agents              <- list(Agent$new(UniformRandomContinuousPolicy$new(), bandit),
-                            Agent$new(ThompsonBayesianLinearPolicy$new(), bandit))
-                            #Agent$new(LifPolicy$new(int_time, amplitude, learn_rate, omega, x0_start), bandit),
-                            #Agent$new(EFirstRegressionPolicy$new(epsilon = 100), bandit))
+                            Agent$new(ThompsonBayesianLinearPolicy$new(), bandit),
+                            Agent$new(LifPolicy$new(int_time, amplitude, learn_rate, omega, x0_start), bandit),
+                            Agent$new(EFirstRegressionPolicy$new(epsilon = 100), bandit))
 
 
 history            <- Simulator$new(agents      = agents,