|
@@ -104,15 +104,15 @@ kaplan.meier.plot.gg<-function(x,var,...){
|
|
|
|
|
|
|
|
|
|
|
|
|
#x should have followup and censored columns
|
|
#x should have followup and censored columns
|
|
|
- surv.obj<-survival::Surv(x$followup,x$censored)
|
|
|
|
|
|
|
+ surv.obj<-survival::Surv(x$followup,x$censored)
|
|
|
m=base::max(x$followup)
|
|
m=base::max(x$followup)
|
|
|
|
|
|
|
|
- f<-stats::as.formula(paste('surv.obj',var,sep='~'))
|
|
|
|
|
|
|
+ f<-stats::as.formula(paste('surv.obj',var,sep='~'))
|
|
|
#need survfit2
|
|
#need survfit2
|
|
|
- s1<-ggsurvfit::survfit2(f,data=x)
|
|
|
|
|
|
|
+ s1<-ggsurvfit::survfit2(f,data=x)
|
|
|
|
|
|
|
|
varName=set.from.list('varName',var,...)
|
|
varName=set.from.list('varName',var,...)
|
|
|
- tit=base::sprintf('Kaplan-Meier plot by %s',varName)
|
|
|
|
|
|
|
+ tit=base::sprintf('Kaplan-Meier plot by %s',varName)
|
|
|
ylab='Overall survival probability'
|
|
ylab='Overall survival probability'
|
|
|
|
|
|
|
|
comment=set.from.list('comment','',...)
|
|
comment=set.from.list('comment','',...)
|
