|
|
@@ -65,8 +65,8 @@ kaplan.meier.plot.gg<-function(x,var,...){
|
|
|
|
|
|
|
|
|
#x should have followup and censored columns
|
|
|
- surv.obj<-survival::Surv(x$.followup,x$.censored)
|
|
|
- m=base::max(x$.followup)
|
|
|
+ surv.obj<-survival::Surv(x$followup,x$censored)
|
|
|
+ m=base::max(x$followup)
|
|
|
|
|
|
f<-stats::as.formula(paste('surv.obj',var,sep='~'))
|
|
|
#need survfit2
|
