tests/testthat/test-iters.kTooHigh.R

In ParBayesianOptimization: Parallel Bayesian Optimization of Hyperparameters

test_that(

  "Cannot get unique iters.k parameters."

  , {

    skip_on_cran()
    set.seed(5)
    sf <- function(x) {
      y <- 1 - x^2
      return(y)
    }
    FUN <- function(x) {
      return(list(Score = sf(x)))
    }
    bounds = list(
      x = c(-4L,4L)
    )
    Results <- bayesOpt(
        FUN = FUN
      , bounds = bounds
      , saveFile = NULL
      , initPoints = 4
      , iters.n = 300
      , iters.k = 10
      , otherHalting = list(timeLimit = Inf,minUtility = 0)
      , acq = "ucb"
      , kappa = 2.576
      , eps = 0.0
      , parallel = FALSE
      , gsPoints = 10
      , convThresh = 1e8
      , acqThresh = 1.000
      , plotProgress = TRUE
      , verbose = 1
    )

    expect_equal(
      Results$stopStatus
      , ParBayesianOptimization:::makeStopEarlyMessage(
        paste0(
          "Stopping process and returning results so far. "
          , "Could not apply noise to get enough random new parameter sets. "
          , "This happens if all of your parameters are integers. Try decreasing iters.k"
        )
      )
    )

  }

)