In Feng-Zhang/signatureFlow: What the Package Does (One Line, Title Case)

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

library(signatureFlow)

data(phe);data(expr)
cleanData = clean(phe,expr)

library(survival)
featureNames=sample(as.vector(as.data.frame(expr[,1])),10)
uniCoxRes=NULL
for(i in featureNames){
  #i=featureNames[1]
  cox <- coxph(Surv(survivalTime,survivalStatus) ~ cleanData[,i], data = cleanData)
  coxSumm = summary(cox)
  uniCoxRes = cbind(uniCoxRes,simpleSummary(coxSumm))
}