Add risk.R

Add file to run coxph analysis and print result to file.
This commit is contained in:
Jens Sauer 2021-01-17 11:40:53 +01:00
parent c74321fa54
commit 00d96d77f2
2 changed files with 17 additions and 0 deletions

1
.gitignore vendored
View File

@ -2,3 +2,4 @@
.Rhistory
*.png
*.csv
risk-analysis.txt

16
risk.R Normal file
View File

@ -0,0 +1,16 @@
# Riks factors
#
# License: GPL version 3
# Jens Mathis Sauer (c) 2020
source("coxph.R")
options(width = 150)
sink("risk-analysis.txt")
print("Using following risk predictors:")
print(as.data.frame(covariates))
# Show all coxph univariate models
sma_coxph_univ()
sink()
print("Output written to 'risk-analysis.txt'")