R/GauPro_selector.R

In GauPro: Gaussian Process Fitting

#' GauPro_selector
#'
#' @param type Type of Gaussian process, or the kind of correlation function.
#' @param ... Pass on
#'
#' @return A GauPro object
#' @export
#'
#' @examples
#' n <- 12
#' x <- matrix(seq(0,1,length.out = n), ncol=1)
#' #y <- sin(2*pi*x) + rnorm(n,0,1e-1)
#' y <- (2*x) %%1
#' gp <- GauPro(X=x, Z=y, parallel=FALSE)
GauPro <- function(..., type="Gauss") {
  if (type!= "Gauss") {stop("This only works with type='Gauss'. Instead try GauPro_kernel_model$new(x,y, kernel=<kernel name>)")}
  gp <- GauPro_Gauss$new(...)
  return(gp)
}