###################################################
### chunk number 1: 
###################################################
library(tgp)
library(akima)
library(maptree)


###################################################
### chunk number 2: 
###################################################
exp2d.data <- exp2d.rand()
X <- exp2d.data$X; Z <- exp2d.data$Z
XX <- exp2d.data$XX


###################################################
### chunk number 3: 
###################################################
exp.bgp <- bgp(X=X, Z=Z, XX=XX, corr="exp") 	


###################################################
### chunk number 4: expbgp
###################################################
plot(exp.bgp, main='GP,')


###################################################
### chunk number 5: 
###################################################
exp.btgp <- btgp(X=X, Z=Z, XX=XX, corr="exp", R=3)


###################################################
### chunk number 6: btlm
###################################################
plot(exp.btgp, main='treed GP,')


###################################################
### chunk number 7: btlmtrees
###################################################
tgp.trees(exp.btgp)


###################################################
### chunk number 8: 
###################################################
exp.btgpllm <- btgpllm(X=X, Z=Z, XX=XX, corr="exp", R=3) 	


###################################################
### chunk number 9: expbtgpllm
###################################################
plot(exp.btgpllm, main='treed GP, LLM')