add default for argument c in gp()

paul-buerkner · Feb 7, 2024 · b92ed99 · b92ed99
1 parent a545d8d
commit b92ed99
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 9 deletions.
diff --git 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