further bug fixing on rmamvmodel

leibniz-psychology · Sep 4, 2024 · 90513fd · 90513fd
1 parent 6b91053
commit 90513fd
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/rmaMVModel.R b/R/rmaMVModel.R
@@ -29,11 +29,11 @@ rmaMVModel <- function(yi,vi,measure,d,pred1=NULL,pred2=NULL,nesting=NULL) {
 
   #load the in variable d defined dataset from the package
   dat <- d
-  if(nesting != NULL){
+  if(!is.null(nesting)){
     nesting <- fromJSON(nesting)
   }
-  summary(dat)
-  checkParameter(dat,c(yi,vi))
+
+  heckParameter(dat,c(yi,vi))
 
   pred1<-unlist(pred1)
   pred2<-unlist(pred2)