example_gt <- load_example_gt("gen_tbl")
# Calculate relationship matrix
king_matrix <- example_gt %>% pairwise_king(as_matrix = TRUE)
# Filter individuals with threshold above 0.2
filter_high_relatedness(king_matrix, example_gt, kings_threshold = 0.2)
Run the code above in your browser using DataLab