diff --git a/R/formula-gp.R b/R/formula-gp.R index 474e16753..588e503aa 100644 --- a/R/formula-gp.R +++ b/R/formula-gp.R @@ -114,7 +114,7 @@ #' @seealso \code{\link{brmsformula}} #' @export gp <- function(..., by = NA, k = NA, cov = "exp_quad", iso = TRUE, - gr = TRUE, cmc = TRUE, scale = TRUE, c = NULL) { + gr = TRUE, cmc = TRUE, scale = TRUE, c = 5/4) { cov <- match.arg(cov, choices = c("exp_quad")) call <- match.call() label <- deparse0(call) @@ -137,13 +137,6 @@ gp <- function(..., by = NA, k = NA, cov = "exp_quad", iso = TRUE, if (k < 1L) { stop2("'k' must be positive.") } - if (is.null(c)) { - stop2( - "'c' must be specified for approximate GPs. ", - "A good default could be c = 5/4 but we are still ", - "working on providing better recommendations." - ) - } c <- as.numeric(c) if (length(c) == 1L) { c <- rep(c, length(vars)) diff --git a/man/gp.Rd b/man/gp.Rd index 6cb8f6c5d..ef095eac4 100644 --- a/man/gp.Rd +++ b/man/gp.Rd @@ -13,7 +13,7 @@ gp( gr = TRUE, cmc = TRUE, scale = TRUE, - c = NULL + c = 5/4 ) } \arguments{