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)