if(require(hierfstat) & require(genetics)){
obj <- read.fstat(system.file("data/diploid.dat",package="hierfstat"))
X <- genind2hierfstat(obj)
X
read.fstat.data(paste(.path.package("hierfstat"),"/data/diploid.dat",sep="",collapse=""),nloc=5)
genind2genotype(obj)
}
Run the code above in your browser using DataLab