# NOT RUN {
data(F2data)
readraw<-Readdata(file=F2data,fileFormat="GCIM",
method="GCIM-QEI",filecov=NULL,
MCIMmap=NULL,MultiEnv=FALSE)
DoResult<-Dodata(fileFormat="GCIM",Population="F2",
method="GCIM-QEI",Model="Random",
readraw,MultiEnv=FALSE)
ZhouMatrices<-ZhouF(pheRaw=DoResult$pheRaw,
genRaw=DoResult$genRaw,mapRaw1=DoResult$mapRaw1,
WalkSpeed=1,CriLOD=3,dir=tempdir())
OutputZhou<-ZhouMethod_single_env(Model="Random",
pheRaw=DoResult$pheRaw,genRaw=DoResult$genRaw,
mapRaw=ZhouMatrices$mapRaw,CriLOD=3,NUM=1,
yygg=DoResult$yygg1,genoname=ZhouMatrices$genoname,
Ax0=ZhouMatrices$Ax0,Hx0=ZhouMatrices$Hx0,
Bx0=ZhouMatrices$Bx0,Ax=ZhouMatrices$Ax,
Hx=ZhouMatrices$Hx,Bx=ZhouMatrices$Bx,
dir=tempdir(),CriDis=5,CLO=2)
# }
Run the code above in your browser using DataLab