Relative = FALSE ) %>% # we switch the POP id column here to match the others magrittr :: set_colnames (x =. , value = c ( "POP2", "POP1", "STAMPP_SIM01" ) ) %>% dplyr :: arrange ( POP1, POP2 ) % # The distance matrix need some love # if we want to compare it with the others: radiator :: distance2tibble ( % # The distance matrix need some love # if we want to compare it with the others: radiator :: distance2tibble ( Relative = FALSE ) %>% magrittr :: set_colnames (x =. , value = pops ) %>% radiator :: distance2tibble ( , value = c ( "POP1", "POP2", "GENODIVE_SIM01" ) ) pops % as.matrix (. Remove.lower = TRUE, # FALSE because their's only the lower diag , value = pops ) %>% magrittr :: set_rownames (x =. , value = c ( "POP2", "POP1", "DIVERSITY_SIM01" ) ) pops % # The result need some work # We transform the matrix into a useful tibble: magrittr :: set_colnames (x =. Remove.lower = FALSE, # FALSE because their's only the lower diag , remove.diag = TRUE, remove.lower = TRUE, na.diag = TRUE, relative = FALSE ) %>% magrittr :: set_colnames (x =. , value = c ( "POP1", "POP2", "HIERFSTAT_SIM01" ) ) %>% dplyr :: arrange ( POP1, POP2 ) pops % # The result need some work # We transform the matrix into a useful tibble: magrittr :: set_colnames (x =.
Pops % # The result need some work # We transform the matrix into a useful tibble: magrittr :: set_colnames (x =.
0 kommentar(er)
