Description Usage Arguments Details Value Author(s) Examples
This function evaluates the first GASP of a computer model using maximum a posteriori estimates (MAP) of parameters of the GASP.
1 | eval_type1_GASP(input, GASPparams)
|
input |
input values (the same dimension as training input data in the next argument GASPparams) |
GASPparams |
The output of the function eval_GASP_RFP. |
See examples which illustrate inputs specification to the function.
Function returns a list of three objects
x |
Inputs. |
mu |
Mean of an emulator. |
var |
Covariance matrix of an emulator. |
Ksenia N. Kyzyurova, kseniak.ucoz.net.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | ## Function f1 is a simulator
f1<-function(x){sin(pi*x)}
## One-dimensional inputs are x1
x1 <- seq(-1,1,.37)
## The following contains the list of data inputs (training) and outputs (fD) together with the
## assumed fixed smoothness of a computer model output.
data.f1 <- list(training = x1,fD = f1(x1), smooth = 1.99)
## Evaluation of GASP parameters
f1_MLEs = eval_GASP_RFP(data.f1,list(function(x){x^0},function(x){x^1}),1,FALSE)
## Evaluate the emulator
xn = seq(-1,1,.01)
GASP_type1_f1 <- eval_type1_GASP(as.matrix(xn),f1_MLEs)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.