Add comparison between sm and non-sm

survival.R

@@ -85,6 +85,20 @@ sma_plot_surv_sm <- function() {
 		   ggtheme = theme_bw())
 }
 
+sma_plot_surv_sm_nonsm <- function() {
+	ggsurvplot(survfit(Surv(event_time_asct, event_status) ~ ifelse(
+		time_at_risk_status == 1, 1, 0), secmal),
+		   data = secmal, xscale = "d_y",
+		   break.time.by = sma_break.time.by,
+		   legend = "none",
+		   xlab = "Years",
+		   palette = "lancet",
+		   ggtheme = theme_bw(),
+		   conf.int = TRUE,
+		   pval = TRUE)
+}
+
+
 #
 # Write survival plots to files
 #