<\/title><br \/>\n<meta charset=\"utf-8\"><br \/>\n<meta name=\"viewport\" content=\"width=device-width,initial-scale=1.0,maximum-scale=1.0,user-scalable=0,viewport-fit=cover\"><\/p>\n<style>\n*{margin:0;padding:0}html{-ms-text-size-adjust:100%;-webkit-text-size-adjust:100%;line-height:1.6}img{z-index:999;position:relative;max-width:100%;margin:10px 0;}body{letter-spacing:.034em}h1,h2,h3,h4,h5,h6{font-weight:400;font-size:16px}a{color:#576b95;text-decoration:none;-webkit-tap-highlight-color:rgba(0,0,0,0)}td,th{word-wrap:break-word;padding:5px 10px;border:1px solid #DDD;}table{margin-bottom:10px;border-collapse:collapse;display:table;width:100%!important;}.appmsg_skin_default .rich_media_area_primary{background-color:#fff}.appmsg_skin_default .rich_media_area_primary .weui-loadmore_line .weui-loadmore__tips{background-color:#fff}.rich_media_area_primary{padding:20px 16px 12px;background-color:#fafafa}@media (max-width:375px){.rich_media_area_primary{padding:20px 60px 15px 60px}.rich_media_area_extra{padding:0 60px 21px 60px}}@media (min-width:1024px){.rich_media_area_primary_inner,.rich_media_area_extra_inner,body{max-width:677px;margin-left:auto;margin-right:auto}.rich_media_area_primary{padding-top:32px}}.rich_media{padding:20px;overflow:hidden;}.appmsg_skin_default .rich_media_area_primary{background-color:#fff}.appmsg_skin_default .rich_media_area_primary .weui-loadmore_line .weui-loadmore__tips{background-color:#fff}@media screen and (min-width:1024px){.rich_media_area_primary_inner,.rich_media_area_extra_inner{max-width:677px;margin-left:auto;margin-right:auto}.rich_media_area_primary{padding-top:32px}}.rich_media_content{overflow:hidden;color:#333;font-size:17px;word-wrap:break-word;-webkit-hyphens:auto;-ms-hyphens:auto;hyphens:auto;text-align:justify;position:relative;z-index:0}.rich_media_content *{max-width:100%!important;box-sizing:border-box!important;-webkit-box-sizing:border-box!important;word-wrap:break-word!important}.rich_media_content p{clear:both;min-height:1em}.rich_media_content em{font-style:italic}.rich_media_content fieldset{min-width:0}.rich_media_content .list-paddingleft-1,.rich_media_content .list-paddingleft-2,.rich_media_content .list-paddingleft-3{padding-left:2.2em}.rich_media_content .list-paddingleft-1 .list-paddingleft-2,.rich_media_content .list-paddingleft-2 .list-paddingleft-2,.rich_media_content .list-paddingleft-3 .list-paddingleft-2{padding-left:30px}.rich_media_content .list-paddingleft-1{padding-left:1.2em}.rich_media_content .list-paddingleft-3{padding-left:3.2em}.rich_media_content .code-snippet,.rich_media_content .code-snippet__fix{max-width:1000%!important}.rich_media_content .code-snippet *,.rich_media_content .code-snippet__fix *{max-width:1000%!important}.rich_media_title{font-size:22px;line-height:1.4;margin-bottom:13px;padding-bottom:13px;border-bottom:1px solid #e7e7eb;}@supports(-webkit-overflow-scrolling:touch){.rich_media_title{font-weight:700}}.rich_media_meta{display:inline-block;vertical-align:middle;padding:0 0 10px 0;font-size:15px;-webkit-tap-highlight-color:rgba(0,0,0,0)}.rich_media_meta.icon_appmsg_tag{margin-right:0px}.rich_media_meta.meta_tag_text{margin-right:0}.rich_media_meta_list em{font-style:normal}.rich_media_meta_text{color:#a5a5a5;}p{margin:0;}.msgBox{margin-top:20px;padding-top:20px;padding-left:50px;overflow:hidden;border-top:2px dashed #09a2ff;}.msg{padding-top:7px;clear:both;}.msgBody{float:right;width:100%;margin-left:55px;padding-bottom:15px;border-bottom:1px dashed #e0e0e0;}.userHeadImg{float:left;margin-left:-50px;}.userHeadImg img{width:40px;height:40px;margin-right:10px;border-radius:3px;}.userName{color:#888888;line-height:24px;font-size:14px;margin:5px 0 5px 0;height:24px;}.replyBody,.autherBody{color:#565656;font-size:15px;}.replyIcon{border-left:4px solid #33ab01;margin-right:5px;}.ad{text-decoration:none;color:#d6d4d4;font-size:12px;}.msgBodyReply{padding-top:5px;}.userName span{float:right;color:#afafaf;font-size:14px;}code{text-align:left;font-size:14px;display:block;white-space:pre;display:-webkit-box;display:-webkit-flex;display:flex;position:relative;}.code-snippet__fix{font-size:14px;margin:10px 0;display:block;color:#333;position:relative;background-color:rgba(0,0,0,0.03);border:1px solid #f0f0f0;border-radius:2px;display:-webkit-box;display:-webkit-flex;display:flex;padding-left:25px;line-height:26px}.code-snippet__fix code{text-align:left;font-size:14px;display:block;white-space:pre;display:-webkit-box;display:-webkit-flex;display:flex;position:relative;font-family:Consolas,\"Liberation Mono\",Menlo,Courier,monospace}.code-snippet__comment,.code-snippet__quote{color:#afafaf;font-style:italic}.code-snippet__keyword,.code-snippet__selector-tag,.code-snippet__subst{color:#ca7d37}.code-snippet__number,.code-snippet__literal,.code-snippet__variable,.code-snippet__template-variable,.code-snippet__tag .code-snippet__attr{color:#0e9ce5}.code-snippet__string,.code-snippet__doctag{color:#d14}.code-snippet__title,.code-snippet__section,.code-snippet__selector-id{color:#d14}.code-snippet__subst{font-weight:normal}.code-snippet__type,.code-snippet__class .code-snippet__title{color:#0e9ce5}.code-snippet__tag,.code-snippet__name,.code-snippet__attribute{color:#0e9ce5;font-weight:normal}.code-snippet__regexp,.code-snippet__link{color:#ca7d37}.code-snippet__symbol,.code-snippet__bullet{color:#d14}.code-snippet__built_in,.code-snippet__builtin-name{color:#ca7d37}.code-snippet__meta{color:#afafaf}.code-snippet__deletion{background:#fdd}.code-snippet__addition{background:#dfd}.code-snippet__emphasis{font-style:italic}.code-snippet__strong{font-weight:bold}.account_avatar{width:40px;height:40px;padding:0;}.account_info{display:-webkit-box;display:-webkit-flex;display:flex;-webkit-box-align:center;-webkit-align-items:center;padding:20px 0;align-items:center}.flex_bd{padding-left:14px;}.account_nickname{display:inline-block;vertical-align:middle;line-height:1.2;color:#576b95;font-size:14px}.account_desc{overflow:hidden;text-overflow:ellipsis;display:-webkit-box;-webkit-box-orient:vertical;-webkit-line-clamp:1;color:rgba(0,0,0,0.3);font-size:14px;line-height:1.2;padding-top:.4em}.msg_source_url{text-align:left;word-break:break-all;margin-top:20px;}.msg_source_url a{padding-right:10px;}.msg_source_url .url_text{color:#a8a8a8;}.video-desc{font-size:14px;margin-top:15px;color:#6c6c6c;}.msg_source_url{text-align:left;}.original_primary_card_tips{color:rgba(0,0,0,0.3);line-height:1.4;font-size:15px;}.weui-flex__item{margin-bottom:20px;padding:20px 16px;margin-top:16px;line-height:1.4;align-items:center;background-color:#f7f7f7;border-radius:8px;position:relative;}.original_primary_desc{color:rgba(0,0,0,0.5);font-size:14px;padding-top:4px;width:auto;overflow:hidden;text-overflow:ellipsis;}.msgBodyReplyList{border-top:1px solid #e1e1e1;margin-top:10px;}.msgBodyReplyListTop{border-top:0;}.reply_like_num{float:right;font-size:14px;color:#c7c7c7;}.msgData{margin-top:20px;color:#626262;}.msgData span{font-size:14px;padding-right:15px;}.msgData .likes{float:right;padding-right:0;}.js_text_content p{font-size:18px;}.rich_media_meta_link{font-size:15px;}blockquote {padding-left: 10px;border-left: 3px solid #dbdbdb;color: rgba(0,0,0,0.5);font-size: 15px;padding-top: 4px;margin: 1em 0;}.video_iframe{width:500px;height:400px;}.blockquote_info{color:#b5b5b5;margin-top:10px;}#copyright_logo{color:#bdbdbd;}.rich_media_meta_list{margin-bottom:10px;}.reprint{background:#efefef;border-radius:5px;padding:8px;color:#1f1f1f;}.reprint a{word-break:break-all;}.topic{color:#8e8e8e;background:#f7f7f7;border-radius:5px;padding:10px 8px;}.topic a{padding-right:5px;}.topic p{margin-bottom:5px;}\n<\/style>\n<link href=\"https:\/\/www.juyifx.cn\/config\/css\/wxArticle.css\" rel=\"stylesheet\"\/>\n<\/head><script>\nvar data={\"mp\":\"\u751f\u4fe1\u679c\",\"title\":\"\u53ea\u9700\u4e09\u5206\u949f\uff0c\u638c\u63e1\u751f\u5b58\u76f8\u5173\u673a\u5668\u5b66\u4e60\u7b97\u6cd5-superpc\u548cRidge\",\"time\":\"2023-07-30 19:01:38\",\"timeStamp\":\"1690714898\"};\n<\/script><br \/>\n<body><\/p>\n<div class=\"rich_media\">\n<h1 class=\"rich_media_title\" id=\"activity-name\"><a href=\"http:\/\/mp.weixin.qq.com\/s?__biz=Mzg3OTg3MjQyNg==&mid=2247490642&idx=1&sn=77c297f75c6394c09d0086815eb41f82&chksm=cf7c8c97f80b0581b692dc7c4e39e7f5a93bec31b6b0f54a780896d0e27678c43eed89c6df66#rd\" target=\"_blank\" rel=\"noopener\">\u53ea\u9700\u4e09\u5206\u949f\uff0c\u638c\u63e1\u751f\u5b58\u76f8\u5173\u673a\u5668\u5b66\u4e60\u7b97\u6cd5-superpc\u548cRidge<\/a><\/h1>\n<div id=\"meta_content\" class=\"rich_media_meta_list\"><span id=\"copyright_logo\" class=\"wx_tap_link js_wx_tap_highlight rich_media_meta icon_appmsg_tag appmsg_title_tag weui-wa-hotarea\">\u539f\u521b <\/span><span class=\"rich_media_meta rich_media_meta_text\">\u5c0f\u679c <\/span><span class=\"rich_media_meta rich_media_meta_nickname\" id=\"profileBt\"><a href=\"javascript:void(0);\" class=\"wx_tap_link js_wx_tap_highlight weui-wa-hotarea\" id=\"js_name\">\u751f\u4fe1\u679c <\/a><\/span><em id=\"publish_time\" class=\"rich_media_meta rich_media_meta_text\">2023-07-30 19:01:38<\/em><\/div>\n<p><content><\/p>\n<section style=\"margin-bottom: 0px;letter-spacing: 0.578px;white-space: normal;\" data-mpa-powered-by=\"yiban.io\">\n<section style=\"\">\n<section style=\"\">\n<section style=\"\">\n<section style=\"\">\n<section style=\"\">\n<section data-width=\"100%\" style=\"font-size: 16px;width: 578px;flex: 0 0 100%;opacity: 1;\">\n<section style=\"line-height: 1.8;\">\n<section>\n<section>\n<section style=\"margin-top: 10px;margin-bottom: 20px;display: flex;flex-flow: row nowrap;text-align: center;justify-content: center;\">\n<section style=\"display: inline-block;width: 578px;vertical-align: top;border-style: solid;border-width: 1px;border-color: rgb(67, 67, 67);flex: 0 0 auto;align-self: flex-start;height: auto;box-shadow: rgb(255, 219, 118) 6px 6px 0px;background-color: rgb(255, 255, 255);\">\n<section style=\"text-align: left;justify-content: flex-start;display: flex;flex-flow: row nowrap;\">\n<section style=\"display: inline-block;width: 403.391px;vertical-align: top;align-self: flex-start;flex: 0 0 auto;height: auto;\">\n<section style=\"margin-top: 10px;\">\n<section style=\"text-align: center;\">\n<section style=\"font-size: 16px;\">\n<section style=\"\" powered-by=\"xiumi.us\">\n<section style=\"text-align: left;justify-content: flex-start;display: flex;flex-flow: row nowrap;\">\n<section style=\"display: inline-block;vertical-align: top;width: 70.0348%;align-self: flex-start;flex: 0 0 auto;height: auto;max-width: 70.0348% !important;\">\n<section style=\"margin-top: 10px;\" powered-by=\"xiumi.us\">\n<section style=\"\" powered-by=\"xiumi.us\">\n<section style=\"text-align: center;\">\n<p style=\"text-indent: 0em;line-height: 1.75em;\"><span style=\"letter-spacing: 0.5px;\"><strong><span style=\"font-size: 15px;\">\u751f\u4fe1\u4ebaR\u8bed\u8a00\u5b66\u4e60\u5fc5\u5907<\/span><\/strong><\/span><\/p>\n<p style=\"text-indent: 0em;line-height: 1.75em;\"><span style=\"letter-spacing: 0.5px;\"><strong><span style=\"font-size: 15px;\">\u7acb\u523b\u62e5\u6709\u4e00\u4e2aRstudio\u8d26\u53f7<\/span><\/strong><\/span><\/p>\n<p style=\"text-indent: 0em;line-height: 1.75em;\"><span style=\"letter-spacing: 0.5px;\"><strong><span style=\"font-size: 15px;\">\u5f00\u542f\u5347\u7ea7\u6a21\u5f0f\u5427<\/span><\/strong><\/span><\/p>\n<p style=\"text-indent: 0em;line-height: 1.75em;\"><span style=\"color: rgb(255, 129, 36);font-size: 12px;letter-spacing: 0.5px;\">\uff0856\u7ebf\u7a0b\uff0c256G\u5185\u5b58\uff0c\u4e2a\u4eba\u5b58\u50a81T\uff09<\/span><\/p>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<section style=\"display: inline-block;vertical-align: top;width: 29.9652%;align-self: flex-start;flex: 0 0 auto;height: auto;max-width: 29.9652% !important;\">\n<section style=\"margin-top: 10px;margin-bottom: 10px;\" powered-by=\"xiumi.us\">\n<section style=\"text-align: center;line-height: 0;\">\n<section>\n<section style=\"display: inline-block;vertical-align: middle;\" powered-by=\"xiumi.us\">\n<section style=\"line-height: 0;\">\n<section style=\"width: 111px;\" powered-by=\"xiumi.us\">\n<section style=\"line-height: 1.75em;text-indent: 0em;\">\n<section style=\"vertical-align: middle;display: inline-block;line-height: 0;height: auto;width: 111px;\"><img decoding=\"async\" class=\"rich_pages wxw-img\" data-ratio=\"1\" src=\"https:\/\/i0.wp.com\/www.biocloudservice.com\/wordpress\/wp-content\/uploads\/2024\/06\/1_GBhsibRAgNiaQsH4ichdP9ibEhHMFA-32.png?w=640\" onerror=\"this.src='https:\/\/mmbiz.qpic.cn\/sz_mmbiz_png\/zcicibWZessAyL6u7wJswOp8vtpzGp6vYngnlT6jiavu08Bvp2iblzGf3IkoBD9NGBhsibRAgNiaQsH4ichdP9ibEhHMFA\/640?wx_fmt=png'\" data-type=\"png\" data-w=\"400\" style=\"vertical-align: middle;width: 100%;\" data-recalc-dims=\"1\" \/><\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<p style=\"text-indent: 0em;line-height: 1.75em;\"><br \/><\/p>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<section data-role=\"list\" style=\"\">\n<section style=\"\">\n<section powered-by=\"xiumi.us\" style=\"font-size: 16px;margin-top: 10px;margin-bottom: 8px;text-align: left;justify-content: flex-start;display: flex;flex-flow: row nowrap;\">\n<section style=\"padding-left: 8px;display: inline-block;width: 578px;vertical-align: top;border-left: 3px solid rgb(219, 219, 219);border-bottom-left-radius: 0px;align-self: flex-start;flex: 0 0 auto;\">\n<section powered-by=\"xiumi.us\" style=\"color: rgba(0, 0, 0, 0.5);text-align: justify;\">\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:\u5b8b\u4f53;\">\u673a\u5668\u5b66\u4e60\uff0c\u5728\u751f\u4fe1\u6587\u7ae0\u4e2d\u51fa\u73b0\u7684\u9891\u7387\u8d8a\u6765\u8d8a\u9ad8\uff0c\u6210\u4e3a\u4e0d\u53ef\u6216\u7f3a\u7684\u4e00\u90e8\u5206\u5206\u6790\u5185\u5bb9\uff0c\u4eca\u5929\u5c0f\u679c\u60f3\u5e26\u7740\u5927\u5bb6\u5b66\u4e60\u4e00\u4e0b\u751f\u5b58\u76f8\u5173\u673a\u5668\u5b66\u4e60\u7684\u4e24\u79cd\u7b97\u6cd5<\/span><em><strong><span style=\"font-family:Calibri;\">-superpc<\/span><span style=\"font-family:\u5b8b\u4f53;\">\u548c<\/span><span style=\"font-family:Calibri;\">Ridge<\/span><\/strong><\/em><span style=\"font-family:Calibri;\"><\/span><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:\u5b8b\u4f53;\">\u63a5\u4e0b\u6765\u5c0f\u679c\u4e3a\u5927\u5bb6\u5bf9\u8fd9\u4e24\u79cd\u7b97\u6cd5\u505a\u4e00\u4e0b\u7b80\u5355\u4ecb\u7ecd<\/span><\/span><\/p>\n<\/section>\n<\/section>\n<\/section>\n<section powered-by=\"xiumi.us\" style=\"\">\n<section style=\"\">\n<section powered-by=\"xiumi.us\" style=\"\">\n<section style=\"\">\n<section powered-by=\"xiumi.us\" style=\"\">\n<section style=\"\">\n<section powered-by=\"xiumi.us\" style=\"\">\n<p style=\"font-size: 16px;white-space: normal;\"><span style=\"color: rgb(61, 170, 214);font-size: 14px;letter-spacing: 0.578px;\"><\/span><br \/><\/p>\n<p style=\"font-size: 16px;\"><strong><span style=\"font-size: 14px;color: rgb(0, 122, 170);text-decoration: underline;\">superpc\u8fd9\u4e2a\u7b97\u6cd5\u7684\u4e2d\u6587\u540d\u79f0\u53eb\u505a\u76d1\u7763\u4e3b\u6210\u5206\u5206\u6790<\/span><\/strong><span style=\"font-size: 14px;\">\uff0cRidge\u56de\u5f52\u4e5f\u662f\u5bf9\u53c2\u6570\u8fdb\u884c\u7ea6\u675f\u7684\u4e00\u79cd\u6c42\u89e3\u65b9\u7a0b\uff0cRidge\u56de\u5f52\u662f\u5728\u5747\u65b9\u635f\u5931\u51fd\u6570\u540e\u9762\u6dfb\u52a0L2\u6b63\u5219\u5316\u9879\uff0c\u80fd\u591f\u53c2\u6570\u65e0\u9650\u63a5\u8fd1\u96f6\uff1b\u901a\u8fc7\u8bad\u7ec3\u96c6\u6570\u636e\u8fdb\u884c\u6a21\u578b\u6784\u5efa\uff0c\u7136\u540e\u5229\u7528\u6d4b\u8bd5\u6570\u636e\u8fdb\u884c\u6a21\u578b\u9884\u6d4b\uff0c\u5e76\u8ba1\u7b97\u6a21\u578b\u7684\u9884\u6d4b\u6548\u80fd\u7684C\u6307\u6570\uff0c\u901a\u8fc7\u8be5\u6307\u6570\u6765\u5224\u65ad\u6a21\u578b\u7684\u597d\u574f\uff0c\u9009\u62e9\u6700\u9002\u5408\u7684\u6a21\u578b\uff0c\u5982\u679c\u89c9\u5f97\u63a8\u6587\u4e0d\u9519\uff0c\u70b9\u8d5e\u52a0\u5173\u6ce8\u5965\uff0c\u8bdd\u4e0d\u591a\u8bf4\uff0c\u5c0f\u679c\u5f00\u59cb\u4eca\u5929\u7684\u5206\u4eab\u5566\uff01<\/span><\/p>\n<p style=\"font-size: 16px;\"><span style=\"font-size: 14px;\"><br \/><\/span><\/p>\n<section style=\"\">\n<section data-id=\"22363\" powered-by=\"xmyeditor.com\" data-type=\"lspecial02\" data-md5=\"7ab9d\" style=\"font-size: 16px;\">\n<section style=\"text-align: left;\" powered-by=\"xmyeditor.com\" data-md5=\"7ab9d\">\n<section style=\"display: inline-block;vertical-align: middle;border-top: 1px dotted rgb(61, 170, 214);border-bottom: 1px dotted rgb(61, 170, 214);padding-right: 10px;padding-left: 10px;\" powered-by=\"xmyeditor.com\" data-md5=\"7ab9d\">\n<section style=\"color: rgb(61, 170, 214);letter-spacing: 1px;line-height: 24px;text-align: justify;\" powered-by=\"xmyeditor.com\" data-md5=\"7ab9d\">\n<p><span style=\"color: rgb(0, 122, 170);\"><strong><span style=\"font-size: 15px;\">1.\u5b89\u88c5\u9700\u8981\u7684R\u5305<\/span><\/strong><\/span><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<section style=\"\">\n<p style=\"font-size: 16px;\"><br \/><\/p>\n<p style=\"font-size: 16px;\"><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">install.packages(<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">\u201c<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">tidyverse<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">\u201d<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">)<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p style=\"font-size: 16px;\"><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">BiocManager::install(“survcomp”)<\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p style=\"font-size: 16px;\"><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">install.packages(“superpc”)<\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p style=\"font-size: 16px;\"><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">install.packages(<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">\u201csurvival\u201d<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">)<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p style=\"font-size: 16px;\"><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">install.packages(“glmnet”)<\/span><\/span><\/p>\n<p style=\"font-size: 16px;margin-bottom: 0px;\"><span style=\"font-size: 14px;\"><br \/><\/span><\/p>\n<section style=\"font-size: 16px;margin-bottom: 0px;\">\n<section data-id=\"22363\" powered-by=\"xmyeditor.com\" data-type=\"lspecial02\" data-md5=\"7ab9d\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"7ab9d\" style=\"text-align: left;\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"7ab9d\" style=\"padding-right: 10px;padding-left: 10px;display: inline-block;vertical-align: middle;border-top: 1px dotted rgb(61, 170, 214);border-bottom: 1px dotted rgb(61, 170, 214);\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"7ab9d\" style=\"color: rgb(61, 170, 214);letter-spacing: 1px;line-height: 24px;text-align: justify;\">\n<p><span style=\"color: rgb(0, 122, 170);\"><strong><span style=\"font-size: 15px;\">2.\u8f7d\u5165\u9700\u8981\u7684R\u5305<\/span><\/strong><\/span><span style=\"font-family: \u5b8b\u4f53;font-size: 10.5pt;\"><o:p><\/o:p><\/span><\/p>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<section>\n<p><br style=\"font-size: 16px;letter-spacing: 0.578px;white-space: normal;\" \/><\/p>\n<\/section>\n<\/section>\n<p style=\"font-size: 16px;\"><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">library(superpc)<\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p style=\"font-size: 16px;\"><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">library(survival)<\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p style=\"font-size: 16px;\"><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">library(survcomp)<\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p style=\"font-size: 16px;\"><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">library(tidyverse)<\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p style=\"font-size: 16px;\"><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">library(glmnet)<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<section class=\"channels_iframe_wrp\"><mp-common-videosnap class=\"js_uneditable custom_select_card channels_live_iframe\" data-pluginname=\"mpvideosnap\" data-headimgurl=\"https:\/\/wx.qlogo.cn\/finderhead\/DX68kVlzcbz8hx9HMoThqGJzT37Slibt5l9fBMMKy3pg\/0\" data-username=\"v2_060000231003b20faec8c7e38019c0d4cc02ec33b077ef3bc1e59b4a7f53fd21ec5cd455628a@finder\" data-nickname=\"\u4e91\u751f\u4fe1\u5b66\u751f\u7269\u4fe1\u606f\u5b66\" data-desc=\"\u5c06\u572808\u670801\u65e5 15:00 \u76f4\u64ad\" data-livewording=\"\u9884\u7ea6\" data-intro=\"\u8ddf\u7740nature\u5b66\u7ed8\u56fe\uff0c\u6709\u624b\u5c31\u884cChiplot\u96f6\u4ee3\u7801\u7ed8\u5236\u65f6\u95f4\u5206\u6b67\u6811&\u5e26\u8272\u5757\u805a\u7c7b\u70ed\u56fe\" data-type=\"live\" data-status=\"0\" data-noticeid=\"finderlivenotice-v2_060000231003b20faec8c7e38019c0d4cc02ec33b077ef3bc1e59b4a7f53fd21ec5cd455628a@finder-1690162760537124-1147360090\"><\/mp-common-videosnap><\/section>\n<p style=\"font-size: 16px;\"><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\"><\/span><\/span><\/p>\n<section data-id=\"22363\" powered-by=\"xmyeditor.com\" data-type=\"lspecial02\" data-md5=\"7ab9d\" style=\"margin-bottom: 0px;\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"7ab9d\" style=\"text-align: left;\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"7ab9d\" style=\"padding-right: 10px;padding-left: 10px;display: inline-block;vertical-align: middle;border-top: 1px dotted rgb(61, 170, 214);border-bottom: 1px dotted rgb(61, 170, 214);\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"7ab9d\" style=\"letter-spacing: 1px;line-height: 24px;text-align: justify;\">\n<p><span style=\"font-size: 15px;\"><strong><span style=\"font-size: 15px;color: rgb(0, 122, 170);\">3.\u8bfb\u53d6\u6570\u636e<\/span><\/strong><\/span><br \/><\/p>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<p style=\"font-size: 16px;\"><br \/><\/p>\n<\/section>\n<\/section>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">#<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">TCGA.txt<\/span><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">–<\/span><span style=\"font-family:\u5b8b\u4f53;\">\u8bad\u7ec3\u96c6\u6570\u636e\uff0c\u7b2c\u4e00\u5217\u4e3a\u6837\u672c\u4fe1\u606f\uff0c\u7b2c\u4e8c\u5217\u8868\u793a\u751f\u5b58\u72b6\u6001\uff0c\u7b2c\u4e09\u5217\u8868\u793a\u751f\u5b58\u65f6\u95f4\uff0c\u5176\u4ed6\u5217\u4e3a\u57fa\u56e0\u540d<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">tcga <- read.table(“TCGA.txt”, header = T,sep = “t”, quote = “”, check.names = F)<\/span><\/p>\n<p style=\"text-align: center;\"><img decoding=\"async\" class=\"rich_pages wxw-img\" data-galleryid=\"\" data-ratio=\"0.2658959537572254\" data-s=\"300,640\" src=\"https:\/\/i0.wp.com\/www.biocloudservice.com\/wordpress\/wp-content\/uploads\/2024\/06\/2_vXZFDcvtjecmTq68JJiaZ2HCpUmlYw-5.png?w=640\" onerror=\"this.src='https:\/\/mmbiz.qpic.cn\/sz_mmbiz_png\/zcicibWZessAwqcnrq6Fs0aELmBTOxQXq6dSGItQcMp6c8bMBuo7cDdZMZMvXZFDcvtjecmTq68JJiaZ2HCpUmlYw\/640?wx_fmt=png'\" data-type=\"png\" data-w=\"692\" style=\"\" data-recalc-dims=\"1\" \/><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">#<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">GSE57303<\/span><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">–<\/span><span style=\"font-family:\u5b8b\u4f53;\">\u6d4b\u8bd5\u96c6\u6570\u636e\uff0c\u7b2c\u4e00\u5217\u4e3a\u6837\u672c\u4fe1\u606f\uff0c\u7b2c\u4e8c\u5217\u8868\u793a\u751f\u5b58\u72b6\u6001\uff0c\u7b2c\u4e09\u5217\u8868\u793a\u751f\u5b58\u65f6\u95f4\uff0c\u5176\u4ed6\u5217\u4e3a\u57fa\u56e0\u540d<\/span><span style=\"font-family:Calibri;\">.<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">GSE57303 <- read.table(“GSE57303.txt”, header = T, sep = “t”, quote = “”, check.names = F)<\/span><\/p>\n<p style=\"text-align: center;\"><img decoding=\"async\" class=\"rich_pages wxw-img\" data-galleryid=\"\" data-ratio=\"0.24277456647398843\" data-s=\"300,640\" src=\"https:\/\/i0.wp.com\/www.biocloudservice.com\/wordpress\/wp-content\/uploads\/2024\/06\/3_Jric0TnrLT3cb1C9z0NdctRDCj9lCg-5.png?w=640\" onerror=\"this.src='https:\/\/mmbiz.qpic.cn\/sz_mmbiz_png\/zcicibWZessAwqcnrq6Fs0aELmBTOxQXq6NtcYubo52muPSEF7qCWBBFLo0Jric0TnrLT3cb1C9z0NdctRDCj9lCg\/640?wx_fmt=png'\" data-type=\"png\" data-w=\"692\" style=\"\" data-recalc-dims=\"1\"><\/p>\n<p><br \/><\/p>\n<section data-id=\"22363\" powered-by=\"xmyeditor.com\" data-type=\"lspecial02\" data-md5=\"7ab9d\" style=\"margin-bottom: 0px;\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"7ab9d\" style=\"text-align: left;\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"7ab9d\" style=\"padding-right: 10px;padding-left: 10px;display: inline-block;vertical-align: middle;border-top: 1px dotted rgb(61, 170, 214);border-bottom: 1px dotted rgb(61, 170, 214);\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"7ab9d\" style=\"letter-spacing: 1px;line-height: 24px;text-align: justify;\">\n<p style=\"font-size: 15px;\"><span style=\"color: rgb(0, 122, 170);\"><strong>4.\u6240\u9700\u6570\u636e\u683c\u5f0f\u6574\u7406<\/strong><\/span><\/p>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<section style=\"font-size: 16px;\">\n<section data-id=\"75061\" data-type=\"lspecial02\" data-tools=\"\u901f\u6392\u5c0f\u8682\u8681\u7f16\u8f91\u5668\" powered-by=\"xmyeditor.com\" data-md5=\"83a15\">\n<section style=\"display: inline-block;vertical-align: middle;\" data-md5=\"83a15\">\n<section style=\"color: rgb(174, 208, 241);letter-spacing: 2px;line-height: 1rem;text-align: center;font-weight: 800;\" powered-by=\"xmyeditor.com\" data-md5=\"83a15\">\n<p style=\"font-size: 16px;\" data-md5=\"83a15\"><br \/><\/p>\n<\/section>\n<\/section>\n<section style=\"overflow-y: auto;height: 250px;padding: 10px;background-image: linear-gradient(315deg, rgb(176, 225, 247), rgb(250, 239, 236));background-position: initial;background-size: initial;background-repeat: initial;background-attachment: initial;background-origin: initial;background-clip: initial;width: 100%;margin-top: 10px;\" powered-by=\"xmyeditor.com\" data-md5=\"83a15\">\n<section style=\"overflow: hidden;\" powered-by=\"xmyeditor.com\" data-md5=\"83a15\">\n<section style=\"margin-left: 17px;\" data-md5=\"83a15\">\n<section style=\"display: inline-block;vertical-align: middle;transform: rotate(0deg);\" powered-by=\"xmyeditor.com\" data-md5=\"83a15\">\n<section style=\"border-bottom: 8px solid rgb(171, 209, 255);width: 0px;height: 0px;border-left: 8px solid transparent !important;border-right: 8px solid transparent !important;\" data-md5=\"83a15\"><br \/><\/section>\n<section style=\"border-top: 8px solid rgb(171, 209, 255);width: 0px;height: 0px;margin-top: 5px;border-left: 8px solid transparent !important;border-right: 8px solid transparent !important;\" data-md5=\"83a15\"><br \/><\/section>\n<\/section>\n<section style=\"display: inline-block;vertical-align: middle;padding-left: 16px;margin-left: -16px;\" powered-by=\"xmyeditor.com\" data-md5=\"83a15\">\n<section style=\"color: rgb(0, 0, 0);letter-spacing: 1px;line-height: 24px;margin-left: 10px;\" powered-by=\"xmyeditor.com\" data-md5=\"83a15\">\n<p style=\"font-size: 15px;\" data-md5=\"83a15\"><span style=\"font-size: 14px;\">\u5411\u4e0a\u6ed1\u52a8\u67e5\u770b\u5b8c\u6574\u4ee3\u7801<\/span><\/p>\n<\/section>\n<\/section>\n<\/section>\n<section style=\"color: rgb(102, 102, 102);letter-spacing: 2px;line-height: 26px;margin-top: 10px;\" powered-by=\"xmyeditor.com\" data-md5=\"83a15\">\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";color:rgb(255,0,0);font-size:10.5000pt;mso-font-kerning:1.0000pt;\"># <span style=\"font-family:\u5b8b\u4f53;\">\u751f\u6210\u5305\u542b<\/span><span style=\"font-family:Calibri;\">2<\/span><span style=\"font-family:\u5b8b\u4f53;\">\u4e2a\u6570\u636e\u96c6\u7684\u5217\u8868<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";color:rgb(255,0,0);font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">mm <- list(TCGA = tcga,<\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">GSE57303 = GSE57303)<\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"># <span style=\"font-family:\u5b8b\u4f53;\">\u6570\u636e\u6807\u51c6\u5316<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">mm <- lapply(mm,function(x){<\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">x[,-c(1:3)] <- scale(x[,-c(1:3)])<\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">return(x)})<\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">result <- data.frame()<\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"># TCGA<span style=\"font-family:\u5b8b\u4f53;\">\u4f5c\u4e3a\u8bad\u7ec3\u96c6<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">est_data <- mm$TCGA<\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">#<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">GSE57303<\/span><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:\u5b8b\u4f53;\">\u4f5c\u4e3a\u6d4b\u8bd5\u96c6<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">w<-mm$GSE57303<\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">#<\/span><span style=\"font-family:\u5b8b\u4f53;\">\u83b7\u5f97\u57fa\u56e0\u540d<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">pre_var <- colnames(est_data)[-c(1:3)]<\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">#<\/span><span style=\"font-family:\u5b8b\u4f53;\">\u63d0\u53d6\u8bad\u7ec3\u96c6\u9700\u8981\u7684\u5217\u6570\u636e<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">est_dd <- est_data[, c(‘OS.time’, ‘OS’, pre_var)]<\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">#<\/span><span style=\"font-family:\u5b8b\u4f53;\">\u63d0\u53d6\u6d4b\u8bd5\u96c6\u9700\u8981\u7684\u5217\u6570\u636e<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">w <- w[, c(‘OS.time’, ‘OS’, pre_var)]<\/span><\/p>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<section>\n<p><br \/><\/p>\n<section data-id=\"22363\" powered-by=\"xmyeditor.com\" data-type=\"lspecial02\" data-md5=\"7ab9d\" style=\"margin-bottom: 0px;letter-spacing: 0.578px;white-space: normal;\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"7ab9d\" style=\"text-align: left;\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"7ab9d\" style=\"padding-right: 10px;padding-left: 10px;display: inline-block;vertical-align: middle;border-top: 1px dotted rgb(61, 170, 214);border-bottom: 1px dotted rgb(61, 170, 214);\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"7ab9d\" style=\"letter-spacing: 1px;line-height: 24px;text-align: justify;\">\n<p><span style=\"color: rgb(0, 122, 170);\"><strong><span style=\"font-size: 15px;\">5.superpc\u7b97\u6cd5\u8fdb\u884c\u6a21\u578b\u6784\u5efa<\/span><\/strong><\/span><\/p>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<section style=\"margin-bottom: 0px;letter-spacing: 0.578px;white-space: normal;font-size: 16px;\">\n<section data-id=\"75061\" data-type=\"lspecial02\" data-tools=\"\u901f\u6392\u5c0f\u8682\u8681\u7f16\u8f91\u5668\" powered-by=\"xmyeditor.com\" data-md5=\"83a15\">\n<section data-md5=\"83a15\" style=\"display: inline-block;vertical-align: middle;\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"83a15\" style=\"color: rgb(174, 208, 241);letter-spacing: 2px;line-height: 1rem;text-align: center;font-weight: 800;\">\n<p data-md5=\"83a15\"><br \/><\/p>\n<\/section>\n<\/section>\n<section powered-by=\"xmyeditor.com\" data-md5=\"83a15\" style=\"margin-top: 10px;padding: 10px;overflow-y: auto;height: 250px;background-image: linear-gradient(315deg, rgb(176, 225, 247), rgb(250, 239, 236));background-position: initial;background-size: initial;background-repeat: initial;background-attachment: initial;background-origin: initial;background-clip: initial;width: 578px;\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"83a15\" style=\"overflow: hidden;\">\n<section data-md5=\"83a15\" style=\"margin-left: 17px;\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"83a15\" style=\"display: inline-block;vertical-align: middle;transform: rotate(0deg);\">\n<section data-md5=\"83a15\" style=\"border-bottom: 8px solid rgb(171, 209, 255);width: 0px;height: 0px;border-left: 8px solid transparent !important;border-right: 8px solid transparent !important;\"><br \/><\/section>\n<section data-md5=\"83a15\" style=\"margin-top: 5px;border-top: 8px solid rgb(171, 209, 255);width: 0px;height: 0px;border-left: 8px solid transparent !important;border-right: 8px solid transparent !important;\"><br \/><\/section>\n<\/section>\n<section powered-by=\"xmyeditor.com\" data-md5=\"83a15\" style=\"margin-left: -16px;padding-left: 16px;display: inline-block;vertical-align: middle;\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"83a15\" style=\"margin-left: 10px;color: rgb(0, 0, 0);letter-spacing: 1px;line-height: 24px;\">\n<p data-md5=\"83a15\" style=\"font-size: 15px;\"><span style=\"font-size: 14px;\">\u5411\u4e0a\u6ed1\u52a8\u67e5\u770b\u5b8c\u6574\u4ee3\u7801<\/span><\/p>\n<\/section>\n<\/section>\n<\/section>\n<section powered-by=\"xmyeditor.com\" data-md5=\"83a15\" style=\"margin-top: 10px;color: rgb(102, 102, 102);letter-spacing: 2px;line-height: 26px;\">\n<p><span style=\"font-family: Calibri;font-size: 10.5pt;\">#<span style=\"font-family:\u5b8b\u4f53;\">\u8bad\u7ec3\u96c6<\/span><\/span><span style=\"font-family: \u5b8b\u4f53;font-size: 10.5pt;\">\u6570\u636e\u5217\u8868<\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">data <- list(x = t(est_dd[, -c(1,2)]), y = est_dd$OS.time, censoring.status = est_dd$OS, featurenames = colnames(est_dd)[-c(1, 2)])<o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">set.seed(<\/span><span style=\"font-size: 10.5pt;font-family: Calibri;\">123<\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">)<o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">#<\/span><span style=\"font-family:\u5b8b\u4f53;\">\u5229\u7528\u8bad\u7ec3\u96c6\u8fdb\u884c\u6a21\u578b\u6784\u5efa<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">fit <- superpc.train(data = data,type = ‘survival’, s0.perc = 0.5) #default<o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">cv.fit <- superpc.cv(fit, data, n.threshold = 20, #default<o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">n.fold = 10,<o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">n.components = 3,<o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">min.features = 5,<o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">max.features = nrow(data$x),<o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">compute.fullcv = TRUE,<o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">compute.preval = TRUE)<o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">#<span style=\"font-family:\u5b8b\u4f53;\">\u6d4b\u8bd5\u96c6<\/span><\/span><span style=\"font-size: 10.5pt;font-family: \u5b8b\u4f53;\">\u6570\u636e\u5217\u8868<\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">test <- list(x = t(w[,-c(1,2)]), y = w$OS.time, censoring.status = w$OS, featurenames = colnames(w)[-c(1,2)])<o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">#<\/span><span style=\"font-family:\u5b8b\u4f53;\">\u5229\u7528\u8bad\u7ec3\u96c6\u8fdb\u884c\u6a21\u578b\u9884\u6d4b<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">ff <- superpc.predict(fit, data, test, threshold = cv.fit$thresholds[which.max(cv.fit[[“scor”]][1,])], n.components = 1)<o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">#<\/span><span style=\"font-family:\u5b8b\u4f53;\">\u5c06\u6570\u636e\u7c7b\u578b\u6539\u4e3a\u6570\u5b57<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">rr <- as.numeric(ff$v.pred)<o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">rr2 <- cbind(w[,1:2], RS = rr)<o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">#<\/span><span style=\"font-family:\u5b8b\u4f53;\">\u8ba1\u7b97\u6a21\u578b\u7684\u9884\u6d4b\u6548\u80fd\u7684<\/span><span style=\"font-family:Calibri;\">C<\/span><span style=\"font-family:\u5b8b\u4f53;\">\u6307\u6570<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">cc<-data.frame(Cindex=as.numeric(summary(coxph(Surv(OS.time,OS)~ RS,rr2))$concordance[1])) %>%<o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">rownames_to_column(‘ID’)<o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">cc$Model <- paste0(‘SuperPC’)<o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">result <- rbind(result, cc)<o:p><\/o:p><\/span><\/p>\n<p><br \/><\/p>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<section>\n<p><br \/><\/p>\n<\/section>\n<\/section>\n<section data-id=\"22363\" powered-by=\"xmyeditor.com\" data-type=\"lspecial02\" data-md5=\"7ab9d\" style=\"margin-bottom: 0px;letter-spacing: 0.578px;white-space: normal;\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"7ab9d\" style=\"text-align: left;\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"7ab9d\" style=\"padding-right: 10px;padding-left: 10px;display: inline-block;vertical-align: middle;border-top: 1px dotted rgb(61, 170, 214);border-bottom: 1px dotted rgb(61, 170, 214);\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"7ab9d\">\n<p><span style=\"color: rgb(0, 122, 170);\"><strong><span style=\"font-size: 15px;\">6.Ridge\u7b97\u6cd5\u8fdb\u884c\u6a21\u578b\u6784\u5efa<\/span><\/strong><\/span><\/p>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<section style=\"margin-bottom: 0px;letter-spacing: 0.578px;white-space: normal;font-size: 16px;\">\n<section data-id=\"75061\" data-type=\"lspecial02\" data-tools=\"\u901f\u6392\u5c0f\u8682\u8681\u7f16\u8f91\u5668\" powered-by=\"xmyeditor.com\" data-md5=\"83a15\">\n<section data-md5=\"83a15\" style=\"display: inline-block;vertical-align: middle;\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"83a15\" style=\"color: rgb(174, 208, 241);letter-spacing: 2px;line-height: 1rem;text-align: center;font-weight: 800;\">\n<p data-md5=\"83a15\"><br \/><\/p>\n<\/section>\n<\/section>\n<section powered-by=\"xmyeditor.com\" data-md5=\"83a15\" style=\"margin-top: 10px;padding: 10px;overflow-y: auto;height: 250px;background-image: linear-gradient(315deg, rgb(176, 225, 247), rgb(250, 239, 236));background-position: initial;background-size: initial;background-repeat: initial;background-attachment: initial;background-origin: initial;background-clip: initial;width: 578px;\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"83a15\" style=\"overflow: hidden;\">\n<section data-md5=\"83a15\" style=\"margin-left: 17px;\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"83a15\" style=\"display: inline-block;vertical-align: middle;transform: rotate(0deg);\">\n<section data-md5=\"83a15\" style=\"border-bottom: 8px solid rgb(171, 209, 255);width: 0px;height: 0px;border-left: 8px solid transparent !important;border-right: 8px solid transparent !important;\"><br \/><\/section>\n<section data-md5=\"83a15\" style=\"margin-top: 5px;border-top: 8px solid rgb(171, 209, 255);width: 0px;height: 0px;border-left: 8px solid transparent !important;border-right: 8px solid transparent !important;\"><br \/><\/section>\n<\/section>\n<section powered-by=\"xmyeditor.com\" data-md5=\"83a15\" style=\"margin-left: -16px;padding-left: 16px;display: inline-block;vertical-align: middle;\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"83a15\" style=\"margin-left: 10px;color: rgb(0, 0, 0);letter-spacing: 1px;line-height: 24px;\">\n<p data-md5=\"83a15\" style=\"font-size: 15px;\"><span style=\"font-size: 14px;\">\u5411\u4e0a\u6ed1\u52a8\u67e5\u770b\u5b8c\u6574\u4ee3\u7801<\/span><\/p>\n<\/section>\n<\/section>\n<\/section>\n<section powered-by=\"xmyeditor.com\" data-md5=\"83a15\" style=\"margin-top: 10px;color: rgb(102, 102, 102);letter-spacing: 2px;line-height: 26px;\">\n<p><span style=\"font-size: 10.5pt;font-family: Calibri;\">#<\/span><span style=\"font-family: \u5b8b\u4f53;font-size: 10.5pt;\">\u6a21\u578b\u6784\u5efa<\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">x1 <- as.matrix(est_dd[, pre_var])<\/span><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">x2 <- as.matrix(Surv(est_dd$OS.time, est_dd$OS))<\/span><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">set.seed(seed)<\/span><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">fit = glmnet(x1, x2, family = “binomial”, alpha = 0, lambda = NULL)<\/span><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">cvfit = cv.glmnet(x1, x2,<\/span><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">nfold = 10, #<\/span><span style=\"font-family:\u5b8b\u4f53;\">\u4f8b\u6587\u63cf\u8ff0\uff1a<\/span><span style=\"font-family:Calibri;\">10-fold cross-validation<\/span><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">family = “binomial”,<\/span><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">type.measure = “class”<\/span><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">)<\/span><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">#<\/span><span style=\"font-family:\u5b8b\u4f53;\">\u6a21\u578b\u9884\u6d4b<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">rs = as.numeric(predict(fit, type = ‘response’, newx = as.matrix(w[, -c(1,2)]), s = cvfit$lambda.min))<\/span><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">rr2 <- cbind(w[,1:2], RS = rs)<\/span><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">##<\/span><span style=\"font-family:\u5b8b\u4f53;\">\u8ba1\u7b97\u6a21\u578b\u7684\u9884\u6d4b\u6548\u80fd\u7684<\/span><span style=\"font-family:Calibri;\">C<\/span><span style=\"font-family:\u5b8b\u4f53;\">\u6307\u6570<\/span><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">cc <- data.frame(Cindex = as.numeric(summary(coxph(Surv(OS.time,OS) ~ RS, rr2))$concordance[1])) %>%<\/span><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">rownames_to_column(‘ID’)<\/span><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">cc$Model <- paste0(‘Ridge’)<\/span><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">Result <- rbind(result, cc)<\/span><o:p><\/o:p><\/span><\/p>\n<p><span style=\"font-size: 10.5pt;font-family: Calibri;\">write.table(Result,file=”superpc_ridge.txt”,row.names=F,col.names=T,sep=”t”,quote=F)<\/span><\/p>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<p style=\"text-align: center;\"><img decoding=\"async\" class=\"rich_pages wxw-img\" data-galleryid=\"\" data-ratio=\"0.0708092485549133\" data-s=\"300,640\" src=\"https:\/\/i0.wp.com\/www.biocloudservice.com\/wordpress\/wp-content\/uploads\/2024\/06\/4_MAQzJ3GjXXOZ74XT6p5YlglbLHGl3A-5.png?w=640\" onerror=\"this.src='https:\/\/mmbiz.qpic.cn\/sz_mmbiz_png\/zcicibWZessAwqcnrq6Fs0aELmBTOxQXq6EpynfE8Kicz7MOJnzH3eBCiaO2MAQzJ3GjXXOZ74XT6p5YlglbLHGl3A\/640?wx_fmt=png'\" data-type=\"png\" data-w=\"692\" style=\"\" data-recalc-dims=\"1\" \/><\/p>\n<p><br \/><\/p>\n<p><br \/><\/p>\n<p><span style=\"font-size: 14px;\">\u5c0f\u679c\u6700\u7ec8\u987a\u5229\u7684\u5229\u7528supersc\u548cRidge\u4e24\u79cd\u7b97\u6cd5\u8fdb\u884c\u4e86\u6a21\u578b\u6784\u5efa\u548c\u9884\u6d4b\uff0c\u5e76\u8ba1\u7b97\u4e86\u9884\u6d4b\u6548\u80fdC\u6307\u6570\uff0c\u6765\u5224\u65ad\u6a21\u578b\u7684\u597d\u574f\u3002<\/span><strong><span style=\"font-size: 14px;\"><\/span><\/strong><\/p>\n<p><span style=\"font-size: 12px;color: rgb(0, 122, 170);text-decoration: underline;\">\u673a\u5668\u5b66\u4e60\u76f8\u5173\u7684\u5176\u4ed6\u5206\u6790\u5185\u5bb9\u6b22\u8fce\u5c1d\u8bd5\u672c\u516c\u53f8\u65b0\u5f00\u53d1\u7684\u4e91\u5e73\u53f0\u751f\u7269\u4fe1\u606f\u5206\u6790\u5c0f\u5de5\u5177\uff0c\u96f6\u4ee3\u7801\u5b8c\u6210\u5206\u6790<\/span><\/p>\n<p><span style=\"font-size: 12px;color: rgb(0, 122, 170);text-decoration: underline;\">\u4e91\u5e73\u53f0\u7f51\u5740\uff1ahttp:\/\/www.biocloudservice.com\/home.html<\/span><\/p>\n<p><span style=\"font-size: 12px;color: rgb(0, 122, 170);text-decoration: underline;\">\u4e3b\u8981\u5305\u62eclasso\u56de\u5f52\u6a21\u578b\u7b5b\u9009\u7279\u5f81\u57fa\u56e0(http:\/\/www.biocloudservice.com\/116\/116.php)<\/span><\/p>\n<p><span style=\"font-size: 12px;color: rgb(0, 122, 170);text-decoration: underline;\">\u968f\u673a\u68ee\u6797\u7684\u5341\u6298\u4ea4\u53c9\u9a8c\u8bc1(http:\/\/www.biocloudservice.com\/646\/646.php)<\/span><\/p>\n<p><span style=\"font-size: 12px;color: rgb(0, 122, 170);text-decoration: underline;\">svm-ref\u652f\u6301\u5411\u91cf\u673a\u7684\u673a\u5668\u5b66\u4e60(http:\/\/www.biocloudservice.com\/372\/372.php)\u7b49\u673a\u5668\u5b66\u4e60\u76f8\u5173\u7684\u5c0f\u5de5\u5177\u3002<\/span><\/p>\n<p><span style=\"font-size: 14px;\">\u4eca\u5929\u5c0f\u679c\u7684\u5206\u4eab\u5c31\u5230\u8fd9\u91cc\uff0c\u6b22\u8fce\u5927\u5bb6\u548c\u5c0f\u679c\u4e00\u8d77\u8ba8\u8bba\u5b66\u4e60\uff0c\u4e0b\u671f\u518d\u89c1\u54e6\uff01<\/span><\/p>\n<\/section>\n<\/section>\n<\/section>\n<section powered-by=\"xiumi.us\" style=\"font-size: 16px;\">\n<section class=\"mp_profile_iframe_wrp\"><mp-common-profile class=\"js_uneditable custom_select_card mp_profile_iframe\" data-pluginname=\"mpprofile\" data-id=\"Mzg3OTg3MjQyNg==\" data-headimg=\"http:\/\/mmbiz.qpic.cn\/mmbiz_png\/zcicibWZessAwvyLLXlYq0SJu55voD1bnb7juHUdkAibE5woL3FrUvV4nmfhXjL5DgcNYqYFsyFCZrof6ibA2ibPmuw\/0?wx_fmt=png\" data-nickname=\"\u751f\u4fe1\u679c\" data-alias=\"shengxinguoer\" data-signature=\"\u751f\u4fe1\u5165\u95e8\u3001R\u8bed\u8a00\u3001\u751f\u4fe1\u56fe\u89e3\u8bfb\u4e0e\u7ed8\u5236\u3001\u8f6f\u4ef6\u64cd\u4f5c\u3001\u4ee3\u7801\u590d\u73b0\u3001\u751f\u4fe1\u786c\u6838\u77e5\u8bc6\u6280\u80fd\u3001\u670d\u52a1\u5668\u7b49\" data-from=\"0\" data-is_biz_ban=\"0\"><\/mp-common-profile><\/section>\n<section style=\"margin-bottom: 0px;letter-spacing: 0.578px;white-space: normal;caret-color: rgba(0, 0, 0, 0);font-size: 16px;\">\n<section>\n<section style=\"margin-top: 0.5em;\">\n<section style=\"padding: 0.5em;border-width: 1px;border-style: solid;box-shadow: rgb(226, 226, 226) 0px 16px 1px -13px;border-color: rgb(0, 150, 136);\">\n<section style=\"text-align: left;\">\n<section style=\"color: rgb(255, 129, 36);text-align: justify;\">\n<section style=\"margin-bottom: 8px;\">\n<p style=\"text-indent: 0em;line-height: 1.75em;\"><span style=\"letter-spacing: 0.5px;\">\u70b9\u51fb<strong><span style=\"color: rgb(0, 150, 136);\">\u201c\u9605\u8bfb\u539f\u6587\u201d<\/span><\/strong>\u7acb\u523b\u62e5\u6709<\/span><\/p>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<section style=\"margin-bottom: 8px;font-size: 32px;color: rgb(0, 150, 136);\">\n<p style=\"text-indent: 0em;line-height: 1.75em;\"><span style=\"letter-spacing: 0.5px;\">\u2193\u2193\u2193<\/span><span style=\"letter-spacing: 0.5px;text-indent: 0em;\"><\/span><\/p>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<p style=\"display: none;\"><mp-style-type data-value=\"3\"><\/mp-style-type><\/p>\n<div class=\"msg_source_url\"><a href=\"https:\/\/mp.weixin.qq.com\/s\/sfk0hRc6tkxjkKkvuVHjnA#rd\" target=\"_blank\" rel=\"noopener\">\u9605\u8bfb\u539f\u6587<\/a><\/div>\n<p><\/content><\/p>\n<div class=\"msg_source_url\"><a href=\"https:\/\/mp.weixin.qq.com\/s\/sfk0hRc6tkxjkKkvuVHjnA#rd\" target=\"_blank\" rel=\"noopener\">\u9605\u8bfb\u539f\u6587<\/a><\/div>\n<\/div>\n<p><\/body><br \/>\n<\/html><\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u53ea\u9700\u4e09\u5206\u949f\uff0c\u638c\u63e1\u751f\u5b58\u76f8\u5173\u673a\u5668\u5b66\u4e60\u7b97\u6cd5-superpc\u548cRidge \u539f\u521b \u5c0f\u679c […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"","sticky":false,"template":"","format":"standard","meta":{"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":""},"categories":[1],"tags":[],"jetpack_featured_media_url":"","_links":{"self":[{"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/50124"}],"collection":[{"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=50124"}],"version-history":[{"count":1,"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/50124\/revisions"}],"predecessor-version":[{"id":50129,"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/50124\/revisions\/50129"}],"wp:attachment":[{"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=50124"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=50124"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=50124"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}

