data(Fst_dat)
Fst <- Fst_dat[[1]]
Loc <- Fst_dat[[2]]
# \donttest{
Test <- Network_map(dat = Fst, pops = Loc,
neighbors = 2,col = c('#4575b4', '#91bfdb', '#e0f3f8','#fd8d3c','#fc4e2a'),
statistic = "Fst", Lat_buffer = 1, Long_buffer = 1)# }
Fstat_plot <- Pairwise_heatmap(dat = Fst, statistic = 'FST')
Run the code above in your browser using DataLab