# #——风格,eval = TRUE,呼应= FALSE,结果= "飞机 "-------------------------- BiocStyle:乳胶 () ## ---- 设置中,回声= FALSE ----------------------------------------------------- suppressPackageStartupMessages({库(BiocParallel ) }) ## ---- 介绍 ----------------------------------------------------------------- 库(BiocParallel) # #π近似piApprox < -函数(n) {num < -矩阵(runif (2 * n), ncol = 2) d < -√num [1] ^ 2 + num [,2) ^ 2) 4 *意味着(d < = 1)} piApprox(1000) # #应用piApprox / param < - BatchtoolsParam()结果< - bplapply(代表(10 e5, 10)、piApprox BPPARAM =参数)的意思是(unlist(结果 )) ## -------------------------------------------------------------------------- registryargs < batchtoolsRegistryargs(文件。Dir = "mytempreg"，工作。dir = getwd()、包=字符(0 l),名称空间=字符(0 l),源=字符(0 l),负荷=字符(0 l))参数< - BatchtoolsParam (registryargs = registryargs)参数 ## -------------------------------------------------------------------------- 帧< - batchtoolsTemplate(“粘”很多)猫(readline(帧),9 = " \ n ") ## ---- simple_sge_example,eval = FALSE ---------------------------------------- # 库(BiocParallel) # # # # #π近似piApprox < -函数(n) {# num < -矩阵(runif (2 * n), ncol = 2) # d < - sqrt (num [1] ^ 2 + num(2) ^ 2) # 4 *意味着(d < = 1 ) # } # # < -模板系统。# package = "BiocParallel"， # "unitTests"， "test_script"， "test- size -template. "tmpl " #) #参数< BatchtoolsParam(工人= 5,集群=“白银”,模板=模板)# # # #运行并行作业#结果<——bplapply(代表(10 e5, 100), piApprox BPPARAM =参数)# #——demo_sge eval = FALSE -------------------------------------------------- # 库(BiocParallel) # # # # #π近似piApprox < -函数(n) {# num < -矩阵(runif (2 * n), ncol = 2) # d < - sqrt (num [1] ^ 2 + num(2) ^ 2) # 4 *意味着(d < = 1 ) # } # # < -模板系统。# package = "BiocParallel"， # "unitTests"， "test_script"， "test- size -template. "tmpl " #) #参数< BatchtoolsParam(工人= 5,集群=“白银”,模板=模板)# # # #开始参数# bpstart(参数)# # # #显示参数#参数# # # #显示注册后端# bpbackend(参数)# # # #寄存器参数# # # # #(参数)检查注册参数#注册 () # # ## 运行并行作业#结果< bplapply(代表(10 e5, 100), piApprox) # # bpstop(参数)# #——sessionInfo,结果= "飞机 "------------------------------------------- toLatex (sessionInfo ())