From c66cd0f80e3fb8163647f3e98ea653782bdbc62d Mon Sep 17 00:00:00 2001
From: Rostu <rs@leibniz-psychology.org>
Date: Tue, 3 Dec 2024 10:36:36 +0100
Subject: [PATCH] changes to rma model function since request isn't json
 anymore for some parameter

---
 R/rmaMVModel.R | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/R/rmaMVModel.R b/R/rmaMVModel.R
index c400d4e..2f949ef 100644
--- a/R/rmaMVModel.R
+++ b/R/rmaMVModel.R
@@ -37,14 +37,14 @@ rmaMVModel <- function(yi,vi,measure,d,pred1=NULL,pred2=NULL,nesting=NULL) {
   if(!is.null(nesting)){
     nesting <- jsonlite::fromJSON(nesting)
   }
-  if(!is.null(pred1)){
-    # Parse the JSON string into a list
-    pred1<-jsonlite::fromJSON(pred1)
-  }
-  if(!is.null(pred2)){
-    # Parse the JSON string into a list
-    pred2<-jsonlite::fromJSON(pred2)
-  }
+#  if(!is.null(pred1)){
+#    # Parse the JSON string into a list
+#    pred1<-jsonlite::fromJSON(pred1)
+#  }
+#  if(!is.null(pred2)){
+#    # Parse the JSON string into a list
+#    pred2<-jsonlite::fromJSON(pred2)
+#  }
 
   checkParameter(dat,c(yi,vi))