R Under development (unstable) (2025-01-07 r87537 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2025 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(testthat)
> library(S4DM)
> 
> 
> test_check("S4DM")
[ FAIL 1 | WARN 0 | SKIP 0 | PASS 46 ]

══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-pnp.R:168:3'): vine returns correct format ─────────────────────
<Rcpp::index_out_of_bounds/C++Error/error/condition>
Error: Index out of bounds: [index='prob0'].
Backtrace:
    ▆
 1. └─S4DM:::pnp_vine(data = pres$env, method = "fit") at test-pnp.R:168:3
 2.   └─rvinecopulib::vine(data = data)
 3.     └─rvinecopulib:::compute_pseudo_obs(data, vine)
 4.       └─rvinecopulib:::dpq_marg(data, vine)
 5.         └─base::lapply(...)
 6.           └─rvinecopulib (local) FUN(X[[i]], ...)
 7.             └─rvinecopulib:::eval_one_dpq(x[, i], vine$margins[[i]], what)
 8.               └─kde1d::pkde1d(x, margin)
 9.                 └─kde1d:::pkde1d_cpp(q, obj)

[ FAIL 1 | WARN 0 | SKIP 0 | PASS 46 ]
Error: Test failures
Execution halted