https://github.com/cran/tgp
Tip revision: b7790ba844c904249a7b304feb41df16b628ee99 authored by Robert B. Gramacy on 17 August 2024, 14:45:48 UTC
version 2.4-22.1
version 2.4-22.1
Tip revision: b7790ba
exp.R
###################################################
### chunk number 1:
###################################################
library(tgp)
library(maptree)
##options(width=65)
seed <- 0; set.seed(seed)
###################################################
### 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", verb=0)
###################################################
### chunk number 4: bgp
###################################################
plot(exp.bgp, main='GP,')
###################################################
### chunk number 5:
###################################################
rl <- readline("press RETURN to continue: ")
graphics.off()
###################################################
### chunk number 6:
###################################################
exp.btgp <- btgp(X=X, Z=Z, XX=XX, corr="exp", verb=0)
###################################################
### chunk number 7: btgp
###################################################
plot(exp.btgp, main='treed GP,')
###################################################
### chunk number 8:
###################################################
rl <- readline("press RETURN to continue: ")
graphics.off()
###################################################
### chunk number 9: btgptrees
###################################################
tgp.trees(exp.btgp)
###################################################
### chunk number 10:
###################################################
rl <- readline("press RETURN to continue: ")
graphics.off()
###################################################
### chunk number 11:
###################################################
exp.btgpllm <- btgpllm(X=X, Z=Z, XX=XX, corr="exp", R=2)
###################################################
### chunk number 12: btgpllm
###################################################
plot(exp.btgpllm, main='treed GP LLM,')
###################################################
### chunk number 13:
###################################################
rl <- readline("press RETURN to continue: ")
graphics.off()
###################################################
### chunk number 14: 1dbtgpllm1
###################################################
plot(exp.btgpllm, main='treed GP LLM,', proj=c(1))
###################################################
### chunk number 15:
###################################################
rl <- readline("press RETURN to continue: ")
graphics.off()
###################################################
### chunk number 16: 1dbtgpllm2
###################################################
plot(exp.btgpllm, main='treed GP LLM,', proj=c(2))
###################################################
### chunk number 17:
###################################################
rl <- readline("press RETURN to continue: ")
graphics.off()