#
# 2-d Exponential data
# (Contrast this with the tgp.design example,
# Also, this example is based on random data.
# It might be fun to run it a few times)
#
# get the data
exp2d.data <- exp2d.rand()
X <- exp2d.data$X; Z <- exp2d.data$Z
Xcand <- exp2d.data$XX
# find a treed sequential D-Optimal design
# with 10 more points
dgp <- dopt.gp(10, X, Xcand)
# now fit the model again in order to assess
# the predictive surface at those new design points
dout <- btgpllm(X=X, Z=Z, XX=dgp$XX)
plot(dout)
Run the code above in your browser using DataLab