data(wgscan.cgu)
## results from a genome scan (44,057 SNPs) see ?wgscan.eut for details
val.ihs<-ihh2ihs(wgscan.cgu)$res.ihs[,3]
##standardize
distribplot(val.ihs,main="iHS (CGU population)")
dev.off()
Run the code above in your browser using DataLab