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")
# })
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.