Add unlist() to which_max_tied()

Fixes #15
Adding "unlist" in which_max_tied

Author: robinvanemden

R/bandit_basic_bernoulli.R

@@ -1,4 +1,4 @@
- #' @export
+#' @export
 BasicBernoulliBandit <- R6::R6Class(
   inherit = Bandit,
   class = FALSE,

R/bandit_basic_gaussian.R

@@ -1,4 +1,4 @@
- #' @export
+#' @export
 BasicGaussianBandit <- R6::R6Class(
   inherit = Bandit,
   class = FALSE,

R/bandit_cmab_bernoulli.R

@@ -1,4 +1,4 @@
- #' @export
+#' @export
 ContextualBernoulliBandit <- R6::R6Class(
   inherit = Bandit,
   class = FALSE,

R/bandit_cmab_binary.R

@@ -1,4 +1,4 @@
- #' @export
+#' @export
 ContextualBinaryBandit <- R6::R6Class(
   inherit = Bandit,
   class = FALSE,

R/functions_utility.R

@@ -87,9 +87,10 @@ which_max_list <- function(x, equal_is_random = TRUE) {
 #'
 #' @export
 which_max_tied <- function(x, equal_is_random = TRUE) {
+  x <- unlist(x, FALSE, FALSE)
   x <- seq_along(x)[x == max(x)]
   if (length(x) > 1L && equal_is_random)  {
-      return(sample(x, 1L, replace = TRUE))
+    return(sample(x, 1L, replace = TRUE))
   } else {
     return(x[1])
   }

R/policy_mab_gittins_bl.R

@@ -50,8 +50,8 @@ GittinsBrezziLaiPolicy          <- R6::R6Class(
       p_hat <- self$theta$mean[[arm]]
       v_arm <- p_hat*(1 - p_hat)
       v_mean <- p_hat*(1 - p_hat)/(self$theta$n[[arm]] + 1)
-      c <- - log(self$discount)
-      self$theta$gittins_index[[arm]] <- p_hat + sqrt(v_mean) * private$phi(v_mean/(c * v_arm))
+      cc <- - log(self$discount)
+      self$theta$gittins_index[[arm]] <- p_hat + sqrt(v_mean) * private$phi(v_mean/(cc * v_arm))
     },
     phi = function(s) {
       if (s > 15) {

vignettes/only_pkgdown/faq.Rmd

@@ -180,7 +180,7 @@ from the latter to obtain the ```regret```.
 For example, see ```BasicBernoulliBandit```'s implementation:
 
 ```r
- #' @export
+#' @export
 BasicBernoulliBandit <- R6::R6Class(
   inherit = Bandit,
   class = FALSE,