# #——main_benchmark ------------------------------------------------------ 图书馆(netbenchmark) top20。aupr <- netbenchmark(methods="all"， datasoures .names =" Toy"， local.noise=20，全局。noise=10, noiseType=c("normal"，"lognormal")，数据集。num = 2,实验= 40,种子= 1422976420,verbose = FALSE) # #——打印 --------------------------------------------------------------- 打印(top20.aupr [[1 ]]) ## ---- wrapper_examples ---------------------------------------------------- Spearmancor < -功能(数据){软木(数据、方法=“枪兵”)}Pearsoncor < -功能(数据){软木(数据、方法= "皮尔森 ") } ## ---- evaluate_grn -------------------------------------------------------- res < - netbenchmark (datasources.names =“syntren300”,方法= c(“Spearmancor”、“Pearsoncor”),详细= FALSE) aupr < - res [[1]] [(1:2 )] ## ---- 无花果。宽度= 7,fig.height = 6 ------------------------------------------- 箱线图(aupr主要=“Syntren300 ylab =表达式(“aupr”[20 ])) ## ---- 无花果。宽度= 7,fig.height = 6 ------------------------------------------- 公关< - res[[5]][[1]]坳< -彩虹(3)情节(公关rec美元[1],公关pre[1],美元=“l”型,lwd = 3 =[1]上校,上校xlab =“回忆”起,ylab =“精度”,主要=“Syntren300 xlim = c (0, 1), ylim = c(0,1))行(公关rec美元[2],公关pre[2],美元=“l”型,lwd = 3 =[2])上校上校线(公关rec美元[3],公关pre[3],美元=“l”型,lwd = 3 =[3])上校上校的传奇人物(“topright”,插图= . 05,title =“方法”,colnames (PR rec美元),填补=)# #——compare_grn上校 --------------------------------------------------------- comp < - netbenchmark (datasources.names =“syntren300”方法= c(“all.fast”、“Spearmancor”,“Pearsoncor”),详细= FALSE) aupr < - comp [[1]] [(1:2 )] ## ---- 无花果。宽度= 7,fig.height = 6 ------------------------------------------- # 让这个名字看起来prety库(“工具”)colnames (aupr) < -酸式焦磷酸钠(colnames (aupr) file_path_sans_ext)箱线图(aupr主要=“Syntren300”,ylab =表达式(“aupr”[20]))