# NOT RUN {
CGGPplotcorr()
CGGPplotcorr(theta=c(-2,-1,0,1))
SG <- CGGPcreate(d=3, batchsize=100)
f <- function(x){x[1]^1.2+sin(2*pi*x[2]*3)}
y <- apply(SG$design, 1, f)
SG <- CGGPfit(SG, Y=y)
CGGPplotcorr(SG)
# }
Run the code above in your browser using DataCamp Workspace