
Locate the next design point for a (D)GP emulator or a bundle of (D)GP emulators using VIGF
Source:R/vigf.R
vigf.RdThis function searches from a candidate set to locate the next design point(s) to be added to a (D)GP emulator or a bundle of (D)GP emulators using the Variance of Improvement for Global Fit (VIGF). For VIGF on GP emulators, see the reference below.
Usage
vigf(object, ...)
# S3 method for class 'gp'
vigf(
object,
x_cand = NULL,
n_start = 10,
batch_size = 1,
M = 50,
workers = 1,
limits = NULL,
int = FALSE,
...
)
# S3 method for class 'dgp'
vigf(
object,
x_cand = NULL,
n_start = 10,
batch_size = 1,
M = 50,
workers = 1,
limits = NULL,
int = FALSE,
aggregate = NULL,
...
)
# S3 method for class 'bundle'
vigf(
object,
x_cand = NULL,
n_start = 10,
batch_size = 1,
M = 50,
workers = 1,
limits = NULL,
int = FALSE,
aggregate = NULL,
...
)Arguments
- object
can be one of the following:
the S3 class
gp.the S3 class
dgp.the S3 class
bundle.
- ...
any arguments (with names different from those of arguments used in
vigf()) that are used byaggregatecan be passed here.- x_cand
a matrix (with each row being a design point and column being an input dimension) that gives a candidate set from which the next design point(s) are determined. If
objectis an instance of thebundleclass andaggregateis not supplied,x_candcan also be a list. The list must have a length equal to the number of emulators inobject, with each element being a matrix representing the candidate set for a corresponding emulator in the bundle. Defaults toNULL.- n_start
an integer that gives the number of initial design points to be used to determine next design point(s). This argument is only used when
x_candisNULL. Defaults to10.- batch_size
an integer that gives the number of design points to be chosen. Defaults to
1.- M
the size of the conditioning set for the Vecchia approximation in the criterion calculation. This argument is only used if the emulator
objectwas constructed under the Vecchia approximation. Defaults to50.- workers
the number of processes to be used for design point selection. If set to
NULL, the number of processes is set tomax physical cores available %/% 2. Defaults to1. The argument does not currently support Windows machines when theaggregatefunction is provided, due to the significant overhead caused by initializing the Python environment for each worker under spawning.- limits
a two-column matrix that gives the ranges of each input dimension, or a vector of length two if there is only one input dimension. If a vector is provided, it will be converted to a two-column row matrix. The rows of the matrix correspond to input dimensions, and its first and second columns correspond to the minimum and maximum values of the input dimensions. This argument is only used when
x_cand = NULL. Defaults toNULL.- int
a bool or a vector of bools that indicates if an input dimension is an integer type. If a single bool is given, it will be applied to all input dimensions. If a vector is provided, it should have a length equal to the input dimensions and will be applied to individual input dimensions. This argument is only used when
x_cand = NULL. Defaults toFALSE.- aggregate
an R function that aggregates scores of the VIGF across different output dimensions (if
objectis an instance of thedgpclass) or across different emulators (ifobjectis an instance of thebundleclass). The function should be specified in the following basic form:the first argument is a matrix representing scores. The rows of the matrix correspond to different design points. The number of columns of the matrix equals to:
the emulator output dimension if
objectis an instance of thedgpclass; orthe number of emulators contained in
objectifobjectis an instance of thebundleclass.
the output should be a vector that gives aggregate scores at different design points.
Set to
NULLto disable aggregation. Defaults toNULL.
Value
If
x_candis notNULL:When
objectis an instance of thegpclass, a vector of lengthbatch_sizeis returned, containing the positions (row numbers) of the next design points fromx_cand.When
objectis an instance of thedgpclass, a vector of lengthbatch_size * Dis returned, containing the positions (row numbers) of the next design points fromx_candto be added to the DGP emulator.Dis the number of output dimensions of the DGP emulator if no likelihood layer is included.For a DGP emulator with a
HeteroorNegBinlikelihood layer,D = 2.For a DGP emulator with a
Categoricallikelihood layer,D = 1for binary output orD = Kfor multi-class output withKclasses.
When
objectis an instance of thebundleclass, a matrix is returned withbatch_sizerows and a column for each emulator in the bundle, containing the positions (row numbers) of the next design points fromx_candfor individual emulators.
If
x_candisNULL:When
objectis an instance of thegpclass, a matrix withbatch_sizerows is returned, giving the next design points to be evaluated.When
objectis an instance of thedgpclass, a matrix withbatch_size * Drows is returned, where:Dis the number of output dimensions of the DGP emulator if no likelihood layer is included.For a DGP emulator with a
HeteroorNegBinlikelihood layer,D = 2.For a DGP emulator with a
Categoricallikelihood layer,D = 1for binary output orD = Kfor multi-class output withKclasses.
When
objectis an instance of thebundleclass, a list is returned with a length equal to the number of emulators in the bundle. Each element of the list is a matrix withbatch_sizerows, where each row represents a design point to be added to the corresponding emulator.
Details
See further examples and tutorials at https://mingdeyu.github.io/dgpsi-R/.
Note
The first column of the matrix supplied to the first argument of aggregate must correspond to the first output dimension of the DGP emulator
if object is an instance of the dgp class, and so on for subsequent columns and dimensions. If object is an instance of the bundle class,
the first column must correspond to the first emulator in the bundle, and so on for subsequent columns and emulators.
References
Mohammadi, H., & Challenor, P. (2022). Sequential adaptive design for emulating costly computer codes. arXiv:2206.12113.
Examples
if (FALSE) { # \dontrun{
# load packages and the Python env
library(lhs)
library(dgpsi)
# construct a 1D non-stationary function
f <- function(x) {
sin(30*((2*x-1)/2-0.4)^5)*cos(20*((2*x-1)/2-0.4))
}
# generate the initial design
X <- maximinLHS(10,1)
Y <- f(X)
# training a 2-layered DGP emulator with the global connection off
m <- dgp(X, Y, connect = F)
# specify the input range
lim <- c(0,1)
# locate the next design point using VIGF
X_new <- vigf(m, limits = lim)
# obtain the corresponding output at the located design point
Y_new <- f(X_new)
# combine the new input-output pair to the existing data
X <- rbind(X, X_new)
Y <- rbind(Y, Y_new)
# update the DGP emulator with the new input and output data and refit
m <- update(m, X, Y, refit = TRUE)
# plot the LOO validation
plot(m)
} # }