diff --git a/R/fit.R b/R/fit.R index b16b260f..b1c99e97 100644 --- a/R/fit.R +++ b/R/fit.R @@ -457,7 +457,7 @@ CmdStanFit$set("public", name = "grad_log_prob", value = grad_log_prob) #' [unconstrain_variables()], [unconstrain_draws()], [variable_skeleton()], #' [hessian()] #' -hessian <- function(unconstrained_variables, jacobian = TRUE, jacobian_adjustment = TRUE) { +hessian <- function(unconstrained_variables, jacobian = TRUE, jacobian_adjustment = NULL) { if (!is.null(jacobian_adjustment)) { warning("'jacobian_adjustment' is deprecated. Please use 'jacobian' instead.", call. = FALSE) jacobian <- jacobian_adjustment diff --git a/man/fit-method-hessian.Rd b/man/fit-method-hessian.Rd index 9dd54830..8076a889 100644 --- a/man/fit-method-hessian.Rd +++ b/man/fit-method-hessian.Rd @@ -6,7 +6,7 @@ \title{Calculate the log-probability , the gradient w.r.t. each input, and the hessian for a given vector of unconstrained parameters} \usage{ -hessian(unconstrained_variables, jacobian = TRUE, jacobian_adjustment = TRUE) +hessian(unconstrained_variables, jacobian = TRUE, jacobian_adjustment = NULL) } \arguments{ \item{unconstrained_variables}{(numeric) A vector of unconstrained parameters.} diff --git a/tests/testthat/test-model-methods.R b/tests/testthat/test-model-methods.R index c7879288..c3607f7b 100644 --- a/tests/testthat/test-model-methods.R +++ b/tests/testthat/test-model-methods.R @@ -3,7 +3,7 @@ context("model-methods") set_cmdstan_path() mod <- cmdstan_model(testing_stan_file("bernoulli_log_lik"), force_recompile = TRUE) data_list <- testing_data("bernoulli") -fit <- mod$sample(data = data_list, chains = 1) +fit <- mod$sample(data = data_list, chains = 1, refresh = 0) test_that("Methods error if not compiled", { skip_if(os_is_wsl())