# NOT RUN {
data(gen)
data(phe)
data(map)
W1re<-WangF(pheRaw=phe,genRaw=gen,mapRaw1=map,yygg1=NULL,
flagRIL=0,cov_en=NULL,Population="DH",WalkSpeed=1,CriLOD=2.5)
###
ws<-WangS(flag=1,CriLOD=2.5,NUM=1,pheRaw=phe,
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