MG_Sample10                         3   2   3   2   3   0   2   2   0   0   3   3   0   1   1   2   0   2   0   3   1   0   3   1
MG_Sample10                         3   2   3   2   3   0   2   2   0   0   3   3   0   1   1   2

file <- read.structure("ip_MG_test.str")

obj1 <- file

pop<- read.csv("pop2.csv", header=F)

obj1@pop <-as.factor (pop$V1)

gpee <- genind2genpop(obj1)

Dgen <- dist.genpop(gpee,method=1)