diff --git a/R/quicktexregapollo.R b/R/quicktexregapollo.R index eac46e934eb91909d35e2e7c02501bf2dc2db80e..18585769f5a88a84d58403fa1b1a27d07ba68a78 100644 --- a/R/quicktexregapollo.R +++ b/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)) {