Running 'test_ecf.R' [12s]
  Running 'test_ecf_2.R' [6s]
  Running 'test_em.R' [11s]
  Running 'test_em_2.R' [6s]
  Running 'test_em_3.R' [11s]
  Running 'test_function.R' [19s]
  Running 'test_gibbs.R' [113s]
  Running 'test_helper.R' [5s]
  Running 'test_helper_2.R' [40s]
  Running 'test_helper_3.R' [5s]
  Running 'test_integrals.R' [6s]
  Running 'test_mcculloch_2.R' [5s]
  Running 'test_mle.R' [16m]
  Running 'test_normalization.R' [5s]
Running the tests in 'tests/test_ecf.R' failed.
Complete output:
  > # Clean environment and load libraries
  > rm(list = ls())  # Clear environment to avoid conflicts
  > 
  > # Source files
  > library(MixStable)
  
  Attaching package: 'MixStable'
  
  The following object is masked from 'package:graphics':
  
      clip
  
  > 
  > # 📊 Generate synthetic data using explicit package reference
  > X <- stabledist::rstable(1200, alpha = 1.2, beta = 0.5, gamma = 1, delta = 3, pm = 1)
  > u_vals <- seq(0.1, 1, length.out = 10)
  > 
  > # Add some diagnostic information
  > cat("Data summary:\n")
  Data summary:
  > cat("Length:", length(X), "\n")
  Length: 1200 
  > cat("Range:", range(X), "\n")
  Range: -1436.901 153.0839 
  > cat("Mean:", mean(X), "SD:", sd(X), "\n")
  Mean: 1.3582 SD: 42.31066 
  > cat("u_vals:", u_vals, "\n\n")
  u_vals: 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1 
  
  > 
  > # 🧮 Estimate parameters with error handling
  > safe_estimate <- function(func, data, u, name) {
  +   cat("Running", name, "...\n")
  +   result <- tryCatch({
  +     func(data, u)
  +   }, error = function(e) {
  +     cat("Error in", name, ":", e$message, "\n")
  +     return(NULL)
  +   }, warning = function(w) {
  +     cat("Warning in", name, ":", w$message, "\n")
  +     suppressWarnings(func(data, u))
  +   })
  +   return(result)
  + }
  > 
  > # Run estimations with error handling
  > result_CDF <- safe_estimate(CDF, X, u_vals, "CDF")
  Running CDF ...
  > result_ecf_regression <- safe_estimate(ecf_regression, X, u_vals, "ECF Regression")
  Running ECF Regression ...
  Warning in ECF Regression : NaNs produced 
  Error in model.frame.default(formula = residuals1 ~ pred1, drop.unused.levels = TRUE) : 
    variable lengths differ (found for 'pred1')
  Calls: safe_estimate ... tryCatch -> tryCatchList -> tryCatchOne -> <Anonymous>
  Execution halted