tests/testthat/test-otherHalting.R

In AnotherSamWilson/ParBayesianOptimization: Parallel Bayesian Optimization of Hyperparameters

context('otherHalting')

set.seed(1991)

testthat::test_that(

  "timeLimit"

  , {

    skip_on_cran()
    sf <- function(x,y) 1000 - (x-5)^2 - (y + 10)^2

    FUN <- function(x,y) {
      return(list(Score = sf(x,y)))
    }

    bounds = list(
      x = c(0,15)
      , y = c(-20,100)
    )

    optObj <- bayesOpt(
        FUN
      , bounds
      , initPoints = 3
      , iters.n = 25
      , otherHalting = list(timeLimit = 5)
      , verbose = 0
    )

    expect_equal(
        optObj$stopStatus
      , ParBayesianOptimization:::makeStopEarlyMessage("Time Limit - 5 seconds.")
    )

  }

)

testthat::test_that(

  "minUtility"

  , {

    skip_on_cran()
    sf <- function(x,y) 1000 - (x-5)^2 - (y + 10)^2

    FUN <- function(x,y) {
      return(list(Score = sf(x,y)))
    }

    bounds = list(
      x = c(0,15)
      , y = c(-20,100)
    )

    optObj <- bayesOpt(
      FUN
      , bounds
      , initPoints = 3
      , iters.n = 25
      , otherHalting = list(minUtility = 0.1)
      , verbose = 0
    )

    expect_equal(
        optObj$stopStatus
      , ParBayesianOptimization:::makeStopEarlyMessage("Returning Results. Could not meet minimum required (0.1) utility.")
    )

  }

)