#
# 2-d Exponential data
#
# get the data
exp2d.data <- exp2d.rand()
X <- exp2d.data$X; Z <- exp2d.data$Z
Xcand <- exp2d.data$XX
# fit treed GP LLM model to data w/o prediction
# basically just to get MAP tree (and plot it)
out <- btgpllm(X=X, Z=Z, pred.n=FALSE)
tgp.trees(out)
# find a treed sequential D-Optimal design
# with 10 more points
Xcand.parts <- tgp.get.partitions(Xcand, out)
Run the code above in your browser using DataLab