# NOT RUN {
require(funGp) # a package with a plotLOO method implemented
# generating input and output data for training
set.seed(100)
n.tr <- 25
sIn <- expand.grid(x1 = seq(0,1,length = sqrt(n.tr)), x2 = seq(0,1,length = sqrt(n.tr)))
fIn <- list(f1 = matrix(runif(n.tr*10), ncol = 10), f2 = matrix(runif(n.tr*22), ncol = 22))
sOut <- fgp_BB3(sIn, fIn, n.tr)
# building the model
m1 <- fgpm(sIn = sIn, fIn = fIn, sOut = sOut)
# plotting the model
plotLOO(m1)
# }
Run the code above in your browser using DataLab