Nothing
#' Ensures controls are unique to avoid possible pseudoreplication issues
#'
#' @param stratifieddata See \code{\link{make_knn_strata}} and
#' \code{\link{make_analysis_set}}.
#' @return A tibble after it has been examined and filtered for duplicate controls
#' @export
unique_controls <- function(stratifieddata) {
stratifieddata %>%
left_join(group_by(., strata) %>%
summarize(nstrata = n()), by = "strata") %>% # create this so you can keep the smallest strata
group_by(idx) %>% arrange(nstrata, dist) %>% # preserve smallest strata then smallest distance if tied
distinct(idx, .keep_all = TRUE) %>%
filter(nstrata > 1) %>%
select(-nstrata) %>%
arrange(strata, desc(case))
}
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.