tests/testthat/test-glance.R

In mbadge/AnalysisToolkitR: Objects and Functions for general data analysis

library(purrr)
library(AnalysisToolkit)
context("glance model summary tabulation")


# Make classifierPoints with logical columns
cP <- ClassifierPoint(Y_=rnorm(10) > 0.5, Y=rnorm(10) > 0.5)
# Make classifierCurves with numeric columns
cC <- ClassifierCurve(pY=rnorm(10), Y=runif(10, 0, 1) %>% round(0))

# test_that("glance extension works for points and curves", {
#     expect_is(glance(cP), "data.frame")
#     expect_is(glance(cC), "data.frame")
# })