MSE: Mean Square Error 'MSE'
In malekbs/UP: What the package does (short line)

Description Usage Format Details Methods Examples

MSE is designed to easily compute MSE on design points

MSE

An R6Class generator object

Compute MSE of a surrogate model

MSE$new(): Creates a new MSE
get_val(surrogate_model): It evaluates the MSE for a surrogate_model (object sm).

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))
mse          <- MSE$new()          
valmse       <- mse$get_val(upsm)
print("MSE")
print(valmse)