oldval<-c("1012","1014","1015","N0","N0(i-)","N0(i+)","N0(mol-)","N0(mol...
setwd("D:\\GSE140358衰弱") library(GEOquery) getGEO(GEO = "GSE140358",) gs...
TCGA和GTEX中基因的表達(dá)差異 library(UCSCXenaShiny) vis_toil_TvsN_cancer( Gene = "...
rm(list = ls()) options("repos"=c(CRAN="http://mirrors.tuna.tsinghua.edu...
library(pROC) auc(response=as.numeric(fold_test[,61]),predictor=fold_pre...
auc_value<-as.numeric() auc_value<- append(auc_value, as.numeric(auc(as....
install.packages("survminer") library(survminer) library(survival) fit <...
###將兩個(gè)校正曲線放在一張圖上 p1<-plot(cal_3,lwd=3,lty=2,errbar.col="black",xlim = c...
值-1.96*標(biāo)準(zhǔn)差(se) 值+1.96*標(biāo)準(zhǔn)差(se)