Get fraction of intra-facility pairs for different SNV thresholds

get_frac_intra(pair_types)

Arguments

pair_types	the output object of the get_pair_types function

Value

fraction of intra-facility pairs for each SNV distance in dataset

Examples

if (FALSE) {
locs <- metadata %>% dplyr::select(isolate_id, facility) %>% tibble::deframe()
pair_types <- get_pair_types(dists, locs)
get_frac_intra(pair_types)
}