jsauer/secmalasct
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

survival: Remove excessive newlines

Browse Source
This commit is contained in:
Jens Sauer 2020-11-16 22:52:14 +01:00
parent e1c6279119
commit b5634b7f8f
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
survival.R
View File

@ -30,7 +30,6 @@ sma_plot_surv_dx_sex <- function() {
legend(100, .9, c("Female", "Male"), lty = 2:3)
}
# plot survival after transplantation
sma_plot_surv_asct <- function() {
plot(survfit(surv_asct ~ 1), mark.time = TRUE, xscale = 365.25,
@ -39,7 +38,6 @@ sma_plot_surv_asct <- function() {
"Survival after transplantation")
}
# plot survival after transplantation per sex
sma_plot_surv_asct_sex <- function() {
plot(survfit(surv_asct ~ sex, data = secmal), mark.time = TRUE,