data(tpod)
test=gwas2(y=y,gen=gen,fam=fam,chr=chr)
par(mfrow=c(2,1))
# Example Manhattan 1
plot(x=test,colA=3,colB=1,alpha=0.05/ncol(gen),type="h",main="Example 1: Genome-Wide Bonferroni")
# Example Manhattan 2
Title = "Example 2: FDR 0.25 by Chromosome"
plot(x=test,alpha=0.05,FDR=0.25,gtz=TRUE,pch=20,main=Title)
Run the code above in your browser using DataLab