Skip to contents

Runs comprehensive verification tests for the DPprior_fit module.

Usage

verify_DPprior_fit(verbose = TRUE)

Arguments

verbose

Logical; if TRUE, print detailed test output.

Value

Invisibly returns TRUE if all tests pass.

Examples

verify_DPprior_fit()
#> ============================================================ 
#> Module 16: DPprior_fit() - Verification Suite
#> ============================================================ 
#> 
#> [Test 1] Confidence to Variance Conversion (GPT VIF values)
#> -------------------------------------------------- 
#>   confidence='low': VIF=5.0, var_K=20.00 [PASS]
#>   confidence='medium': VIF=2.5, var_K=10.00 [PASS]
#>   confidence='high': VIF=1.5, var_K=6.00 [PASS]
#> 
#> [Test 2] var_K Upper Bound Check (GPT improvement)
#> -------------------------------------------------- 
#>   Max variance for J=50: 600.25
#>   Error on var_K=700: TRUE [PASS]
#> 
#> [Test 3] A1-only Feasibility Projection (GPT insight)
#> -------------------------------------------------- 
#>   A1 with var_K=3: projected to 4.000001 [PASS]
#>   A2-MN with var_K=5: var_K_used=5.000000 [PASS]
#> 
#> [Test 4] mu_K Boundary Check (GPT improvement)
#> -------------------------------------------------- 
#>   mu_K=1 rejected: TRUE [PASS]
#>   mu_K>J rejected: TRUE [PASS]
#> 
#> [Test 5] Method Dispatch
#> -------------------------------------------------- 
#>   method='A1': a=4.000000, b=3.912023 [PASS]
#>   method='A2-MN': a=2.036093, b=1.605054 [PASS]
#> 
#> [Test 6] A2 Improves A1 Accuracy
#> -------------------------------------------------- 
#>   A1 residual: 3.261649e+00
#>   A2 residual: 7.600370e-09
#>   Improvement: 429143508x [PASS]
#> 
#> [Test 7] Diagnostics Structure (GPT: solver_diagnostics)
#> -------------------------------------------------- 
#>   diagnostics present: TRUE
#>   weights diagnostics: TRUE
#>   dominance_risk: high
#>   [PASS]
#> 
#> [Test 8] Output Structure
#> -------------------------------------------------- 
#>   $a: present
#>   $b: present
#>   $J: present
#>   $target: present
#>   $method: present
#>   $converged: present
#>   $fit: present
#>   $target structure (incl. var_K_used): OK
#>   $fit structure: OK
#> 
#> ============================================================ 
#> Overall Result: ALL TESTS PASSED
#> ============================================================