Commit dd7ffffe authored by Rauschenberger's avatar Rauschenberger
Browse files

automation

parent e8e3290a
......@@ -879,7 +879,8 @@ test.multiple <- function(Y,X,map,rho=c(0,0.5,1),spec=4){
parallel::clusterSetRNGStream(cl=cluster,iseed=1)
#parallel::clusterExport(cl=cluster,varlist=c("Y","X","map","limit","steps","rho"),envir=environment())
start <- Sys.time()
pvalue <- parallel::parLapply(cl=cluster,X=seq_len(p),fun=function(i) spliceQTL::test.single(Y=Y,X=X,map=map,i=i,limit=limit,steps=steps,rho=rho))
parallel::clusterEvalQ(cl=cluster,library(spliceQTL))
pvalue <- parallel::parLapply(cl=cluster,X=seq_len(p),fun=function(i) test.single(Y=Y,X=X,map=map,i=i,limit=limit,steps=steps,rho=rho))
end <- Sys.time()
parallel::stopCluster(cluster)
rm(cluster)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment