#Cox分析
Coxoutput <- NULL
for(i in 3:ncol(surv.expr)){
g <- colnames(surv.expr)[i]
cox <- coxph(Surv(OS.time,OS) ~ surv.expr[,i], data = surv.expr) # 单变量cox模型
coxSummary = summary(cox)
Coxoutput <- rbind.data.frame(Coxoutput,
data.frame(gene = g,
HR = as.numeric(coxSummary$coefficients[,"exp(coef)"])[1],
z = as.numeric(coxSummary$coefficients[,"z"])[1],
pvalue = as.numeric(coxSummary$coefficients[,"Pr(>|z|)"])[1],
lower = as.numeric(coxSummary$conf.int[,3][1]),
upper = as.numeric(coxSummary$conf.int[,4][1]),
stringsAsFactors &#
生信跑cox出现错误
于 2023-03-20 23:35:29 首次发布
