# NOT RUN {
# All dimensions should look similar
d <- 8
SG = CGGPcreate(d,201)
CGGPheat(SG)
# The first and fourth dimensions are most active and will have greater depth
SG <- CGGPcreate(d=5, batchsize=50)
f <- function(x) {cos(2*pi*x[1]*3) + exp(4*x[4])}
for (i in 1:1) {
SG <- CGGPfit(SG, Y=apply(SG$design, 1, f))
SG <- CGGPappend(CGGP=SG, batchsize=200)
}
# SG <- CGGPfit(SG, Y=apply(SG$design, 1, f))
CGGPplotheat(SG)
# }
Run the code above in your browser using DataLab