R语言 foreach并行执行求两两基因之间的功能相似度

file里面是基因以及对应的功能，要计算两两基因间的功能相似度，普通for循环太慢了，故用foreach并行操作：

library(GOSemSim)
library(data.table)
library(org.Mm.eg.db)
library(foreach)
library(doParallel)

getDoParWorkers()
detectCores()
registerDoParallel(4)

getDoParWorkers( )    #查看注册了多少个核，配合doMC package中的registerDoMC( )使用
getDoParRegistered( ) # 查看doPar是否注册；如果没有注册返回FALSE
getDoParName( )       #查看已经注册的doPar的名字
getDoParVersion( )    #查看已经注册的doPar的version



file <- read.table('human_mus_bpgo_reviewed.txt',sep=',')

final_res <- list()
m