|
|
@@ -69,7 +69,7 @@ kaplan.meier.plot.gg<-function(x,var,...){
|
|
|
#need survfit2
|
|
|
s1<-ggsurvfit::survfit2(f,data=x)
|
|
|
|
|
|
- varName=set.from.list('varName','NOT GIVEN',...)
|
|
|
+ varName=set.from.list('varName',var,...)
|
|
|
tit=base::sprintf('Kaplan-Meier plot by %s',varName)
|
|
|
|
|
|
comment=set.from.list('comment','',...)
|
