tests/testthat/test-f2.R

In lanl/BASS: Bayesian Adaptive Spline Surfaces

test_that("f2 sobol & prediction matches previous validated values", {
  cat('Modified Friedman function test (sobol & prediction) \n')

  eps<-1e-12

  mod<-readRDS('../f2_mod.rda') # previous model
  ss<-readRDS('../f2_sob.rda') # previous validated sobol
  sens<-sobol(mod,verbose = F) # new sobol
  diff<-max(abs(range(ss$var.tot-sens$var.tot))) # difference between total variance
  expect_that(diff,is_less_than(eps))

  diff<-max(abs(range(ss$S-sens$S))) # difference between sobol indices
  expect_that(diff,is_less_than(eps))

  xtest<-readRDS('../f2_testX.rda') # x values
  pp<-predict(mod,xtest) # new predictions at x values
  pred<-readRDS('../f2_testPred.rda') # old predictions at x values
  diff<-max(abs(range(pred-pp))) # difference between new and old predictions
  expect_that(diff,is_less_than(eps))
})