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