0

I'm trying to plot this: enter image description here

using this code form GitHub:

PP<- data.frame()
for (i in names(tt)) {
   dd <- tt[[i]]
   for(j in colnames(dd)[4:ncol(dd)]){
      scox <- summary( coxph(Surv(OS.time,OS) ~ get(j),dd))
      p <- compareC(dd$OS.time, dd$OS, dd$IRLS,dd[,j])$pval
      uni <- rbind(uni, data.frame(ID=i,A=j,
                            HR=scox$conf.int[,1],
                            HR.95L=scox$conf.int[,3],
                            HR.95R=scox$conf.int[,4],
                            pvalue=scox$coefficients[,5],
                            cindex=scox$concordance[1]%>%as.numeric(),
                            cse=scox$concordance[2]%>%as.numeric(),
                            CP=p))}}

how this loop works? my input is a gene expression vector (TCGA) and i wanted to get a list of significant prognostic features (genes).

thanks

IRTFM
  • 258,963
  • 21
  • 364
  • 487

0 Answers0