# NOT RUN {
datH<-read.ms(system.file("extdata","2pops_asspop.txt",package="hierfstat"),what="Haplotype")
dim(datH)
head(datH[,1:10]
datS<-read.ms(system.file("extdata","2pops_asspop.txt",package="hierfstat"),what="SNP")
dim(datS)
head(datS[,1:10])
# }
Run the code above in your browser using DataLab