# NOT RUN {
x <- matrix(seq(-1,1,0.3),ncol=1)
y <- x^2
gp <- gp_fit(x,
y,
options=list(formula=~1,
kernel = "matern5_2",
optimizer = "gen",
nuggetUse = FALSE))
gp_plot(gp$km.model,seq(-1.5,1.5,0.1))
# }
Run the code above in your browser using DataLab