# Read example gt_admix object
admix_obj <-
readRDS(system.file("extdata", "anolis", "anole_adm_k3.rds",
package = "tidypopgen"
))
# Extract a P matrix
get_p_matrix(admix_obj, k = 3, run = 1)
Run the code above in your browser using DataLab