View source: R/buildKrigingForrester.R
| predictKrigingReinterpolation | R Documentation | 
Kriging predictor with re-interpolation to avoid stalling the optimization process which employs this model as a surrogate. This is supposed to be used with deterministic experiments, which do need a non-interpolating model that avoids predicting non-zero error at sample locations. This can be useful when the model is deterministic (i.e. repeated evaluations of one parameter vector do not yield different values) but does have a "noisy" structure (e.g. due to computational inaccuracies, systematical error).
predictKrigingReinterpolation(object, newdata, ...)
| object | Kriging model (settings and parameters) of class  | 
| newdata | design matrix to be predicted | 
| ... | not used | 
Please note that this re-interpolation implementation will not necessarily yield values of exactly zero at the sample locations used for model building. Slight deviations can occur.
list with predicted mean y, uncertainty s (optional) and expected improvement ei (optional).
Whether s and ei are returned is specified by the vector of strings object$target,
which then contains "s" and "ei.
buildKriging, predict.kriging
## Create design points
x <- cbind(runif(20)*15-5,runif(20)*15)
## Compute observations at design points (for Branin function)
y <- funBranin(x)
## Create model
fit <- buildKriging(x,y,control=list(reinterpolate=FALSE))
fit$target <- c("y","s")
## first estimate error with regressive predictor
sreg <- predict(fit,x)$s
## now estimate error with re-interpolating predictor
sreint <- predictKrigingReinterpolation(fit,x)$s
## equivalent:
fit$reinterpolate <- TRUE
sreint2 <- predict(fit,x)$s
print(sreg)
print(sreint)
print(sreint2)
## sreint should be close to zero, significantly smaller than sreg
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.