clin1=read.table('../data/TCGA-HNSC.survival.tsv.gz',header=T)[,2:4]clin1$pid=substring(clin1[,2],1,12)head(clin1)clin1[,3]=clin1[,3]/30clin1[clin1[,3]<0,3]=0#重新读入TCGA-CDR数据 clin3=read_excel("./TCGA-CDR-SupplementalTableS1.xlsx",sheet=3,na="NA")clin3=as.dat...
clin1$pid=substring(clin1[,2],1,12)head(clin1)clin1[,3]=clin1[,3]/30clin1[clin1[,3] <0,3]=0#重新读入TCGA-CDR数据clin3=read_excel("./TCGA-CDR-SupplementalTableS1.xlsx",sheet=3,na="NA")clin3 = as.data.frame(clin3)rownames(clin3) = substring(clin3[,2],1,12)clin3 =...
clin1$pid=substring(clin1[,2],1,12) head(clin1) clin1[,3]=clin1[,3]/30 clin1[clin1[,3] <0,3]=0 #重新读入TCGA-CDR数据 clin3=read_excel("./TCGA-CDR-SupplementalTableS1.xlsx",sheet=3,na="NA") clin3 = as.data.frame(clin3) rownames(clin3) = substring(clin3[,2],1,12...
clin1$pid=substring(clin1[,2],1,12) head(clin1) clin1[,3]=clin1[,3]/30 clin1[clin1[,3] <0,3]=0 #重新读入TCGA-CDR数据 clin3=read_excel("./TCGA-CDR-SupplementalTableS1.xlsx",sheet=3,na="NA") clin3 = as.data.frame(clin3) rownames(clin3) = substring(clin3[,2],1,12...