From 435f4f55ef26ad48731cdee23513a107623a890d Mon Sep 17 00:00:00 2001
From: Nikolas Kuschnig <kuschnignikolas@gmail.com>
Date: Thu, 5 Sep 2019 16:53:21 +0200
Subject: [PATCH] Fix mb bug when provided c()

---
 R/41_minnesota.R | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/R/41_minnesota.R b/R/41_minnesota.R
index ecf3d36..6bfd8d3 100644
--- a/R/41_minnesota.R
+++ b/R/41_minnesota.R
@@ -135,7 +135,9 @@ lazy_priors <- function(x) {
 
   if(!inherits(x, "bv_dummy")) {
     # Allow receiving length 4 numeric vectors
-    if(length(x) == 4 && is.numeric(x)) {return(x = bv_lambda(x))}
+    if(length(x) == 4 && is.numeric(x)) {
+      return(x = bv_lambda(x[1], x[2], x[3], x[4]))
+    }
     stop("Please use `bv_lambda()` / `bv_alpha()` to set lambda / alpha.")
   }