1 files changed, 6 insertions, 3 deletions
diff --git a/R/estUtil.R b/R/estUtil.R
index 353c100..6bc9159 100644
--- a/R/estUtil.R
+++ b/R/estUtil.R
@@ -217,7 +217,10 @@ bjGrad <- function(theta,e,dots){
   return(l)
 }
 
-inv <- function(H){
-  chdecomp <- chol(H)
-  chol2inv(H)
+checkInitSys <- function(init_sys){
+  z <- strsplit(toString(sys.call(which=-1)),split = ",")[[1]][1]
+  if(init_sys$type!=z){
+    errMes <- paste("An idpoly model of",toupper(z),"structure expected for the",z,"command.")
+    stop(errMes)
+  }
 }
 \ No newline at end of file