Print Bayesian test for no adverse shift.
# S3 method for outlier.bayes
print(x, ...)A outlier.test object from a D-SOS test.
Placeholder to be compatible with S3 method plot.
Print to screen: display Bayes factor and other information.
Other s3-method:
plot.outlier.bayes(),
plot.outlier.test(),
print.outlier.test()
# \donttest{
set.seed(12345)
os_train <- rnorm(n = 3e2)
os_test <- rnorm(n = 3e2)
test_to_print <- bf_from_os(os_train, os_test)
test_to_print
#> Bayesian test for no adverse shift
#>
#> Bayes factor (BF) = 0.65, cutoff (weighted AUC/WAUC) = 0.0833
#>
#> Model: bayesian bootstrap with 4000 replicates (simulations)
#> BF's numerator: Pr(WAUC >= 0.0833)
#> BF's denominator: Pr(WAUC < 0.0833)
#> => BF > 3 favors view that the test set is worse off than training.
#> Sample sizes: 300 in training and 300 in test set.
# }