From 90513fdb147dfcffc915de459399492c524acf78 Mon Sep 17 00:00:00 2001
From: Robert Rostu Studtrucker <rs@leibniz-psychology.org>
Date: Wed, 4 Sep 2024 11:05:59 +0200
Subject: [PATCH] further bug fixing on rmamvmodel

---
 R/rmaMVModel.R | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/R/rmaMVModel.R b/R/rmaMVModel.R
index e46a36e..4cf7696 100644
--- 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)