R/banana_trn_pos.R

#'@export
.banana_trn_pos <- function(x, n_trn_pos, seed=NULL) {
  if (!is.null(seed))
    set.seed(seed)
  cells <- sample(which(banana$y[]==1), n_trn_pos)
  extract(x=x$x, y=cells)
}
benmack/iterOneClass documentation built on May 12, 2019, 12:57 p.m.