{"id":61691,"date":"2024-11-19T15:29:21","date_gmt":"2024-11-19T07:29:21","guid":{"rendered":"http:\/\/www.biocloudservice.com\/wordpress\/?p=61691"},"modified":"2024-11-19T15:29:21","modified_gmt":"2024-11-19T07:29:21","slug":"%e7%9c%8bai%e7%a5%9e%e5%99%a8%e5%a4%a7%e5%b1%95%e8%ba%ab%e6%89%8b%ef%bc%8cledpred%e5%8c%85%e5%b8%a6%e4%bd%a0%e7%8e%a9%e8%bd%ac%e7%94%9f%e7%89%a9%e8%b0%83%e6%8e%a7%e7%bd%91%e7%bb%9c%ef%bc%81","status":"publish","type":"post","link":"http:\/\/www.biocloudservice.com\/wordpress\/?p=61691","title":{"rendered":"\u770bAI\u795e\u5668\u5927\u5c55\u8eab\u624b\uff0cLedPred\u5305\u5e26\u4f60\u73a9\u8f6c\u751f\u7269\u8c03\u63a7\u7f51\u7edc\uff01"},"content":{"rendered":"\n

<\/p>\n\n\n\n

\u563f\u670b\u53cb\u4eec\uff0c\u5c0f\u679c\u5411\u5bfc\u53c8\u6765\u5566\uff01\u4eca\u5929\uff0c\u6211\u4eec\u8981\u4e00\u8d77\u6311\u6218\u7684\u662f\u751f\u7269\u8fc7\u7a0b\u4e2d\u7684\u8c03\u63a7\u7f51\u7edc\uff0c\u8fd9\u53ef\u662f\u4e2a\u5927\u6709\u53ef\u4e3a\u7684\u4efb\u52a1\u54e6\uff01\u4e3a\u4e86\u66f4\u597d\u5730\u89e3\u51b3\u8fd9\u4e2a\u95ee\u9898\uff0c\u6211\u4eec\u5c06\u501f\u52a9\u5f53\u524d\u975e\u5e38\u70ed\u95e8\u7684\u4eba\u5de5\u667a\u80fd\u6280\u672f\u3002\u8ba9\u6211\u4eec\u4e00\u8d77\u63ed\u5f00\u8fd9\u4e2a\u795e\u79d8\u9886\u57df\u7684\u9762\u7eb1\uff0c\u5f00\u59cb\u6211\u4eec\u7684\u63a2\u7d22\u4e4b\u65c5\u5427\uff01<\/p>\n\n\n\n

\u751f\u7269\u8fc7\u7a0b\uff0c\u6bd4\u5982\u7ec6\u80de\/\u7ec4\u7ec7\u7684\u5206\u5316\uff0c\u6d89\u53ca\u5230\u8bb8\u591a\u8f6c\u5f55\u56e0\u5b50\u548c\u4fe1\u53f7\u8f93\u5165\u7684\u8c03\u63a7\u7f51\u7edc\u3002\u8fd9\u4e9b\u7f51\u7edc\u7684\u590d\u6742\u6027\u4ee5\u53ca\u5b83\u4eec\u5728\u63a7\u5236\u4e0b\u6e38\u57fa\u56e0\u7f51\u7edc\u65b9\u9762\u7684\u4f5c\u7528\uff0c\u81f3\u4eca\u4ecd\u5b58\u5728\u5f88\u591a\u672a\u89e3\u4e4b\u8c1c\u3002\u4f46\u522b\u62c5\u5fc3\uff0c\u6709\u4e86LedPred\u8fd9\u4e2a\u795e\u5947\u7684\u5305\uff0c\u6211\u4eec\u5c31\u53ef\u4ee5\u8f7b\u677e\u9884\u6d4b\u65b0\u7684\u987a\u5f0f\u8c03\u8282\u6a21\u5757\u5566\uff01\u901a\u8fc7\u652f\u6301\u5411\u91cf\u673a\uff08SVM\uff09\u5b66\u4e60\u8f6c\u5f55\u56e0\u5b50\u7ed3\u5408\u4f4d\u70b9\uff08TFBS\uff09\u7684\u6a21\u5f0f\u3001\u4e8c\u4ee3\u6d4b\u5e8f\u6570\u636e\u4fe1\u53f7\uff0c\u4ee5\u53ca\u9884\u5148\u8ba1\u7b97\u7684\u6570\u503c\uff0c\u6700\u7ec8\u6211\u4eec\u5c31\u80fd\u6210\u529f\u9884\u6d4b\u51fa\u65b0\u7684\u987a\u5f0f\u8c03\u8282\u6a21\u5757\uff08CRMs\uff09\u5566\uff01\u8fd9\u4e2aR<\/strong>\u5305\u64cd\u4f5c\u5360\u7528\u5185\u5b58\u6bd4\u8f83\u5927\uff0c\u5efa\u8bae\u4f7f\u7528\u670d\u52a1\u5668<\/strong>\u54e6<\/strong>\uff0c\u6b22\u8fce\u8054\u7cfb\u5c0f\u679c\u79df\u8d41\u6027\u4ef7\u6bd4\u9ad8\u7684\u670d\u52a1\u5668<\/strong>~<\/strong><\/p>\n\n\n\n

\u63a5\u4e0b\u6765\uff0c\u5c0f\u679c\u5c06\u5f15\u9886\u5927\u5bb6\u9010\u6b65\u638c\u63e1\u64cd\u4f5c\u6d41\u7a0b\uff0c\u4ece\u4f7f\u7528\u5df2\u77e5\u7684\u8c03\u63a7\u5143\u7d20\u5f00\u59cb\uff0c\u5230\u9884\u6d4b\u65b0\u7684\u987a\u5f0f\u8c03\u63a7\u6a21\u5757\uff0c\u6211\u4eec\u5c06\u4e00\u540c\u63ed\u793a\u751f\u7269\u8fc7\u7a0b\u4e2d\u8c03\u63a7\u7f51\u7edc\u7684\u5965\u79d8\u3002\u5982\u679c\u4f60\u5728\u65c5\u9014\u4e2d\u9047\u5230\u4efb\u4f55\u56f0\u96be\uff0c\u522b\u62c5\u5fc3\uff0c\u5c0f\u679c\u968f\u65f6\u5f85\u547d\uff0c\u8bb0\u5f97\u8054\u7cfb\u5c0f\u679c\u4e3a\u4f60\u89e3\u7b54\u7591\u60d1~<\/strong><\/strong><\/p>\n\n\n\n

\u6211\u4eec\u5148\u5b89\u88c5\u5e76\u52a0\u8f7dLedPred\u5305\uff1a<\/p>\n\n\n\n

if (!require(“BiocManager”, quietly = TRUE))<\/p>\n\n\n\n

  install.packages(“BiocManager”)<\/p>\n\n\n\n

BiocManager::install(“LedPred”)<\/p>\n\n\n\n

library(LedPred)<\/p>\n\n\n\n

\u4e00\u3001\u6784\u5efa\u8bad\u7ec3\u96c6<\/strong><\/strong><\/p>\n\n\n\n

\u5728LedPred\u5305\u4e2d\uff0cmapFeaturesToCRMs\u51fd\u6570\u80fd\u591f\u5e2e\u52a9\u6211\u4eec\u4ecebed CRM \u57fa\u56e0\u7ec4\u5750\u6807\u7b49\u6587\u4ef6\u4e2d\u5904\u7406\u6570\u636e\u5f97\u5230\u8bad\u7ec3\u96c6\uff0c\u611f\u5174\u8da3\u7684\u5c0f\u4f19\u4f34\u53ef\u4ee5\u81ea\u884c\u5c1d\u8bd5\u3002\u5728\u8fd9\u91cc\uff0c\u53ef\u4ee5\u76f4\u63a5\u8c03\u7528\u5df2\u7ecf\u5904\u7406\u597d\u7684\u6570\u636e~ <\/p>\n\n\n\n

crm.features <- read.table(“crm.features.txt”, header = TRUE, sep = “\\t”)<\/p>\n\n\n\n

\u8fd9\u6279\u6570\u636e\u662f\u901a\u8fc7\u77e9\u9635\u626b\u63cf\u548c\u8bc4\u5206\u679c\u8747\u7684\u57fa\u56e0\u7ec4\u5e8f\u5217\u6765\u751f\u6210\u7684\uff0c\u4e3b\u8981\u5173\u6ce8\u7684\u662f\u53c2\u4e0e\u5fc3\u810f\u5206\u5316\u7684\u533a\u57df\u3002\u6211\u4eec\u4f7f\u7528\u4e00\u4e2a\u7279\u5f81\u77e9\u9635\u4f5c\u4e3a\u8bad\u7ec3\u96c6\uff0c\u6bcf\u4e2a\u57fa\u56e0\u7ec4\u533a\u57df\u4e00\u884c\uff0c\u6bcf\u4e2a\u7279\u5f81\u4e00\u5217\uff0c\u8fd8\u6709\u4e00\u4e2a\u8868\u793a\u6b63\u8d1f\u5e8f\u5217\u7684\u4e8c\u8fdb\u5236\u54cd\u5e94\u5217\u3002<\/p>\n\n\n\n

\u4e8c\u3001\u6a21\u578b\u6700\u4f18\u53c2\u6570\u9009\u62e9<\/strong><\/strong><\/p>\n\n\n\n

\u4f7f\u7528\u673a\u5668\u5b66\u4e60\u65b9\u6cd5\uff0c\u7ed3\u5408\u4f4d\u7f6e\u7279\u5f02\u6027\u8bc4\u5206\u77e9\u9635\uff08PSSMs\uff09\u7684\u4fe1\u606f\uff0c\u53ef\u4ee5\u6784\u5efa\u4e00\u4e2a\u80fd\u591f\u533a\u5206\u6b63\u8d1f\u6837\u672c\u7684\u6a21\u578b\u3002\u652f\u6301\u5411\u91cf\u673a\uff08SVM\uff09\u6a21\u578b\u53ef\u4ee5\u91c7\u7528\u7ebf\u6027\u6838\u6216\u5f84\u5411\u6838\u3002\u7ebf\u6027\u6838\u5047\u8bbe\u5b58\u5728\u7ebf\u6027\u8d85\u5e73\u9762\u53ef\u533a\u5206\u6b63\u8d1f\u6837\u672c\uff0c\u800c\u5f84\u5411\u6838\u5219\u5c06\u63cf\u8ff0\u6027\u7279\u5f81\u7a7a\u95f4\u6620\u5c04\u5230\u66f4\u9ad8\u7ef4\u5ea6\u7684\u7a7a\u95f4\uff0c\u9002\u7528\u4e8e\u65e0\u6cd5\u901a\u8fc7\u7ebf\u6027\u8d85\u5e73\u9762\u533a\u5206\u6b63\u8d1f\u6837\u672c\u7684\u60c5\u51b5\u3002<\/p>\n\n\n\n

\u5728\u4f18\u5316\u8fc7\u7a0b\u4e2d\uff0c\u5f15\u5165\u4ee3\u4ef7\u53c2\u6570C\u548c\u03b3\u53c2\u6570\u6709\u52a9\u4e8e\u907f\u514d\u8fc7\u62df\u5408\uff0c\u589e\u52a0\u6a21\u578b\u7684\u901a\u7528\u6027\u3002\u4e3a\u4e86\u627e\u5230\u6700\u4f73\u7684\u53c2\u6570\u7ec4\u5408\uff0c\u53ef\u4ee5\u4f7f\u7528mcTune\u51fd\u6570\u6765\u6d4b\u8bd5\u4e0d\u540c\u7684C\u548c\u03b3\u53c2\u6570\uff0c\u901a\u8fc7\u4ea4\u53c9\u9a8c\u8bc1\u8ba1\u7b97\u9884\u6d4b\u8bef\u5dee\uff0c\u627e\u5230\u6700\u4f73\u53c2\u6570\u3002\u9996\u5148\u53ef\u4ee5\u5b9a\u4e49 cost.vector \u548c gamma.vector\uff0c\u5206\u522b\u5305\u542b\u4e86\u6570\u503c 1, 3, 10, \u548c 30\u3002\u8fd9\u4e9b\u503c\u88ab\u7528\u4f5c mcTune \u51fd\u6570\u8c03\u4f18\u53c2\u6570\u7684\u5019\u9009\u503c<\/a>\u3002<\/p>\n\n\n\n

<\/a>cost.vector <- c(1,3,10,30)<\/p>\n\n\n\n

gamma.vector <- c(1,3,10,30)<\/p>\n\n\n\n

\u63a5\u4e0b\u6765\u8c03\u7528mcTune \u51fd\u6570\uff0c\u4f20\u5165\u6570\u636e\u96c6data = crm.features\u53ca\u521a\u521a\u5b9a\u4e49\u7684\u8c03\u4f18\u53c2\u6570\u5019\u9009\u503c\uff0c\u5b9a\u4e49file.prefix\u53ef\u4ee5\u81ea\u52a8\u4fdd\u5b58\u8c03\u53c2\u7684\u53ef\u89c6\u5316\u56fe\u3002\u6ce8\u610f\u54e6\uff0c\u82e5\u6ca1\u6709\u6307\u5b9akernel\u65f6\uff0c\u9ed8\u8ba4\u4f7f\u7528\u7684\u662f\u5f84\u5411\u6838\uff0c\u56e0\u6b64\u6211\u4eec\u4e5f\u53ef\u4ee5\u4fee\u6539\u53c2\u6570kernel\u4e3a’linear’\uff0c\u4e5f\u5c31\u662f\u7ebf\u6027\u6838\u3002<\/p>\n\n\n\n

#c.g.obj <- mcTune(data = crm.features, ranges = list(cost=cost.vector, gamma=gamma.vector), file.prefix = “vignette_2”)<\/p>\n\n\n\n

c.g.obj <- mcTune(data = crm.features, ranges = list(cost=cost.vector, gamma=gamma.vector), kernel<\/a>=’linear’, file.prefix = “vignette_2”)<\/p>\n\n\n\n

mcTune \u51fd\u6570\u8fd4\u56de\u4e00\u4e2a\u540d\u4e3a c.g.obj \u7684\u5bf9\u8c61\uff0c\u5176\u4e2d\u5305\u542b\u4e86\u6a21\u578b\u8c03\u4f18\u7684\u7ed3\u679c\u3002\u4f7f\u7528 names(c.g.obj) \u51fd\u6570\u53ef\u4ee5\u67e5\u770b c.g.obj \u5bf9\u8c61\u4e2d\u5305\u542b\u7684\u5185\u5bb9\u7684\u540d\u79f0\u3002<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

\u63a5\u4e0b\u6765\u4ece c.g.obj \u5bf9\u8c61\u4e2d\u63d0\u53d6\u6211\u4eec\u60f3\u8981\u7684\u6700\u4f73\u7684 cost \u548c gamma \u53c2\u6570\u503c\u3002<\/p>\n\n\n\n

cost <- c.g.obj$e1071.tune.obj$best.parameters$cost<\/p>\n\n\n\n

gamma <- c.g.obj$e1071.tune.obj$best.parameters$gamma<\/p>\n\n\n\n

\u8ba9\u6211\u4eec\u6253\u5f00\u770b\u770bmcTune \u51fd\u6570\u81ea\u52a8\u4fdd\u5b58\u7684\u8c03\u53c2\u53ef\u89c6\u5316\u56fe\u5427\uff01\u56fe\u4e2d\u663e\u793a\u4e86\u4e0d\u540c cost \u548c gamma \u503c\u7684\u7f51\u683c\u641c\u7d22\u7ed3\u679c\uff0c\u989c\u8272\u8868\u793a\u67d0\u79cd\u6027\u80fd\u6307\u6807\uff08\u4f8b\u5982\u8bef\u5dee\u7387\u6216\u51c6\u786e\u7387\uff09\u3002\u5728\u56fe\u4e2d\uff0ccost \u548c gamma \u7684\u6700\u4f73\u7ec4\u5408\uff08\u5373\u6027\u80fd\u6307\u6807\u6700\u4f18\u7684\u70b9\uff09\u4f4d\u4e8e cost = 1 \u548c gamma = 1 \u7684\u4f4d\u7f6e\u3002<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

\u4e09\u3001\u7279\u5f81\u91cd\u8981\u6027\u6392\u5e8f\u548c\u7279\u5f81\u9009\u62e9<\/strong><\/strong><\/p>\n\n\n\n

\u5229\u7528\u9012\u5f52\u7279\u5f81\u6d88\u9664\uff08RFE\uff09\uff0c\u53ef\u4ee5\u8ba1\u7b97\u57fa\u4e8e”\u91cd\u8981\u6027”\u964d\u5e8f\u6392\u5217\u7684\u7279\u5f81\u5217\u8868\u3002\u5728\u8fd9\u4e2a\u8fc7\u7a0b\u4e2d\uff0cSVM\u5c06\u5728\u7279\u5f81\u77e9\u9635\u7684\u5b50\u96c6\u4e0a\u8fdb\u884c\u8bad\u7ec3\uff0c\u7136\u540e\u6839\u636e\u5206\u7c7b\u5668\u7ed9\u51fa\u7684\u6743\u91cd\u5bf9\u7279\u5f81\u8fdb\u884c\u6392\u5e8f\uff0c\u6bcf\u4e2a\u7279\u5f81\u5c06\u88ab\u5206\u914d\u4e00\u4e2a\u5e73\u5747\u6392\u540d\u3002\u4f7f\u7528rankFeatures\u51fd\u6570\u6267\u884cRFE\uff0c\u53ef\u662f\u5b9e\u73b0\u7279\u5f81\u7684\u91cd\u8981\u6027\u6392\u5e8f\u3002<\/p>\n\n\n\n

feature.ranking <- rankFeatures(data=crm.features, cost=cost, gamma=gamma, kernel=’linear’, file.prefix = “vignette”)<\/p>\n\n\n\n

head(feature.ranking)<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

<\/a>\u63a5\u4e0b\u6765\uff0c\u6211\u4eec\u5c31\u53ef\u4ee5\u4f7f\u7528tuneFeatureNb<\/a>\u51fd\u6570\u6839\u636e\u7279\u5f81\u7684\u91cd\u8981\u6027\u8fdb\u884c\u964d\u5e8f\u6392\u5217\uff0c\u5e76\u5728\u7279\u5f81\u77e9\u9635\u4e0a\u8ba1\u7b97kappa\u5ea6\u91cf\u3002\u5b83\u4ece\u4e00\u4e2a\u7279\u5f81\u5f00\u59cb\uff0c\u9010\u6b65\u589e\u52a0\u5305\u542b\u5728\u77e9\u9635\u4e2d\u7684\u7279\u5f81\u6570\u91cf\uff08\u901a\u8fc7`nb.step`\u53c2\u6570\uff09\uff0c\u76f4\u5230\u6240\u6709\u7279\u5f81\u90fd\u88ab\u5305\u542b\u3002<\/p>\n\n\n\n

feature.nb.tuner.obj <- tuneFeatureNb(data=crm.features, feature.ranking=feature.ranking, kernel=’linear’, cost=cost, gamma=gamma, file.prefix = “vignette”)<\/p>\n\n\n\n

\u51fd\u6570\u8fd4\u56de\u7684\u5bf9\u8c61\u603b\u7ed3\u4e86\u6a21\u578b\u4e2d\u5305\u542b\u7684\u4e0d\u540c\u6570\u91cf\u7684\u7279\u5f81\u7684kappa\u7cfb\u6570\uff0c\u6211\u4eec\u53ef\u4ee5\u4fdd\u7559\u5bf9\u5e94\u4e8e\u6700\u9ad8kappa\u7684\u7279\u5f81\u6570\u91cf\uff0c\u5728\u8fd9\u91cc\u4e3a\u524d60\u4e2a\u7279\u5f81\u3002<\/p>\n\n\n\n

names(feature.nb.tuner.obj)<\/p>\n\n\n\n

feature.nb.tuner.obj$best.feature.nb<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

\u5206\u6790tuneFeatureNb\u51fd\u6570\u81ea\u52a8\u751f\u6210\u7684\u56fe\uff0c\u6211\u4eec\u53ef\u4ee5\u53d1\u73b0\uff1a\u9009\u62e9\u7279\u5b9a\u6570\u91cf\u7684\u7279\u5f81\u53ef\u4ee5\u83b7\u5f97\u6700\u4f73\u7684\u6a21\u578b\u6027\u80fd\uff0c\u5728\u8fd9\u91cc\u662f\u9009\u62e9\u524d60\u4e2a\u7279\u5f81\u65f6\u6a21\u578b\u8868\u73b0\u6700\u4f73\u3002<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

\u56db\u3001\u6a21\u578b\u7684\u6784\u5efa<\/strong><\/strong><\/p>\n\n\n\n

\u5728\u786e\u5b9a\u4e86\u6700\u4f18\u53c2\u6570\u548c\u7279\u5f81\u540e\uff0c\u6211\u4eec\u5c31\u53ef\u4ee5\u521b\u5efa\u51fa\u6700\u4f73\u6a21\u578b\u5566\uff01 createModel \u51fd\u6570\u53ef\u4ee5\u4f7f\u7528\u8c03\u6574\u540e\u7684 SVM \u53c2\u6570\u3001\u6392\u5e8f\u7684\u7279\u5f81\u548c\u6700\u4f73\u7279\u5f81\u6570\u91cf\uff0c\u5e76\u8fd4\u56de\u6700\u4f73\u7684 SVM \u6a21\u578b\u3002<\/p>\n\n\n\n

feature.nb.tuner.obj <- tuneFeatureNb(data=crm.features, feature.ranking=feature.ranking, kernel=’linear’, cost=cost, gamma=gamma, file.prefix = “vignette”)<\/p>\n\n\n\n

names(feature.nb.tuner.obj)<\/p>\n\n\n\n

feature.nb.tuner.obj$best.feature.nb<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

\u4ee5\u4e0a\u8f93\u51fa\u63d0\u4f9b\u4e86\u5173\u4e8e\u6240\u521b\u5efa\u7684 SVM \u6a21\u578b\u7684\u91cd\u8981\u4fe1\u606f\uff0c\u5305\u62ec\u4e86\u6a21\u578b\u53c2\u6570\u7684\u8bbe\u7f6e\u3001\u6838\u51fd\u6570\u7c7b\u578b\u3001\u8d85\u53c2\u6570\u503c\u548c\u652f\u6301\u5411\u91cf\u7684\u6570\u91cf\u7b49\uff0c\u6709\u52a9\u4e8e\u6211\u4eec\u7406\u89e3\u6a21\u578b\u7684\u7ed3\u6784\u548c\u6027\u80fd\u7279\u70b9\u3002<\/p>\n\n\n\n

\u53e6\u5916\uff0c\u6211\u4eec\u8fd8\u53ef\u4ee5\u8f93\u51fa\u7279\u5f81\u5728\u8fd9\u4e2a\u6a21\u578b\u5f53\u4e2d\u7684\u6743\u91cd\u54e6\uff0c\u901a\u8fc7\u89c2\u5bdf\u7279\u5f81\u6743\u91cd\u7684\u6b63\u8d1f\u53f7\uff0c\u53ef\u4ee5\u5224\u65ad\u8be5\u7279\u5f81\u5728\u6b63\u7c7b\u522b\u548c\u8d1f\u7c7b\u522b\u4e2d\u7684\u91cd\u8981\u6027\uff0c\u4ee5\u53ca\u8be5\u7279\u5f81\u662f\u88ab\u8fc7\u5ea6\u8868\u793a\u8fd8\u662f\u4e0d\u8db3\u8868\u793a\u3002<\/p>\n\n\n\n

feature.weights <- as.data.frame(t(t(model.obj$model$coefs) %*% model.obj$model$SV))<\/p>\n\n\n\n

head(feature.weights)<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

\u7279\u5f81\u6743\u91cd\u7684\u6b63\u8d1f\u53f7\u53ef\u4ee5\u544a\u8bc9\u6211\u4eec\u7279\u5f81\u5bf9\u6a21\u578b\u7684\u9884\u6d4b\u7ed3\u679c\u5177\u6709\u6b63\u5411\u5f71\u54cd\uff08\u6b63\u6743\u91cd\uff09\u8fd8\u662f\u8d1f\u5411\u5f71\u54cd\uff08\u8d1f\u6743\u91cd\uff09\u3002\u5c55\u793a\u7279\u5f81\u6743\u91cd\u7684\u524d\u51e0\u884c\u5185\u5bb9\u6709\u52a9\u4e8e\u6211\u4eec\u4e86\u89e3\u6a21\u578b\u5bf9\u7279\u5f81\u7684\u91cd\u8981\u6027\u6392\u5e8f\u4ee5\u53ca\u7279\u5f81\u5728\u9884\u6d4b\u4e2d\u7684\u4f5c\u7528\u3002<\/p>\n\n\n\n

<\/a>\u4e94\u3001\u6a21\u578b\u7684\u8bc4\u4f30<\/strong><\/strong><\/p>\n\n\n\n

evaluateModelPerformance\u51fd\u6570\u53ef\u4ee5\u8fd4\u56de\u5728\u4ea4\u53c9\u9a8c\u8bc1\u8f6e\u6b21\u4e2d\u8ba1\u7b97\u7684\u9884\u6d4b\u6982\u7387\uff0c\u5e76\u7ed8\u5236\u6027\u80fd\u7ed3\u679c\u3002<\/p>\n\n\n\n

probs.labels.list <- evaluateModelPerformance(data=crm.features, feature.ranking=feature.ranking, feature.nb=feature.nb, cost=cost, gamma=gamma, file.prefix = “vignette”)<\/p>\n\n\n\n

\u8fd9\u4e2a\u51fd\u6570\u53ef\u4ee5\u751f\u6210\u4e0b\u97624\u5f20\u6a21\u578b\u8bc4\u4f30\u56fe\uff1aPrecision \u548c Recall \u968f\u7740\u9608\u503c\u53d8\u5316\u7684\u66f2\u7ebf\u3001Precision \u548c Recall \u6743\u8861\u5173\u7cfb\u56fe\u3001ROCR \u66f2\u7ebf\uff08\u5176\u4e2d\u5305\u542b\u66f2\u7ebf\u4e0b\u9762\u79efAUC\uff09<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

\u901a\u8fc7\u5206\u6790\u56fe\u4e2d\u7684\u66f2\u7ebf\u5f62\u6001\u3001\u6307\u6807\u6570\u503c\u4ee5\u53ca AUC \u503c\uff0c\u53ef\u4ee5\u5f97\u51fa\u5bf9\u4e8e\u6a21\u578b\u6027\u80fd\u7684\u7ed3\u8bba\u548c\u8bc4\u4f30\u3002\u4f8b\u5982\uff0c\u8be5\u6a21\u578b\u7684Precision\u4f1a\u968f\u7740\u9608\u503c\u7684\u5347\u9ad8\u800c\u5347\u9ad8\uff0c\u4f46\u662f Recall \u66f2\u7ebf\u5374\u968f\u7740\u9608\u503c\u5347\u9ad8\u800c\u4e0b\u964d\uff1b\u5f53 Precision \u548c Recall \u66f2\u7ebf\u8ddd\u79bb\u53f3\u4e0a\u89d2\u4e0d\u662f\u5f88\u8fd1\uff0c\u8868\u793a\u6a21\u578b\u5728\u4e0d\u80fd\u5f88\u597d\u5730\u517c\u987e Precision \u548c Recall\uff1bAUC \u503c\u4e3a0.91\uff0c\u6bd4\u8f83\u63a5\u8fd11\uff0c\u8bf4\u660e\u6a21\u578b\u5177\u6709\u5f88\u597d\u7684\u5206\u7c7b\u80fd\u529b\u3002\u7efc\u5408\u5404\u4e2a\u6027\u80fd\u6307\u6807\u7684\u8868\u73b0\u53ef\u4ee5\u63d0\u4f9b\u5168\u9762\u7684\u6a21\u578b\u8bc4\u4f30\u548c\u51b3\u7b56\u4f9d\u636e\u3002<\/p>\n\n\n\n

<\/a>\u516d\u3001\u6a21\u578b\u7684\u9884\u6d4b<\/strong><\/strong><\/p>\n\n\n\n

\u63a5\u4e0b\u6765\uff0c\u6211\u4eec\u7ec8\u4e8e\u53ef\u4ee5\u4f7f\u7528\u6784\u5efa\u597d\u7684\u6a21\u578b\u8fdb\u884c\u9884\u6d4b\u5566\uff01\u6211\u4eec\u53ef\u4ee5\u4f7f\u7528coreData \u51fd\u6570\u5bf9\u672a\u77e5\u77e9\u9635\u7684\u5e8f\u5217\u8fdb\u884c\u8bc4\u5206\u3002<\/p>\n\n\n\n

prediction.crm.features <- read.table(“prediction.crm.features.txt”, header = TRUE, sep = “\\t”)<\/p>\n\n\n\n

pred.test <- scoreData(data=prediction.crm.features, model=model.obj, score.file=”vignette_prediction.tab”)<\/p>\n\n\n\n

head(pred.test)<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

\u7ed3\u679c\u663e\u793a\uff0c\u6a21\u578b\u5bf9\u6d4b\u8bd5\u96c6\u4e2d\u7684\u6570\u636e\u9884\u6d4b\u503c\u90fd\u975e\u5e38\u63a5\u8fd11\uff0c\u8fd9\u548c\u771f\u5b9e\u503c\u76f8\u7b26\uff0c\u8fd9\u8bf4\u660e\u6211\u4eec\u6784\u5efa\u6a21\u578b\u7684\u6cdb\u5316\u80fd\u529b\u8fd8\u4e0d\u9519\u54e6\uff01<\/p>\n\n\n\n