diff --git a/R/regularized_regression.R b/R/regularized_regression.R index 02e0759b..f2fb0264 100644 --- a/R/regularized_regression.R +++ b/R/regularized_regression.R @@ -450,7 +450,7 @@ mrash_weights <- function(X, y, init_prior_sd = TRUE, ...) { if (!"beta.init" %in% names(args_list)) { args_list$beta.init <- lasso_weights(X, y) } - fit.mr.ash <- do.call("mr.ash.alpha::mr.ash", c(list(X = X, y = y, sa2 = if (init_prior_sd) init_prior_sd(X, y)^2 else NULL), args_list)) + fit.mr.ash <- do.call(getFromNamespace("mr.ash", "mr.ash.alpha"), c(list(X = X, y = y, sa2 = if (init_prior_sd) init_prior_sd(X, y)^2 else NULL), args_list)) predict(fit.mr.ash, type = "coefficients")[-1] } #' Extract Coefficients From Bayesian Linear Regression