R/Rfns.R

#' @title sample_wwr
#' @description Weighted sampling without replacement
#' @param weights numeric vector of weights
#' @export
sample_wwr <- function(weights){
  .Call("Rsample_wwr", sample(1e6, 1), as.numeric(weights))
}
emittman/label_switching documentation built on May 16, 2019, 5:09 a.m.