{"id":50124,"date":"2024-06-16T09:49:21","date_gmt":"2024-06-16T01:49:21","guid":{"rendered":"http:\/\/www.biocloudservice.com\/wordpress\/?p=50124"},"modified":"2024-06-16T09:49:21","modified_gmt":"2024-06-16T01:49:21","slug":"%e5%8f%aa%e9%9c%80%e4%b8%89%e5%88%86%e9%92%9f%ef%bc%8c%e6%8e%8c%e6%8f%a1%e7%94%9f%e5%ad%98%e7%9b%b8%e5%85%b3%e6%9c%ba%e5%99%a8%e5%ad%a6%e4%b9%a0%e7%ae%97%e6%b3%95-superpc%e5%92%8cridge-5","status":"publish","type":"post","link":"http:\/\/www.biocloudservice.com\/wordpress\/?p=50124","title":{"rendered":"\u53ea\u9700\u4e09\u5206\u949f\uff0c\u638c\u63e1\u751f\u5b58\u76f8\u5173\u673a\u5668\u5b66\u4e60\u7b97\u6cd5-superpc\u548cRidge"},"content":{"rendered":"

\n
\n<\/title><br \/>\n<meta charset=\"utf-8\"><br \/>\n<meta name=\"viewport\" content=\"width=device-width,initial-scale=1.0,maximum-scale=1.0,user-scalable=0,viewport-fit=cover\"><\/p>\n<style>\n*{margin:0;padding:0}html{-ms-text-size-adjust:100%;-webkit-text-size-adjust:100%;line-height:1.6}img{z-index:999;position:relative;max-width:100%;margin:10px 0;}body{letter-spacing:.034em}h1,h2,h3,h4,h5,h6{font-weight:400;font-size:16px}a{color:#576b95;text-decoration:none;-webkit-tap-highlight-color:rgba(0,0,0,0)}td,th{word-wrap:break-word;padding:5px 10px;border:1px solid #DDD;}table{margin-bottom:10px;border-collapse:collapse;display:table;width:100%!important;}.appmsg_skin_default .rich_media_area_primary{background-color:#fff}.appmsg_skin_default .rich_media_area_primary .weui-loadmore_line .weui-loadmore__tips{background-color:#fff}.rich_media_area_primary{padding:20px 16px 12px;background-color:#fafafa}@media (max-width:375px){.rich_media_area_primary{padding:20px 60px 15px 60px}.rich_media_area_extra{padding:0 60px 21px 60px}}@media (min-width:1024px){.rich_media_area_primary_inner,.rich_media_area_extra_inner,body{max-width:677px;margin-left:auto;margin-right:auto}.rich_media_area_primary{padding-top:32px}}.rich_media{padding:20px;overflow:hidden;}.appmsg_skin_default .rich_media_area_primary{background-color:#fff}.appmsg_skin_default .rich_media_area_primary .weui-loadmore_line .weui-loadmore__tips{background-color:#fff}@media screen and (min-width:1024px){.rich_media_area_primary_inner,.rich_media_area_extra_inner{max-width:677px;margin-left:auto;margin-right:auto}.rich_media_area_primary{padding-top:32px}}.rich_media_content{overflow:hidden;color:#333;font-size:17px;word-wrap:break-word;-webkit-hyphens:auto;-ms-hyphens:auto;hyphens:auto;text-align:justify;position:relative;z-index:0}.rich_media_content *{max-width:100%!important;box-sizing:border-box!important;-webkit-box-sizing:border-box!important;word-wrap:break-word!important}.rich_media_content p{clear:both;min-height:1em}.rich_media_content em{font-style:italic}.rich_media_content fieldset{min-width:0}.rich_media_content .list-paddingleft-1,.rich_media_content .list-paddingleft-2,.rich_media_content .list-paddingleft-3{padding-left:2.2em}.rich_media_content .list-paddingleft-1 .list-paddingleft-2,.rich_media_content .list-paddingleft-2 .list-paddingleft-2,.rich_media_content .list-paddingleft-3 .list-paddingleft-2{padding-left:30px}.rich_media_content .list-paddingleft-1{padding-left:1.2em}.rich_media_content .list-paddingleft-3{padding-left:3.2em}.rich_media_content .code-snippet,.rich_media_content .code-snippet__fix{max-width:1000%!important}.rich_media_content .code-snippet *,.rich_media_content .code-snippet__fix *{max-width:1000%!important}.rich_media_title{font-size:22px;line-height:1.4;margin-bottom:13px;padding-bottom:13px;border-bottom:1px solid #e7e7eb;}@supports(-webkit-overflow-scrolling:touch){.rich_media_title{font-weight:700}}.rich_media_meta{display:inline-block;vertical-align:middle;padding:0 0 10px 0;font-size:15px;-webkit-tap-highlight-color:rgba(0,0,0,0)}.rich_media_meta.icon_appmsg_tag{margin-right:0px}.rich_media_meta.meta_tag_text{margin-right:0}.rich_media_meta_list em{font-style:normal}.rich_media_meta_text{color:#a5a5a5;}p{margin:0;}.msgBox{margin-top:20px;padding-top:20px;padding-left:50px;overflow:hidden;border-top:2px dashed #09a2ff;}.msg{padding-top:7px;clear:both;}.msgBody{float:right;width:100%;margin-left:55px;padding-bottom:15px;border-bottom:1px dashed #e0e0e0;}.userHeadImg{float:left;margin-left:-50px;}.userHeadImg img{width:40px;height:40px;margin-right:10px;border-radius:3px;}.userName{color:#888888;line-height:24px;font-size:14px;margin:5px 0 5px 0;height:24px;}.replyBody,.autherBody{color:#565656;font-size:15px;}.replyIcon{border-left:4px solid #33ab01;margin-right:5px;}.ad{text-decoration:none;color:#d6d4d4;font-size:12px;}.msgBodyReply{padding-top:5px;}.userName span{float:right;color:#afafaf;font-size:14px;}code{text-align:left;font-size:14px;display:block;white-space:pre;display:-webkit-box;display:-webkit-flex;display:flex;position:relative;}.code-snippet__fix{font-size:14px;margin:10px 0;display:block;color:#333;position:relative;background-color:rgba(0,0,0,0.03);border:1px solid #f0f0f0;border-radius:2px;display:-webkit-box;display:-webkit-flex;display:flex;padding-left:25px;line-height:26px}.code-snippet__fix code{text-align:left;font-size:14px;display:block;white-space:pre;display:-webkit-box;display:-webkit-flex;display:flex;position:relative;font-family:Consolas,\"Liberation Mono\",Menlo,Courier,monospace}.code-snippet__comment,.code-snippet__quote{color:#afafaf;font-style:italic}.code-snippet__keyword,.code-snippet__selector-tag,.code-snippet__subst{color:#ca7d37}.code-snippet__number,.code-snippet__literal,.code-snippet__variable,.code-snippet__template-variable,.code-snippet__tag .code-snippet__attr{color:#0e9ce5}.code-snippet__string,.code-snippet__doctag{color:#d14}.code-snippet__title,.code-snippet__section,.code-snippet__selector-id{color:#d14}.code-snippet__subst{font-weight:normal}.code-snippet__type,.code-snippet__class .code-snippet__title{color:#0e9ce5}.code-snippet__tag,.code-snippet__name,.code-snippet__attribute{color:#0e9ce5;font-weight:normal}.code-snippet__regexp,.code-snippet__link{color:#ca7d37}.code-snippet__symbol,.code-snippet__bullet{color:#d14}.code-snippet__built_in,.code-snippet__builtin-name{color:#ca7d37}.code-snippet__meta{color:#afafaf}.code-snippet__deletion{background:#fdd}.code-snippet__addition{background:#dfd}.code-snippet__emphasis{font-style:italic}.code-snippet__strong{font-weight:bold}.account_avatar{width:40px;height:40px;padding:0;}.account_info{display:-webkit-box;display:-webkit-flex;display:flex;-webkit-box-align:center;-webkit-align-items:center;padding:20px 0;align-items:center}.flex_bd{padding-left:14px;}.account_nickname{display:inline-block;vertical-align:middle;line-height:1.2;color:#576b95;font-size:14px}.account_desc{overflow:hidden;text-overflow:ellipsis;display:-webkit-box;-webkit-box-orient:vertical;-webkit-line-clamp:1;color:rgba(0,0,0,0.3);font-size:14px;line-height:1.2;padding-top:.4em}.msg_source_url{text-align:left;word-break:break-all;margin-top:20px;}.msg_source_url a{padding-right:10px;}.msg_source_url .url_text{color:#a8a8a8;}.video-desc{font-size:14px;margin-top:15px;color:#6c6c6c;}.msg_source_url{text-align:left;}.original_primary_card_tips{color:rgba(0,0,0,0.3);line-height:1.4;font-size:15px;}.weui-flex__item{margin-bottom:20px;padding:20px 16px;margin-top:16px;line-height:1.4;align-items:center;background-color:#f7f7f7;border-radius:8px;position:relative;}.original_primary_desc{color:rgba(0,0,0,0.5);font-size:14px;padding-top:4px;width:auto;overflow:hidden;text-overflow:ellipsis;}.msgBodyReplyList{border-top:1px solid #e1e1e1;margin-top:10px;}.msgBodyReplyListTop{border-top:0;}.reply_like_num{float:right;font-size:14px;color:#c7c7c7;}.msgData{margin-top:20px;color:#626262;}.msgData span{font-size:14px;padding-right:15px;}.msgData .likes{float:right;padding-right:0;}.js_text_content p{font-size:18px;}.rich_media_meta_link{font-size:15px;}blockquote {padding-left: 10px;border-left: 3px solid #dbdbdb;color: rgba(0,0,0,0.5);font-size: 15px;padding-top: 4px;margin: 1em 0;}.video_iframe{width:500px;height:400px;}.blockquote_info{color:#b5b5b5;margin-top:10px;}#copyright_logo{color:#bdbdbd;}.rich_media_meta_list{margin-bottom:10px;}.reprint{background:#efefef;border-radius:5px;padding:8px;color:#1f1f1f;}.reprint a{word-break:break-all;}.topic{color:#8e8e8e;background:#f7f7f7;border-radius:5px;padding:10px 8px;}.topic a{padding-right:5px;}.topic p{margin-bottom:5px;}\n<\/style>\n<link href=\"https:\/\/www.juyifx.cn\/config\/css\/wxArticle.css\" rel=\"stylesheet\"\/>\n<\/head><script>\nvar data={\"mp\":\"\u751f\u4fe1\u679c\",\"title\":\"\u53ea\u9700\u4e09\u5206\u949f\uff0c\u638c\u63e1\u751f\u5b58\u76f8\u5173\u673a\u5668\u5b66\u4e60\u7b97\u6cd5-superpc\u548cRidge\",\"time\":\"2023-07-30 19:01:38\",\"timeStamp\":\"1690714898\"};\n<\/script><br \/>\n<body><\/p>\n<div class=\"rich_media\">\n<h1 class=\"rich_media_title\" id=\"activity-name\"><a href=\"http:\/\/mp.weixin.qq.com\/s?__biz=Mzg3OTg3MjQyNg==&mid=2247490642&idx=1&sn=77c297f75c6394c09d0086815eb41f82&chksm=cf7c8c97f80b0581b692dc7c4e39e7f5a93bec31b6b0f54a780896d0e27678c43eed89c6df66#rd\" target=\"_blank\" rel=\"noopener\">\u53ea\u9700\u4e09\u5206\u949f\uff0c\u638c\u63e1\u751f\u5b58\u76f8\u5173\u673a\u5668\u5b66\u4e60\u7b97\u6cd5-superpc\u548cRidge<\/a><\/h1>\n<div id=\"meta_content\" class=\"rich_media_meta_list\"><span id=\"copyright_logo\" class=\"wx_tap_link js_wx_tap_highlight rich_media_meta icon_appmsg_tag appmsg_title_tag weui-wa-hotarea\">\u539f\u521b <\/span><span class=\"rich_media_meta rich_media_meta_text\">\u5c0f\u679c <\/span><span class=\"rich_media_meta rich_media_meta_nickname\" id=\"profileBt\"><a href=\"javascript:void(0);\" class=\"wx_tap_link js_wx_tap_highlight weui-wa-hotarea\" id=\"js_name\">\u751f\u4fe1\u679c <\/a><\/span><em id=\"publish_time\" class=\"rich_media_meta rich_media_meta_text\">2023-07-30 19:01:38<\/em><\/div>\n<p><content><\/p>\n<section style=\"margin-bottom: 0px;letter-spacing: 0.578px;white-space: normal;\" data-mpa-powered-by=\"yiban.io\">\n<section style=\"\">\n<section style=\"\">\n<section style=\"\">\n<section style=\"\">\n<section style=\"\">\n<section data-width=\"100%\" style=\"font-size: 16px;width: 578px;flex: 0 0 100%;opacity: 1;\">\n<section style=\"line-height: 1.8;\">\n<section>\n<section>\n<section style=\"margin-top: 10px;margin-bottom: 20px;display: flex;flex-flow: row nowrap;text-align: center;justify-content: center;\">\n<section style=\"display: inline-block;width: 578px;vertical-align: top;border-style: solid;border-width: 1px;border-color: rgb(67, 67, 67);flex: 0 0 auto;align-self: flex-start;height: auto;box-shadow: rgb(255, 219, 118) 6px 6px 0px;background-color: rgb(255, 255, 255);\">\n<section style=\"text-align: left;justify-content: flex-start;display: flex;flex-flow: row nowrap;\">\n<section style=\"display: inline-block;width: 403.391px;vertical-align: top;align-self: flex-start;flex: 0 0 auto;height: auto;\">\n<section style=\"margin-top: 10px;\">\n<section style=\"text-align: center;\">\n<section style=\"font-size: 16px;\">\n<section style=\"\" powered-by=\"xiumi.us\">\n<section style=\"text-align: left;justify-content: flex-start;display: flex;flex-flow: row nowrap;\">\n<section style=\"display: inline-block;vertical-align: top;width: 70.0348%;align-self: flex-start;flex: 0 0 auto;height: auto;max-width: 70.0348% !important;\">\n<section style=\"margin-top: 10px;\" powered-by=\"xiumi.us\">\n<section style=\"\" powered-by=\"xiumi.us\">\n<section style=\"text-align: center;\">\n<p style=\"text-indent: 0em;line-height: 1.75em;\"><span style=\"letter-spacing: 0.5px;\"><strong><span style=\"font-size: 15px;\">\u751f\u4fe1\u4ebaR\u8bed\u8a00\u5b66\u4e60\u5fc5\u5907<\/span><\/strong><\/span><\/p>\n<p style=\"text-indent: 0em;line-height: 1.75em;\"><span style=\"letter-spacing: 0.5px;\"><strong><span style=\"font-size: 15px;\">\u7acb\u523b\u62e5\u6709\u4e00\u4e2aRstudio\u8d26\u53f7<\/span><\/strong><\/span><\/p>\n<p style=\"text-indent: 0em;line-height: 1.75em;\"><span style=\"letter-spacing: 0.5px;\"><strong><span style=\"font-size: 15px;\">\u5f00\u542f\u5347\u7ea7\u6a21\u5f0f\u5427<\/span><\/strong><\/span><\/p>\n<p style=\"text-indent: 0em;line-height: 1.75em;\"><span style=\"color: rgb(255, 129, 36);font-size: 12px;letter-spacing: 0.5px;\">\uff0856\u7ebf\u7a0b\uff0c256G\u5185\u5b58\uff0c\u4e2a\u4eba\u5b58\u50a81T\uff09<\/span><\/p>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<section style=\"display: inline-block;vertical-align: top;width: 29.9652%;align-self: flex-start;flex: 0 0 auto;height: auto;max-width: 29.9652% !important;\">\n<section style=\"margin-top: 10px;margin-bottom: 10px;\" powered-by=\"xiumi.us\">\n<section style=\"text-align: center;line-height: 0;\">\n<section>\n<section style=\"display: inline-block;vertical-align: middle;\" powered-by=\"xiumi.us\">\n<section style=\"line-height: 0;\">\n<section style=\"width: 111px;\" powered-by=\"xiumi.us\">\n<section style=\"line-height: 1.75em;text-indent: 0em;\">\n<section style=\"vertical-align: middle;display: inline-block;line-height: 0;height: auto;width: 111px;\"><img decoding=\"async\" class=\"rich_pages wxw-img\" data-ratio=\"1\" src=\"https:\/\/i0.wp.com\/www.biocloudservice.com\/wordpress\/wp-content\/uploads\/2024\/06\/1_GBhsibRAgNiaQsH4ichdP9ibEhHMFA-32.png?w=640\" onerror=\"this.src='https:\/\/mmbiz.qpic.cn\/sz_mmbiz_png\/zcicibWZessAyL6u7wJswOp8vtpzGp6vYngnlT6jiavu08Bvp2iblzGf3IkoBD9NGBhsibRAgNiaQsH4ichdP9ibEhHMFA\/640?wx_fmt=png'\" data-type=\"png\" data-w=\"400\" style=\"vertical-align: middle;width: 100%;\" data-recalc-dims=\"1\" \/><\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<p style=\"text-indent: 0em;line-height: 1.75em;\"><br \/><\/p>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<section data-role=\"list\" style=\"\">\n<section style=\"\">\n<section powered-by=\"xiumi.us\" style=\"font-size: 16px;margin-top: 10px;margin-bottom: 8px;text-align: left;justify-content: flex-start;display: flex;flex-flow: row nowrap;\">\n<section style=\"padding-left: 8px;display: inline-block;width: 578px;vertical-align: top;border-left: 3px solid rgb(219, 219, 219);border-bottom-left-radius: 0px;align-self: flex-start;flex: 0 0 auto;\">\n<section powered-by=\"xiumi.us\" style=\"color: rgba(0, 0, 0, 0.5);text-align: justify;\">\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:\u5b8b\u4f53;\">\u673a\u5668\u5b66\u4e60\uff0c\u5728\u751f\u4fe1\u6587\u7ae0\u4e2d\u51fa\u73b0\u7684\u9891\u7387\u8d8a\u6765\u8d8a\u9ad8\uff0c\u6210\u4e3a\u4e0d\u53ef\u6216\u7f3a\u7684\u4e00\u90e8\u5206\u5206\u6790\u5185\u5bb9\uff0c\u4eca\u5929\u5c0f\u679c\u60f3\u5e26\u7740\u5927\u5bb6\u5b66\u4e60\u4e00\u4e0b\u751f\u5b58\u76f8\u5173\u673a\u5668\u5b66\u4e60\u7684\u4e24\u79cd\u7b97\u6cd5<\/span><em><strong><span style=\"font-family:Calibri;\">-superpc<\/span><span style=\"font-family:\u5b8b\u4f53;\">\u548c<\/span><span style=\"font-family:Calibri;\">Ridge<\/span><\/strong><\/em><span style=\"font-family:Calibri;\"><\/span><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:\u5b8b\u4f53;\">\u63a5\u4e0b\u6765\u5c0f\u679c\u4e3a\u5927\u5bb6\u5bf9\u8fd9\u4e24\u79cd\u7b97\u6cd5\u505a\u4e00\u4e0b\u7b80\u5355\u4ecb\u7ecd<\/span><\/span><\/p>\n<\/section>\n<\/section>\n<\/section>\n<section powered-by=\"xiumi.us\" style=\"\">\n<section style=\"\">\n<section powered-by=\"xiumi.us\" style=\"\">\n<section style=\"\">\n<section powered-by=\"xiumi.us\" style=\"\">\n<section style=\"\">\n<section powered-by=\"xiumi.us\" style=\"\">\n<p style=\"font-size: 16px;white-space: normal;\"><span style=\"color: rgb(61, 170, 214);font-size: 14px;letter-spacing: 0.578px;\"><\/span><br \/><\/p>\n<p style=\"font-size: 16px;\"><strong><span style=\"font-size: 14px;color: rgb(0, 122, 170);text-decoration: underline;\">superpc\u8fd9\u4e2a\u7b97\u6cd5\u7684\u4e2d\u6587\u540d\u79f0\u53eb\u505a\u76d1\u7763\u4e3b\u6210\u5206\u5206\u6790<\/span><\/strong><span style=\"font-size: 14px;\">\uff0cRidge\u56de\u5f52\u4e5f\u662f\u5bf9\u53c2\u6570\u8fdb\u884c\u7ea6\u675f\u7684\u4e00\u79cd\u6c42\u89e3\u65b9\u7a0b\uff0cRidge\u56de\u5f52\u662f\u5728\u5747\u65b9\u635f\u5931\u51fd\u6570\u540e\u9762\u6dfb\u52a0L2\u6b63\u5219\u5316\u9879\uff0c\u80fd\u591f\u53c2\u6570\u65e0\u9650\u63a5\u8fd1\u96f6\uff1b\u901a\u8fc7\u8bad\u7ec3\u96c6\u6570\u636e\u8fdb\u884c\u6a21\u578b\u6784\u5efa\uff0c\u7136\u540e\u5229\u7528\u6d4b\u8bd5\u6570\u636e\u8fdb\u884c\u6a21\u578b\u9884\u6d4b\uff0c\u5e76\u8ba1\u7b97\u6a21\u578b\u7684\u9884\u6d4b\u6548\u80fd\u7684C\u6307\u6570\uff0c\u901a\u8fc7\u8be5\u6307\u6570\u6765\u5224\u65ad\u6a21\u578b\u7684\u597d\u574f\uff0c\u9009\u62e9\u6700\u9002\u5408\u7684\u6a21\u578b\uff0c\u5982\u679c\u89c9\u5f97\u63a8\u6587\u4e0d\u9519\uff0c\u70b9\u8d5e\u52a0\u5173\u6ce8\u5965\uff0c\u8bdd\u4e0d\u591a\u8bf4\uff0c\u5c0f\u679c\u5f00\u59cb\u4eca\u5929\u7684\u5206\u4eab\u5566\uff01<\/span><\/p>\n<p style=\"font-size: 16px;\"><span style=\"font-size: 14px;\"><br \/><\/span><\/p>\n<section style=\"\">\n<section data-id=\"22363\" powered-by=\"xmyeditor.com\" data-type=\"lspecial02\" data-md5=\"7ab9d\" style=\"font-size: 16px;\">\n<section style=\"text-align: left;\" powered-by=\"xmyeditor.com\" data-md5=\"7ab9d\">\n<section style=\"display: inline-block;vertical-align: middle;border-top: 1px dotted rgb(61, 170, 214);border-bottom: 1px dotted rgb(61, 170, 214);padding-right: 10px;padding-left: 10px;\" powered-by=\"xmyeditor.com\" data-md5=\"7ab9d\">\n<section style=\"color: rgb(61, 170, 214);letter-spacing: 1px;line-height: 24px;text-align: justify;\" powered-by=\"xmyeditor.com\" data-md5=\"7ab9d\">\n<p><span style=\"color: rgb(0, 122, 170);\"><strong><span style=\"font-size: 15px;\">1.\u5b89\u88c5\u9700\u8981\u7684R\u5305<\/span><\/strong><\/span><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<section style=\"\">\n<p style=\"font-size: 16px;\"><br \/><\/p>\n<p style=\"font-size: 16px;\"><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">install.packages(<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">\u201c<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">tidyverse<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">\u201d<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">)<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p style=\"font-size: 16px;\"><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">BiocManager::install(“survcomp”)<\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p style=\"font-size: 16px;\"><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">install.packages(“superpc”)<\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p style=\"font-size: 16px;\"><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">install.packages(<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">\u201csurvival\u201d<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">)<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p style=\"font-size: 16px;\"><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">install.packages(“glmnet”)<\/span><\/span><\/p>\n<p style=\"font-size: 16px;margin-bottom: 0px;\"><span style=\"font-size: 14px;\"><br \/><\/span><\/p>\n<section style=\"font-size: 16px;margin-bottom: 0px;\">\n<section data-id=\"22363\" powered-by=\"xmyeditor.com\" data-type=\"lspecial02\" data-md5=\"7ab9d\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"7ab9d\" style=\"text-align: left;\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"7ab9d\" style=\"padding-right: 10px;padding-left: 10px;display: inline-block;vertical-align: middle;border-top: 1px dotted rgb(61, 170, 214);border-bottom: 1px dotted rgb(61, 170, 214);\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"7ab9d\" style=\"color: rgb(61, 170, 214);letter-spacing: 1px;line-height: 24px;text-align: justify;\">\n<p><span style=\"color: rgb(0, 122, 170);\"><strong><span style=\"font-size: 15px;\">2.\u8f7d\u5165\u9700\u8981\u7684R\u5305<\/span><\/strong><\/span><span style=\"font-family: \u5b8b\u4f53;font-size: 10.5pt;\"><o:p><\/o:p><\/span><\/p>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<section>\n<p><br style=\"font-size: 16px;letter-spacing: 0.578px;white-space: normal;\" \/><\/p>\n<\/section>\n<\/section>\n<p style=\"font-size: 16px;\"><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">library(superpc)<\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p style=\"font-size: 16px;\"><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">library(survival)<\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p style=\"font-size: 16px;\"><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">library(survcomp)<\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p style=\"font-size: 16px;\"><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">library(tidyverse)<\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p style=\"font-size: 16px;\"><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">library(glmnet)<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<section class=\"channels_iframe_wrp\"><mp-common-videosnap class=\"js_uneditable custom_select_card channels_live_iframe\" data-pluginname=\"mpvideosnap\" data-headimgurl=\"https:\/\/wx.qlogo.cn\/finderhead\/DX68kVlzcbz8hx9HMoThqGJzT37Slibt5l9fBMMKy3pg\/0\" data-username=\"v2_060000231003b20faec8c7e38019c0d4cc02ec33b077ef3bc1e59b4a7f53fd21ec5cd455628a@finder\" data-nickname=\"\u4e91\u751f\u4fe1\u5b66\u751f\u7269\u4fe1\u606f\u5b66\" data-desc=\"\u5c06\u572808\u670801\u65e5 15:00 \u76f4\u64ad\" data-livewording=\"\u9884\u7ea6\" data-intro=\"\u8ddf\u7740nature\u5b66\u7ed8\u56fe\uff0c\u6709\u624b\u5c31\u884cChiplot\u96f6\u4ee3\u7801\u7ed8\u5236\u65f6\u95f4\u5206\u6b67\u6811&\u5e26\u8272\u5757\u805a\u7c7b\u70ed\u56fe\" data-type=\"live\" data-status=\"0\" data-noticeid=\"finderlivenotice-v2_060000231003b20faec8c7e38019c0d4cc02ec33b077ef3bc1e59b4a7f53fd21ec5cd455628a@finder-1690162760537124-1147360090\"><\/mp-common-videosnap><\/section>\n<p style=\"font-size: 16px;\"><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\"><\/span><\/span><\/p>\n<section data-id=\"22363\" powered-by=\"xmyeditor.com\" data-type=\"lspecial02\" data-md5=\"7ab9d\" style=\"margin-bottom: 0px;\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"7ab9d\" style=\"text-align: left;\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"7ab9d\" style=\"padding-right: 10px;padding-left: 10px;display: inline-block;vertical-align: middle;border-top: 1px dotted rgb(61, 170, 214);border-bottom: 1px dotted rgb(61, 170, 214);\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"7ab9d\" style=\"letter-spacing: 1px;line-height: 24px;text-align: justify;\">\n<p><span style=\"font-size: 15px;\"><strong><span style=\"font-size: 15px;color: rgb(0, 122, 170);\">3.\u8bfb\u53d6\u6570\u636e<\/span><\/strong><\/span><br \/><\/p>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<p style=\"font-size: 16px;\"><br \/><\/p>\n<\/section>\n<\/section>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">#<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">TCGA.txt<\/span><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">–<\/span><span style=\"font-family:\u5b8b\u4f53;\">\u8bad\u7ec3\u96c6\u6570\u636e\uff0c\u7b2c\u4e00\u5217\u4e3a\u6837\u672c\u4fe1\u606f\uff0c\u7b2c\u4e8c\u5217\u8868\u793a\u751f\u5b58\u72b6\u6001\uff0c\u7b2c\u4e09\u5217\u8868\u793a\u751f\u5b58\u65f6\u95f4\uff0c\u5176\u4ed6\u5217\u4e3a\u57fa\u56e0\u540d<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">tcga <- read.table(“TCGA.txt”, header = T,sep = “t”, quote = “”, check.names = F)<\/span><\/p>\n<p style=\"text-align: center;\"><img decoding=\"async\" class=\"rich_pages wxw-img\" data-galleryid=\"\" data-ratio=\"0.2658959537572254\" data-s=\"300,640\" src=\"https:\/\/i0.wp.com\/www.biocloudservice.com\/wordpress\/wp-content\/uploads\/2024\/06\/2_vXZFDcvtjecmTq68JJiaZ2HCpUmlYw-5.png?w=640\" onerror=\"this.src='https:\/\/mmbiz.qpic.cn\/sz_mmbiz_png\/zcicibWZessAwqcnrq6Fs0aELmBTOxQXq6dSGItQcMp6c8bMBuo7cDdZMZMvXZFDcvtjecmTq68JJiaZ2HCpUmlYw\/640?wx_fmt=png'\" data-type=\"png\" data-w=\"692\" style=\"\" data-recalc-dims=\"1\" \/><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">#<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">GSE57303<\/span><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">–<\/span><span style=\"font-family:\u5b8b\u4f53;\">\u6d4b\u8bd5\u96c6\u6570\u636e\uff0c\u7b2c\u4e00\u5217\u4e3a\u6837\u672c\u4fe1\u606f\uff0c\u7b2c\u4e8c\u5217\u8868\u793a\u751f\u5b58\u72b6\u6001\uff0c\u7b2c\u4e09\u5217\u8868\u793a\u751f\u5b58\u65f6\u95f4\uff0c\u5176\u4ed6\u5217\u4e3a\u57fa\u56e0\u540d<\/span><span style=\"font-family:Calibri;\">.<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">GSE57303 <- read.table(“GSE57303.txt”, header = T, sep = “t”, quote = “”, check.names = F)<\/span><\/p>\n<p style=\"text-align: center;\"><img decoding=\"async\" class=\"rich_pages wxw-img\" data-galleryid=\"\" data-ratio=\"0.24277456647398843\" data-s=\"300,640\" src=\"https:\/\/i0.wp.com\/www.biocloudservice.com\/wordpress\/wp-content\/uploads\/2024\/06\/3_Jric0TnrLT3cb1C9z0NdctRDCj9lCg-5.png?w=640\" onerror=\"this.src='https:\/\/mmbiz.qpic.cn\/sz_mmbiz_png\/zcicibWZessAwqcnrq6Fs0aELmBTOxQXq6NtcYubo52muPSEF7qCWBBFLo0Jric0TnrLT3cb1C9z0NdctRDCj9lCg\/640?wx_fmt=png'\" data-type=\"png\" data-w=\"692\" style=\"\" data-recalc-dims=\"1\"><\/p>\n<p><br \/><\/p>\n<section data-id=\"22363\" powered-by=\"xmyeditor.com\" data-type=\"lspecial02\" data-md5=\"7ab9d\" style=\"margin-bottom: 0px;\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"7ab9d\" style=\"text-align: left;\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"7ab9d\" style=\"padding-right: 10px;padding-left: 10px;display: inline-block;vertical-align: middle;border-top: 1px dotted rgb(61, 170, 214);border-bottom: 1px dotted rgb(61, 170, 214);\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"7ab9d\" style=\"letter-spacing: 1px;line-height: 24px;text-align: justify;\">\n<p style=\"font-size: 15px;\"><span style=\"color: rgb(0, 122, 170);\"><strong>4.\u6240\u9700\u6570\u636e\u683c\u5f0f\u6574\u7406<\/strong><\/span><\/p>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<section style=\"font-size: 16px;\">\n<section data-id=\"75061\" data-type=\"lspecial02\" data-tools=\"\u901f\u6392\u5c0f\u8682\u8681\u7f16\u8f91\u5668\" powered-by=\"xmyeditor.com\" data-md5=\"83a15\">\n<section style=\"display: inline-block;vertical-align: middle;\" data-md5=\"83a15\">\n<section style=\"color: rgb(174, 208, 241);letter-spacing: 2px;line-height: 1rem;text-align: center;font-weight: 800;\" powered-by=\"xmyeditor.com\" data-md5=\"83a15\">\n<p style=\"font-size: 16px;\" data-md5=\"83a15\"><br \/><\/p>\n<\/section>\n<\/section>\n<section style=\"overflow-y: auto;height: 250px;padding: 10px;background-image: linear-gradient(315deg, rgb(176, 225, 247), rgb(250, 239, 236));background-position: initial;background-size: initial;background-repeat: initial;background-attachment: initial;background-origin: initial;background-clip: initial;width: 100%;margin-top: 10px;\" powered-by=\"xmyeditor.com\" data-md5=\"83a15\">\n<section style=\"overflow: hidden;\" powered-by=\"xmyeditor.com\" data-md5=\"83a15\">\n<section style=\"margin-left: 17px;\" data-md5=\"83a15\">\n<section style=\"display: inline-block;vertical-align: middle;transform: rotate(0deg);\" powered-by=\"xmyeditor.com\" data-md5=\"83a15\">\n<section style=\"border-bottom: 8px solid rgb(171, 209, 255);width: 0px;height: 0px;border-left: 8px solid transparent !important;border-right: 8px solid transparent !important;\" data-md5=\"83a15\"><br \/><\/section>\n<section style=\"border-top: 8px solid rgb(171, 209, 255);width: 0px;height: 0px;margin-top: 5px;border-left: 8px solid transparent !important;border-right: 8px solid transparent !important;\" data-md5=\"83a15\"><br \/><\/section>\n<\/section>\n<section style=\"display: inline-block;vertical-align: middle;padding-left: 16px;margin-left: -16px;\" powered-by=\"xmyeditor.com\" data-md5=\"83a15\">\n<section style=\"color: rgb(0, 0, 0);letter-spacing: 1px;line-height: 24px;margin-left: 10px;\" powered-by=\"xmyeditor.com\" data-md5=\"83a15\">\n<p style=\"font-size: 15px;\" data-md5=\"83a15\"><span style=\"font-size: 14px;\">\u5411\u4e0a\u6ed1\u52a8\u67e5\u770b\u5b8c\u6574\u4ee3\u7801<\/span><\/p>\n<\/section>\n<\/section>\n<\/section>\n<section style=\"color: rgb(102, 102, 102);letter-spacing: 2px;line-height: 26px;margin-top: 10px;\" powered-by=\"xmyeditor.com\" data-md5=\"83a15\">\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";color:rgb(255,0,0);font-size:10.5000pt;mso-font-kerning:1.0000pt;\"># <span style=\"font-family:\u5b8b\u4f53;\">\u751f\u6210\u5305\u542b<\/span><span style=\"font-family:Calibri;\">2<\/span><span style=\"font-family:\u5b8b\u4f53;\">\u4e2a\u6570\u636e\u96c6\u7684\u5217\u8868<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";color:rgb(255,0,0);font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">mm <- list(TCGA = tcga,<\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">GSE57303 = GSE57303)<\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"># <span style=\"font-family:\u5b8b\u4f53;\">\u6570\u636e\u6807\u51c6\u5316<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">mm <- lapply(mm,function(x){<\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">x[,-c(1:3)] <- scale(x[,-c(1:3)])<\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">return(x)})<\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">result <- data.frame()<\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"># TCGA<span style=\"font-family:\u5b8b\u4f53;\">\u4f5c\u4e3a\u8bad\u7ec3\u96c6<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">est_data <- mm$TCGA<\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">#<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">GSE57303<\/span><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:\u5b8b\u4f53;\">\u4f5c\u4e3a\u6d4b\u8bd5\u96c6<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">w<-mm$GSE57303<\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">#<\/span><span style=\"font-family:\u5b8b\u4f53;\">\u83b7\u5f97\u57fa\u56e0\u540d<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">pre_var <- colnames(est_data)[-c(1:3)]<\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">#<\/span><span style=\"font-family:\u5b8b\u4f53;\">\u63d0\u53d6\u8bad\u7ec3\u96c6\u9700\u8981\u7684\u5217\u6570\u636e<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">est_dd <- est_data[, c(‘OS.time’, ‘OS’, pre_var)]<\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">#<\/span><span style=\"font-family:\u5b8b\u4f53;\">\u63d0\u53d6\u6d4b\u8bd5\u96c6\u9700\u8981\u7684\u5217\u6570\u636e<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">w <- w[, c(‘OS.time’, ‘OS’, pre_var)]<\/span><\/p>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<section>\n<p><br \/><\/p>\n<section data-id=\"22363\" powered-by=\"xmyeditor.com\" data-type=\"lspecial02\" data-md5=\"7ab9d\" style=\"margin-bottom: 0px;letter-spacing: 0.578px;white-space: normal;\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"7ab9d\" style=\"text-align: left;\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"7ab9d\" style=\"padding-right: 10px;padding-left: 10px;display: inline-block;vertical-align: middle;border-top: 1px dotted rgb(61, 170, 214);border-bottom: 1px dotted rgb(61, 170, 214);\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"7ab9d\" style=\"letter-spacing: 1px;line-height: 24px;text-align: justify;\">\n<p><span style=\"color: rgb(0, 122, 170);\"><strong><span style=\"font-size: 15px;\">5.superpc\u7b97\u6cd5\u8fdb\u884c\u6a21\u578b\u6784\u5efa<\/span><\/strong><\/span><\/p>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<section style=\"margin-bottom: 0px;letter-spacing: 0.578px;white-space: normal;font-size: 16px;\">\n<section data-id=\"75061\" data-type=\"lspecial02\" data-tools=\"\u901f\u6392\u5c0f\u8682\u8681\u7f16\u8f91\u5668\" powered-by=\"xmyeditor.com\" data-md5=\"83a15\">\n<section data-md5=\"83a15\" style=\"display: inline-block;vertical-align: middle;\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"83a15\" style=\"color: rgb(174, 208, 241);letter-spacing: 2px;line-height: 1rem;text-align: center;font-weight: 800;\">\n<p data-md5=\"83a15\"><br \/><\/p>\n<\/section>\n<\/section>\n<section powered-by=\"xmyeditor.com\" data-md5=\"83a15\" style=\"margin-top: 10px;padding: 10px;overflow-y: auto;height: 250px;background-image: linear-gradient(315deg, rgb(176, 225, 247), rgb(250, 239, 236));background-position: initial;background-size: initial;background-repeat: initial;background-attachment: initial;background-origin: initial;background-clip: initial;width: 578px;\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"83a15\" style=\"overflow: hidden;\">\n<section data-md5=\"83a15\" style=\"margin-left: 17px;\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"83a15\" style=\"display: inline-block;vertical-align: middle;transform: rotate(0deg);\">\n<section data-md5=\"83a15\" style=\"border-bottom: 8px solid rgb(171, 209, 255);width: 0px;height: 0px;border-left: 8px solid transparent !important;border-right: 8px solid transparent !important;\"><br \/><\/section>\n<section data-md5=\"83a15\" style=\"margin-top: 5px;border-top: 8px solid rgb(171, 209, 255);width: 0px;height: 0px;border-left: 8px solid transparent !important;border-right: 8px solid transparent !important;\"><br \/><\/section>\n<\/section>\n<section powered-by=\"xmyeditor.com\" data-md5=\"83a15\" style=\"margin-left: -16px;padding-left: 16px;display: inline-block;vertical-align: middle;\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"83a15\" style=\"margin-left: 10px;color: rgb(0, 0, 0);letter-spacing: 1px;line-height: 24px;\">\n<p data-md5=\"83a15\" style=\"font-size: 15px;\"><span style=\"font-size: 14px;\">\u5411\u4e0a\u6ed1\u52a8\u67e5\u770b\u5b8c\u6574\u4ee3\u7801<\/span><\/p>\n<\/section>\n<\/section>\n<\/section>\n<section powered-by=\"xmyeditor.com\" data-md5=\"83a15\" style=\"margin-top: 10px;color: rgb(102, 102, 102);letter-spacing: 2px;line-height: 26px;\">\n<p><span style=\"font-family: Calibri;font-size: 10.5pt;\">#<span style=\"font-family:\u5b8b\u4f53;\">\u8bad\u7ec3\u96c6<\/span><\/span><span style=\"font-family: \u5b8b\u4f53;font-size: 10.5pt;\">\u6570\u636e\u5217\u8868<\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">data <- list(x = t(est_dd[, -c(1,2)]), y = est_dd$OS.time, censoring.status = est_dd$OS, featurenames = colnames(est_dd)[-c(1, 2)])<o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">set.seed(<\/span><span style=\"font-size: 10.5pt;font-family: Calibri;\">123<\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">)<o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">#<\/span><span style=\"font-family:\u5b8b\u4f53;\">\u5229\u7528\u8bad\u7ec3\u96c6\u8fdb\u884c\u6a21\u578b\u6784\u5efa<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">fit <- superpc.train(data = data,type = ‘survival’, s0.perc = 0.5) #default<o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">cv.fit <- superpc.cv(fit, data, n.threshold = 20, #default<o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">n.fold = 10,<o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">n.components = 3,<o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">min.features = 5,<o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">max.features = nrow(data$x),<o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">compute.fullcv = TRUE,<o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">compute.preval = TRUE)<o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">#<span style=\"font-family:\u5b8b\u4f53;\">\u6d4b\u8bd5\u96c6<\/span><\/span><span style=\"font-size: 10.5pt;font-family: \u5b8b\u4f53;\">\u6570\u636e\u5217\u8868<\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">test <- list(x = t(w[,-c(1,2)]), y = w$OS.time, censoring.status = w$OS, featurenames = colnames(w)[-c(1,2)])<o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">#<\/span><span style=\"font-family:\u5b8b\u4f53;\">\u5229\u7528\u8bad\u7ec3\u96c6\u8fdb\u884c\u6a21\u578b\u9884\u6d4b<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">ff <- superpc.predict(fit, data, test, threshold = cv.fit$thresholds[which.max(cv.fit[[“scor”]][1,])], n.components = 1)<o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">#<\/span><span style=\"font-family:\u5b8b\u4f53;\">\u5c06\u6570\u636e\u7c7b\u578b\u6539\u4e3a\u6570\u5b57<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">rr <- as.numeric(ff$v.pred)<o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">rr2 <- cbind(w[,1:2], RS = rr)<o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">#<\/span><span style=\"font-family:\u5b8b\u4f53;\">\u8ba1\u7b97\u6a21\u578b\u7684\u9884\u6d4b\u6548\u80fd\u7684<\/span><span style=\"font-family:Calibri;\">C<\/span><span style=\"font-family:\u5b8b\u4f53;\">\u6307\u6570<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">cc<-data.frame(Cindex=as.numeric(summary(coxph(Surv(OS.time,OS)~ RS,rr2))$concordance[1])) %>%<o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">rownames_to_column(‘ID’)<o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">cc$Model <- paste0(‘SuperPC’)<o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\">result <- rbind(result, cc)<o:p><\/o:p><\/span><\/p>\n<p><br \/><\/p>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<section>\n<p><br \/><\/p>\n<\/section>\n<\/section>\n<section data-id=\"22363\" powered-by=\"xmyeditor.com\" data-type=\"lspecial02\" data-md5=\"7ab9d\" style=\"margin-bottom: 0px;letter-spacing: 0.578px;white-space: normal;\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"7ab9d\" style=\"text-align: left;\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"7ab9d\" style=\"padding-right: 10px;padding-left: 10px;display: inline-block;vertical-align: middle;border-top: 1px dotted rgb(61, 170, 214);border-bottom: 1px dotted rgb(61, 170, 214);\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"7ab9d\">\n<p><span style=\"color: rgb(0, 122, 170);\"><strong><span style=\"font-size: 15px;\">6.Ridge\u7b97\u6cd5\u8fdb\u884c\u6a21\u578b\u6784\u5efa<\/span><\/strong><\/span><\/p>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<section style=\"margin-bottom: 0px;letter-spacing: 0.578px;white-space: normal;font-size: 16px;\">\n<section data-id=\"75061\" data-type=\"lspecial02\" data-tools=\"\u901f\u6392\u5c0f\u8682\u8681\u7f16\u8f91\u5668\" powered-by=\"xmyeditor.com\" data-md5=\"83a15\">\n<section data-md5=\"83a15\" style=\"display: inline-block;vertical-align: middle;\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"83a15\" style=\"color: rgb(174, 208, 241);letter-spacing: 2px;line-height: 1rem;text-align: center;font-weight: 800;\">\n<p data-md5=\"83a15\"><br \/><\/p>\n<\/section>\n<\/section>\n<section powered-by=\"xmyeditor.com\" data-md5=\"83a15\" style=\"margin-top: 10px;padding: 10px;overflow-y: auto;height: 250px;background-image: linear-gradient(315deg, rgb(176, 225, 247), rgb(250, 239, 236));background-position: initial;background-size: initial;background-repeat: initial;background-attachment: initial;background-origin: initial;background-clip: initial;width: 578px;\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"83a15\" style=\"overflow: hidden;\">\n<section data-md5=\"83a15\" style=\"margin-left: 17px;\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"83a15\" style=\"display: inline-block;vertical-align: middle;transform: rotate(0deg);\">\n<section data-md5=\"83a15\" style=\"border-bottom: 8px solid rgb(171, 209, 255);width: 0px;height: 0px;border-left: 8px solid transparent !important;border-right: 8px solid transparent !important;\"><br \/><\/section>\n<section data-md5=\"83a15\" style=\"margin-top: 5px;border-top: 8px solid rgb(171, 209, 255);width: 0px;height: 0px;border-left: 8px solid transparent !important;border-right: 8px solid transparent !important;\"><br \/><\/section>\n<\/section>\n<section powered-by=\"xmyeditor.com\" data-md5=\"83a15\" style=\"margin-left: -16px;padding-left: 16px;display: inline-block;vertical-align: middle;\">\n<section powered-by=\"xmyeditor.com\" data-md5=\"83a15\" style=\"margin-left: 10px;color: rgb(0, 0, 0);letter-spacing: 1px;line-height: 24px;\">\n<p data-md5=\"83a15\" style=\"font-size: 15px;\"><span style=\"font-size: 14px;\">\u5411\u4e0a\u6ed1\u52a8\u67e5\u770b\u5b8c\u6574\u4ee3\u7801<\/span><\/p>\n<\/section>\n<\/section>\n<\/section>\n<section powered-by=\"xmyeditor.com\" data-md5=\"83a15\" style=\"margin-top: 10px;color: rgb(102, 102, 102);letter-spacing: 2px;line-height: 26px;\">\n<p><span style=\"font-size: 10.5pt;font-family: Calibri;\">#<\/span><span style=\"font-family: \u5b8b\u4f53;font-size: 10.5pt;\">\u6a21\u578b\u6784\u5efa<\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">x1 <- as.matrix(est_dd[, pre_var])<\/span><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">x2 <- as.matrix(Surv(est_dd$OS.time, est_dd$OS))<\/span><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">set.seed(seed)<\/span><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">fit = glmnet(x1, x2, family = “binomial”, alpha = 0, lambda = NULL)<\/span><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">cvfit = cv.glmnet(x1, x2,<\/span><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">nfold = 10, #<\/span><span style=\"font-family:\u5b8b\u4f53;\">\u4f8b\u6587\u63cf\u8ff0\uff1a<\/span><span style=\"font-family:Calibri;\">10-fold cross-validation<\/span><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">family = “binomial”,<\/span><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">type.measure = “class”<\/span><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">)<\/span><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">#<\/span><span style=\"font-family:\u5b8b\u4f53;\">\u6a21\u578b\u9884\u6d4b<\/span><\/span><span style=\"mso-spacerun:"yes";font-family:Calibri;mso-fareast-font-family:\u5b8b\u4f53;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">rs = as.numeric(predict(fit, type = ‘response’, newx = as.matrix(w[, -c(1,2)]), s = cvfit$lambda.min))<\/span><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">rr2 <- cbind(w[,1:2], RS = rs)<\/span><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">##<\/span><span style=\"font-family:\u5b8b\u4f53;\">\u8ba1\u7b97\u6a21\u578b\u7684\u9884\u6d4b\u6548\u80fd\u7684<\/span><span style=\"font-family:Calibri;\">C<\/span><span style=\"font-family:\u5b8b\u4f53;\">\u6307\u6570<\/span><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">cc <- data.frame(Cindex = as.numeric(summary(coxph(Surv(OS.time,OS) ~ RS, rr2))$concordance[1])) %>%<\/span><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">rownames_to_column(‘ID’)<\/span><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">cc$Model <- paste0(‘Ridge’)<\/span><o:p><\/o:p><\/span><\/p>\n<p><span style=\"mso-spacerun:"yes";font-family:\u5b8b\u4f53;mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times New Roman";font-size:10.5000pt;mso-font-kerning:1.0000pt;\"><span style=\"font-family:Calibri;\">Result <- rbind(result, cc)<\/span><o:p><\/o:p><\/span><\/p>\n<p><span style=\"font-size: 10.5pt;font-family: Calibri;\">write.table(Result,file=”superpc_ridge.txt”,row.names=F,col.names=T,sep=”t”,quote=F)<\/span><\/p>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<p style=\"text-align: center;\"><img decoding=\"async\" class=\"rich_pages wxw-img\" data-galleryid=\"\" data-ratio=\"0.0708092485549133\" data-s=\"300,640\" src=\"https:\/\/i0.wp.com\/www.biocloudservice.com\/wordpress\/wp-content\/uploads\/2024\/06\/4_MAQzJ3GjXXOZ74XT6p5YlglbLHGl3A-5.png?w=640\" onerror=\"this.src='https:\/\/mmbiz.qpic.cn\/sz_mmbiz_png\/zcicibWZessAwqcnrq6Fs0aELmBTOxQXq6EpynfE8Kicz7MOJnzH3eBCiaO2MAQzJ3GjXXOZ74XT6p5YlglbLHGl3A\/640?wx_fmt=png'\" data-type=\"png\" data-w=\"692\" style=\"\" data-recalc-dims=\"1\" \/><\/p>\n<p><br \/><\/p>\n<p><br \/><\/p>\n<p><span style=\"font-size: 14px;\">\u5c0f\u679c\u6700\u7ec8\u987a\u5229\u7684\u5229\u7528supersc\u548cRidge\u4e24\u79cd\u7b97\u6cd5\u8fdb\u884c\u4e86\u6a21\u578b\u6784\u5efa\u548c\u9884\u6d4b\uff0c\u5e76\u8ba1\u7b97\u4e86\u9884\u6d4b\u6548\u80fdC\u6307\u6570\uff0c\u6765\u5224\u65ad\u6a21\u578b\u7684\u597d\u574f\u3002<\/span><strong><span style=\"font-size: 14px;\"><\/span><\/strong><\/p>\n<p><span style=\"font-size: 12px;color: rgb(0, 122, 170);text-decoration: underline;\">\u673a\u5668\u5b66\u4e60\u76f8\u5173\u7684\u5176\u4ed6\u5206\u6790\u5185\u5bb9\u6b22\u8fce\u5c1d\u8bd5\u672c\u516c\u53f8\u65b0\u5f00\u53d1\u7684\u4e91\u5e73\u53f0\u751f\u7269\u4fe1\u606f\u5206\u6790\u5c0f\u5de5\u5177\uff0c\u96f6\u4ee3\u7801\u5b8c\u6210\u5206\u6790<\/span><\/p>\n<p><span style=\"font-size: 12px;color: rgb(0, 122, 170);text-decoration: underline;\">\u4e91\u5e73\u53f0\u7f51\u5740\uff1ahttp:\/\/www.biocloudservice.com\/home.html<\/span><\/p>\n<p><span style=\"font-size: 12px;color: rgb(0, 122, 170);text-decoration: underline;\">\u4e3b\u8981\u5305\u62eclasso\u56de\u5f52\u6a21\u578b\u7b5b\u9009\u7279\u5f81\u57fa\u56e0(http:\/\/www.biocloudservice.com\/116\/116.php)<\/span><\/p>\n<p><span style=\"font-size: 12px;color: rgb(0, 122, 170);text-decoration: underline;\">\u968f\u673a\u68ee\u6797\u7684\u5341\u6298\u4ea4\u53c9\u9a8c\u8bc1(http:\/\/www.biocloudservice.com\/646\/646.php)<\/span><\/p>\n<p><span style=\"font-size: 12px;color: rgb(0, 122, 170);text-decoration: underline;\">svm-ref\u652f\u6301\u5411\u91cf\u673a\u7684\u673a\u5668\u5b66\u4e60(http:\/\/www.biocloudservice.com\/372\/372.php)\u7b49\u673a\u5668\u5b66\u4e60\u76f8\u5173\u7684\u5c0f\u5de5\u5177\u3002<\/span><\/p>\n<p><span style=\"font-size: 14px;\">\u4eca\u5929\u5c0f\u679c\u7684\u5206\u4eab\u5c31\u5230\u8fd9\u91cc\uff0c\u6b22\u8fce\u5927\u5bb6\u548c\u5c0f\u679c\u4e00\u8d77\u8ba8\u8bba\u5b66\u4e60\uff0c\u4e0b\u671f\u518d\u89c1\u54e6\uff01<\/span><\/p>\n<\/section>\n<\/section>\n<\/section>\n<section powered-by=\"xiumi.us\" style=\"font-size: 16px;\">\n<section class=\"mp_profile_iframe_wrp\"><mp-common-profile class=\"js_uneditable custom_select_card mp_profile_iframe\" data-pluginname=\"mpprofile\" data-id=\"Mzg3OTg3MjQyNg==\" data-headimg=\"http:\/\/mmbiz.qpic.cn\/mmbiz_png\/zcicibWZessAwvyLLXlYq0SJu55voD1bnb7juHUdkAibE5woL3FrUvV4nmfhXjL5DgcNYqYFsyFCZrof6ibA2ibPmuw\/0?wx_fmt=png\" data-nickname=\"\u751f\u4fe1\u679c\" data-alias=\"shengxinguoer\" data-signature=\"\u751f\u4fe1\u5165\u95e8\u3001R\u8bed\u8a00\u3001\u751f\u4fe1\u56fe\u89e3\u8bfb\u4e0e\u7ed8\u5236\u3001\u8f6f\u4ef6\u64cd\u4f5c\u3001\u4ee3\u7801\u590d\u73b0\u3001\u751f\u4fe1\u786c\u6838\u77e5\u8bc6\u6280\u80fd\u3001\u670d\u52a1\u5668\u7b49\" data-from=\"0\" data-is_biz_ban=\"0\"><\/mp-common-profile><\/section>\n<section style=\"margin-bottom: 0px;letter-spacing: 0.578px;white-space: normal;caret-color: rgba(0, 0, 0, 0);font-size: 16px;\">\n<section>\n<section style=\"margin-top: 0.5em;\">\n<section style=\"padding: 0.5em;border-width: 1px;border-style: solid;box-shadow: rgb(226, 226, 226) 0px 16px 1px -13px;border-color: rgb(0, 150, 136);\">\n<section style=\"text-align: left;\">\n<section style=\"color: rgb(255, 129, 36);text-align: justify;\">\n<section style=\"margin-bottom: 8px;\">\n<p style=\"text-indent: 0em;line-height: 1.75em;\"><span style=\"letter-spacing: 0.5px;\">\u70b9\u51fb<strong><span style=\"color: rgb(0, 150, 136);\">\u201c\u9605\u8bfb\u539f\u6587\u201d<\/span><\/strong>\u7acb\u523b\u62e5\u6709<\/span><\/p>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<section style=\"margin-bottom: 8px;font-size: 32px;color: rgb(0, 150, 136);\">\n<p style=\"text-indent: 0em;line-height: 1.75em;\"><span style=\"letter-spacing: 0.5px;\">\u2193\u2193\u2193<\/span><span style=\"letter-spacing: 0.5px;text-indent: 0em;\"><\/span><\/p>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n<p style=\"display: none;\"><mp-style-type data-value=\"3\"><\/mp-style-type><\/p>\n<div class=\"msg_source_url\"><a href=\"https:\/\/mp.weixin.qq.com\/s\/sfk0hRc6tkxjkKkvuVHjnA#rd\" target=\"_blank\" rel=\"noopener\">\u9605\u8bfb\u539f\u6587<\/a><\/div>\n<p><\/content><\/p>\n<div class=\"msg_source_url\"><a href=\"https:\/\/mp.weixin.qq.com\/s\/sfk0hRc6tkxjkKkvuVHjnA#rd\" target=\"_blank\" rel=\"noopener\">\u9605\u8bfb\u539f\u6587<\/a><\/div>\n<\/div>\n<p><\/body><br \/>\n<\/html><\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u53ea\u9700\u4e09\u5206\u949f\uff0c\u638c\u63e1\u751f\u5b58\u76f8\u5173\u673a\u5668\u5b66\u4e60\u7b97\u6cd5-superpc\u548cRidge \u539f\u521b \u5c0f\u679c […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"","sticky":false,"template":"","format":"standard","meta":{"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":""},"categories":[1],"tags":[],"jetpack_featured_media_url":"","_links":{"self":[{"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/50124"}],"collection":[{"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=50124"}],"version-history":[{"count":1,"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/50124\/revisions"}],"predecessor-version":[{"id":50129,"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/50124\/revisions\/50129"}],"wp:attachment":[{"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=50124"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=50124"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=50124"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}