data-raw/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)
usethis::use_data(CEUSNP,CEUDist, overwrite = TRUE)
SFUStatgen/LDheatmap documentation built on Feb. 25, 2023, 12:57 a.m.