tests/testthat/test-as.R

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

library(purrr)
library(AnalysisToolkit)
context("type conversions")


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

test_that("Classifier Curves are flexibly mutable with type conversions", {
    expect_is(as(cC, "ClassifierPoint"), "ClassifierPoint")
})