if (FALSE) {
f <- "ZPI_dr.p.gz"
varlist=c("Chromosome","Position","MarkerName","Allele1","Allele2",
"Freq1","FreqSE","MinFreq","MaxFreq",
"Effect","StdErr","log10P","Direction",
"HetISq","HetChiSq","HetDf","logHetP","N")
d <- read.table(f,col.names=varlist,check.names=FALSE)
qtlFinder(d)
}
Run the code above in your browser using DataLab