# NOT RUN {
data("data_ex_genind")
mat_d_j <- mat_pw_d_j(data_ex_genind)
path_in <- system.file('extdata', 'gpop_simul_10_g100_04_20.txt',
package = 'graph4lg')
file_n <- file.path(tempdir(), "gpop_simul_10_g100_04_20.txt")
file.copy(path_in, file_n, overwrite = TRUE)
mat_pw_d_j(x = file_n,
pop_names = as.character(order(as.character(1:10))))
file.remove(file_n)
# }
Run the code above in your browser using DataLab