# NOT RUN {
data(genf2)
data(phef2)
data(mapf2)
WEN1re<-WenF(pheRaw=phef2,genRaw=genf2,mapRaw1=mapf2,
yygg1=NULL,cov_en=NULL,WalkSpeed=1,CriLOD=2.5,dir=tempdir())
###
ws<-WenS(flag=1,CriLOD=2.5,NUM=1,pheRaw=phef2,
Likelihood="REML",setseed=11001,flagrqtl=FALSE,
yygg=WEN1re$yygg,mx=WEN1re$mx,phe=WEN1re$phe,
chr_name=WEN1re$chr_name,v.map=WEN1re$v.map,
gen.raw=WEN1re$gen.raw,a.gen.orig=WEN1re$a.gen.orig,
d.gen.orig=WEN1re$d.gen.orig,n=WEN1re$n,
names.insert2=WEN1re$names.insert2,
X.ad.tran.data=WEN1re$X.ad.tran.data,
X.ad.t4=WEN1re$X.ad.t4,dir=tempdir())
# }
Run the code above in your browser using DataLab