further bug fixing on rmamvmodel

leibniz-psychology · Sep 4, 2024 · 61a0c56 · 61a0c56
1 parent f078065
commit 61a0c56
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 7 deletions.
diff --git a/R/rmaMVModel.R b/R/rmaMVModel.R
@@ -39,16 +39,10 @@ rmaMVModel <- function(yi,vi,measure,d,pred1=NULL,pred2=NULL,nesting=NULL) {
   if(!is.null(pred1)){
     # Parse the JSON string into a list
     pred1<-jsonlite::fromJSON(pred1)
-
-    # Convert the list to a vector
-    pred1 <- unlist(pred1)
   }
   if(!is.null(pred2)){
     # Parse the JSON string into a list
     pred2<-jsonlite::fromJSON(pred2)
-
-    # Convert the list to a vector
-    pred2 <- unlist(pred2)
   }
 
   checkParameter(dat,c(yi,vi))

diff --git a/R/testFunctions.R b/R/testFunctions.R
@@ -29,7 +29,7 @@ testpredParameter<-function(pred1){
   pred1<-jsonlite::fromJSON(pred1)
 
   # Convert the list to a vector
-  pred1 <- unlist(pred1)
+  #pred1 <- unlist(pred1, use.names = TRUE)
 
     print(pred1)
   pred1["value"]