tests/testthat/helper.R

library(checkmate)

ssample = function(lvls, N) {
  x = c(lvls, sample(lvls, N - length(lvls), replace = TRUE))
  factor(sample(x), levels = lvls)
}
mlr-org/mlr3measures documentation built on Sept. 12, 2024, 6:35 p.m.