#' 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.