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