Nothing
#' @rdname select_n_to_m
#' @export
select_n_to_m.cluster_pairs <- function(pairs, variable, score, threshold, preselect = NULL,
id_x = NULL, id_y = NULL, ...) {
stop("select_n_to_m is not implemented for cluster_pairs. First use select_threshold to ",
"select a subset of the records. Then call cluster_collect with the selection to ",
"get the relevant pairs locally. Then call select_n_to_m on those pairs.")
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.