Resampling_Error
Resampling_Error
is designed to easily compute resampling error on design points
Resampling_Error
An R6Class
generator object
Compute resampling error of a surrogate model
Resampling_Error$new()
Creates a new Resampling_Error
get_val(surrogate_model)
It evaluates the resampling error for a surrogate_model (object UPSM
).
library(UP) d <- 2 X <- expand.grid(x1=seq(0,1,length=5), x2=seq(0,1,length=4)) y <- apply(X, 1, branin) upsm <- UPSM$new(sm= krigingsm$new(), UP=UPClass$new(X,y,Scale =TRUE)) CV <- Resampling_Error$new() PRESS_CV <- CV$get_val(upsm) print(" CV Resampling Error")#> [1] " CV Resampling Error"print(PRESS_CV)#> [1] 18.67703