# NOT RUN {
data(F2data)
readraw<-Readdata(file=F2data,fileFormat="GCIM",
method="GCIM-QEI",filecov=NULL,
MCIMmap=NULL,MultiEnv=TRUE)
DoResult<-Dodata(fileFormat="GCIM",
Population="F2",method="GCIM-QEI",
Model="Random",readraw,MultiEnv=TRUE)
ZhouMatrices<-ZhouF(pheRaw=DoResult$pheRaw,
genRaw=DoResult$genRaw,mapRaw1=DoResult$mapRaw1,
WalkSpeed=1,CriLOD=3,dir=tempdir())
OutputZhou<-ZhouMethod(Model="Random",
pheRaw=DoResult$pheRaw,genRaw=DoResult$genRaw,
mapRaw=ZhouMatrices$mapRaw,CriLOD=3,NUM=1,
EnvNum=DoResult$EnvNum,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