data/CEUData.R

CEUData<-utils::read.table("hapmapCEU.txt", header=TRUE)
CEUSNP <- CEUData[-1,]
for (LDindex in 1:length(CEUSNP))
     CEUSNP[,LDindex] <- genetics::as.genotype(CEUSNP[,LDindex])
CEUDist<- as.vector(as.matrix(CEUData[1,]), mode="numeric")
rm(LDindex, CEUData)
gloriayxf/gloriayxf.github.io documentation built on May 18, 2019, 3:42 p.m.