# NOT RUN {
data(DHdata)
readraw<-Readdata(file=DHdata,fileFormat="GCIM",
method="GCIM",filecov=NULL,MCIMmap=NULL,MultiEnv=FALSE)
DoResult<-Dodata(fileFormat="GCIM",Population="DH",
method="GCIM",Model="Random",readraw,MultiEnv=FALSE)
W1re<-WangF(pheRaw=DoResult$pheRaw,genRaw=DoResult$genRaw,
mapRaw1=DoResult$mapRaw1,yygg1=DoResult$yygg1,
flagRIL=DoResult$flagRIL,cov_en=DoResult$cov_en,
Population="DH",WalkSpeed=1,CriLOD=2.5)
ws<-WangS(flag=DoResult$flag,CriLOD=2.5,NUM=1,
pheRaw=DoResult$pheRaw,chrRaw_name=W1re$chrRaw_name,
yygg=W1re$yygg,mx=W1re$mx,phe=W1re$phe,
chr_name=W1re$chr_name,gen=W1re$gen,
mapname=W1re$mapname,CLO=1)
# }
Run the code above in your browser using DataLab