From 4557bed32ea59ff77d635d04313dca88c912af29 Mon Sep 17 00:00:00 2001
From: Robert Rostu Studtrucker <rs@leibniz-psychology.org>
Date: Wed, 4 Sep 2024 12:23:20 +0200
Subject: [PATCH] further bug fixing on rmamvmodel

---
 R/rmaMVModel.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/rmaMVModel.R b/R/rmaMVModel.R
index ff8110f..e353e22 100644
--- a/R/rmaMVModel.R
+++ b/R/rmaMVModel.R
@@ -39,8 +39,8 @@ rmaMVModel <- function(yi,vi,measure,d,pred1=NULL,pred2=NULL,nesting=NULL) {
 
   checkParameter(dat,c(yi,vi))
 
-  pred1<-unlist(pred1)
-  pred2<-unlist(pred2)
+  pred1<-jsonlite::fromJSON(pred1)
+  pred2<-jsonlite::fromJSON(pred2)
 
   #check if the choosen dataset has a nesting and prepare corresponding rma_mv model input if so
   if(is.null(nesting)){