R/points.gp.R

In spectralGP: Approximate Gaussian Processes Using the Fourier Basis

"points.gp" <-
function(x,...){
  # add points for one-dimensional gp
  if(x$d!=1){
    stop(" points function only works for one-dimensional processes")
  }
  points(getgrid(x),predict(x),...)
}