# #——回声= FALSE --------------------------------------------------------- 库(GenRank) input_file < -执行(“extdata”、“CE_toydata.txt”,包=“GenRank”)toydata < -阅读。表(input_file头= FALSE, 9 = \ t)头(toydata ) ## ---- 回声= FALSE --------------------------------------------------------- 库(GenRank) input_file < -执行(“extdata”、“CE_toydata.txt”,包=“GenRank”)toydata < -阅读。表(input_file头= FALSE, 9 = \ t)头(toydata [1:2 ]) ## ------------------------------------------------------------------------ 库(GenRank) input_file < -执行(“extdata”、“CE_toydata.txt”,包=“GenRank”)CE_ranks < - ComputeCE (input_file, PC =“平等”)负责人(CE_ranks ) ## ------------------------------------------------------------------------ evid。重量< - c (1, - 1, 0.8, 0.8, 0.5, 1 ) ## ------------------------------------------------------------------------ file1 < -阅读。表(input_file头= FALSE, 9 =“t \”,stringsAsFactors = FALSE)名称(表(file1 [2 ])) ## ------------------------------------------------------------------------ CE_ranks_cust < - ComputeCE (input_file, PC =“定制”,cust。权重(CE_ranks_cust = evid.weight)的头 ) ## ------------------------------------------------------------------------ 库(GenRank) input_file < -执行(“extdata”、“RP_toydata.txt”,包=“GenRank”)signif。val < - c(‘L’,‘L’,‘H’,‘L’,‘H’,‘L’)RP_ranks < ComputeRP (signif input_file。Type = signif。val) head(RP_ranks) ## ------------------------------------------------------------------------ RP_ranks_cust <- ComputeRP(input_file, signif.type = signif.val, n.perm=200, setseed=1234) head(RP_ranks_cust) ## ------------------------------------------------------------------------ library(GenRank) input_file_P <- system.file("extdata","CombP_toydata.txt",package="GenRank") CP_ranking <- CombP(input_file_P, method = "fisher", na.remove = TRUE) head(CP_ranking) ## ------------------------------------------------------------------------ cus.weights <- c(100,50,200,300,150,400) CP_ranking_z <- CombP(input_file_P, method = "z.transform", na.remove = TRUE, weight = cus.weights) head(CP_ranking_z)