powered by
distribplot(data,lty = 1,lwd = 1.5,col = c("blue","red"), main = "Genome-wide distribution",xlab = "",cex.main = 1.5,cex.lab = 1.25,qqplot = TRUE)
data(wgscan.cgu) ## results from a genome scan (44,057 SNPs) see ?wgscan.eut for details val.ihs<-ihh2ihs(wgscan.cgu)$iHS[,3] ##standardize distribplot(val.ihs,main="iHS (CGU population)") dev.off()
Run the code above in your browser using DataLab