tests/testthat/test_OVL.BCAN.R

In OVL.CI: Inference on the Overlap Coefficient: The Binormal Approach and Alternatives

 test_that("OVL.BCAN() returns a list", {
  output_list <- OVL.BCAN(x=test_data$controls,y=test_data$cases)
  expect_type(output_list, "list")
})

 test_that("OVL.BCAN() returns a valid result", {
   output_list <- OVL.BCAN(x=test_data$controls,y=test_data$cases)
   expect_true( output_list[[1]]>= 0.3 & output_list[[2]] <= 1)
 })

 test_that("OVL.BCAN() returns a valid result", {
   set.seed(1)
   output_list <- OVL.BCAN(x=rnorm(50,0,1),y=rnorm(50,0.5,0.5))
   expect_true( output_list[[1]]>= 0.3 & output_list[[2]] <= 1)
 })

 test_that("OVL.BCAN() returns a list", {
   set.seed(1)
   output_list <- OVL.BCAN(x=rnorm(50,80,10),y=rnorm(50,0,11))
   expect_type(output_list, "list")
 })


 test_that("OVL.BCAN() returns a list", {
   set.seed(1)
   output_list <- OVL.BCAN(x=rnorm(50,80,11),y=rnorm(50,80.0001,10))
   expect_type(output_list, "list")
 })