train_gp <-
function(X,y,pars = list())
{
library(gptk)
mod <- gp_regression(as.matrix(X),as.matrix(y))
result <- list()
result$Yfit = mod$Yfit
result$residuals = mod$residuals
result$model = mod
return(result)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.