安装msigdbr_10.0.2.tar.gz以及以下版本时,
运行以下代码提示找不到继承方法
expr <- as.matrix(expr)
head(expr)
expr <- expr[rowSums(expr)>0,]#过滤细胞表达量全为零的基因
library(msigdbr)
msigdbr_collections()
#选择基因集合
mouse_KEGG = msigdbr(species = "Mus musculus", #物种
category = "C2",
subcategory = "CP:KEGG_LEGACY") %>%
dplyr::select(gs_name,gene_symbol)#这里可以选择gene symbol或者ID
mouse_KEGG_Set = mouse_KEGG %>% split(x = .$gene_symbol, f = .$gs_name)#list
gsva.kegg <- gsva(expr, gset.idx.list = mouse_KEGG_Set,
kcdf="Gaussian",
method = "gsva",
parallel.sz=1)

安装msigdbr_24.1.0.tar.gz版本时,运行以上代码提示连接超时
