R Under development (unstable) (2026-02-01 r89366 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2026 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(rrobot)
> 
> tests_dir <- "testthat"
> if (!endsWith(getwd(), "tests")) { tests_dir <- file.path("tests", tests_dir) }
> 
> source(file.path(tests_dir, "test-rrobot.R"))
Test passed with 4 successes 🌈.
Test passed with 2 successes 🥳.
Test passed with 5 successes 🎊.
Test passed with 5 successes 😀.
Test passed with 2 successes 😸.
Single Imputation (SI) Results
==============================
SI Threshold: 414.5531 
Number of observations: 193 
Robust subset size: 109 
Outliers detected: 2 (1%) 

Single Imputation Bootstrap (SI_boot) Results
=============================================
Bootstrap samples: 50 
Confidence Interval:
  Lower bound (threshold): 386.9649 
  Upper bound: 505.8423 

Multiple Imputation (MI) Results
================================
Number of imputations: 3 
Threshold summary:
  Min: 417.3503 
  Mean: 420.2861 
  Max: 422.8549 
Final threshold: 417.5155 

Multiple Imputation Bootstrap (MI_boot) Results
===============================================
Total bootstrap samples: 150 
Final threshold: 341.7778 
Flagged outliers: 2268 (10800%) 

Hardin & Rocke F-Distribution Results
====================================
F-distribution threshold: 90.739 
Degrees of freedom: 24, 56.06 
Consistency factor (c): 0.7979 
Scale factor: 0.0236 
Estimated m parameter: 79.06 

Test passed with 25 successes 🥇.
Test passed with 8 successes 😸.
> 
> proc.time()
   user  system elapsed 
  13.25    0.71   13.65