test_that("data.frame-d calculate_auc", expect_s3_class(auc_dat, "data.frame"))

## TO DO 
## test actual values