Update quicktexregapollo.R. took away error message when classes are not apollo maxLik and xxx

R/quicktexregapollo.R

@@ -17,9 +17,9 @@ quicktexregapollo <- function(model = model, wtpest = NULL, se="rob") {
     stop("Invalid value for 'se'. Please use one of 'rob', 'normal', or 'bs'.")
   }
 
-  if (!all(c("apollo", "maxLik", "maxim") %in% class(model))) {
-    stop("Invalid model class. The model must be of classes 'apollo', 'maxLik', and 'maxim'.")
-  }
+ # if (!all(c("apollo", "maxLik", "maxim") %in% class(model))) {
+ #   stop("Invalid model class. The model must be of classes 'apollo', 'maxLik', and 'maxim'.")
+ # }
 
 
   if (se == "bs" && !"bootse" %in% names(model)) {