Last updated on 2025-11-15 03:51:06 CET.
| Package | ERROR | OK |
|---|---|---|
| MixStable | 1 | 12 |
Current CRAN status: ERROR: 1, OK: 12
Version: 0.1.0
Check: tests
Result: ERROR
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
Flavor: r-oldrel-windows-x86_64