## Do not run the following code unless the library adapt is loaded ##
## fit the Gaussian process ##
x1 = kronecker(seq(0,1,by=.25), rep(1,5))
x2 = rep(seq(0,1,by=.25),5)
z = 4 * x1 - 2*x2 + x1 * x2 + rnorm(length(x1), sd = 0.001)
fit = mlegp(cbind(x1,x2), z, param.names = c("x1", "x2"))
## Find percent contribution of all effects ##
FANOVADecomposition(fit)
## Round contributions to 3 digits ##
nice(FANOVADecomposition(fit), 3) ### end don't runRun the code above in your browser using DataLab