Running examples in ‘hopit-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: getCutPoints
> ### Title: Calculate the threshold cut-points and individual adjusted
> ###   responses using Jurges' method
> ### Aliases: getCutPoints
> 
> ### ** Examples
> 
> # DATA
> data(healthsurvey)
> 
> # the order of response levels decreases from the best health to
> # the worst health; hence the hopit() parameter decreasing.levels
> # is set to TRUE
> levels(healthsurvey$health)
[1] "Excellent" "Very good" "Good"      "Fair"      "Poor"     
> 
> # Example 1 ---------------------
> 
> # fit a model
> model1 <- hopit(latent.formula = health ~ hypertension + high_cholesterol +
+                 heart_attack_or_stroke + poor_mobility + very_poor_grip +
+                 depression + respiratory_problems +
+                 IADL_problems + obese + diabetes + other_diseases,
+               thresh.formula = ~ sex + ageclass + country,
+               decreasing.levels = TRUE,
+               control = list(trace = FALSE),
+               data = healthsurvey)
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
hopit
 --- call from context --- 
check_vcov(model$vcov.basic)
 --- call from argument --- 
if (class(vcov) == "try-error") {
    warning(call. = FALSE, hopit_msg(32))
    vcov <- NA
}
 --- R stacktrace ---
where 1: check_vcov(model$vcov.basic)
where 2: hopit(latent.formula = health ~ hypertension + high_cholesterol + 
    heart_attack_or_stroke + poor_mobility + very_poor_grip + 
    depression + respiratory_problems + IADL_problems + obese + 
    diabetes + other_diseases, thresh.formula = ~sex + ageclass + 
    country, decreasing.levels = TRUE, control = list(trace = FALSE), 
    data = healthsurvey)

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (vcov) 
{
    if (class(vcov) == "try-error") {
        warning(call. = FALSE, hopit_msg(32))
        vcov <- NA
    }
    vcov
}
<bytecode: 0x55db93deecc0>
<environment: namespace:hopit>
 --- function search by body ---
Function check_vcov in namespace hopit has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1