further bug fixing on rmamvmodel

leibniz-psychology · Sep 4, 2024 · 4557bed · 4557bed
1 parent 3310941
commit 4557bed
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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)){