Add risk.R
Add file to run coxph analysis and print result to file.
This commit is contained in:
parent
c74321fa54
commit
00d96d77f2
1
.gitignore
vendored
1
.gitignore
vendored
@ -2,3 +2,4 @@
|
||||
.Rhistory
|
||||
*.png
|
||||
*.csv
|
||||
risk-analysis.txt
|
||||
|
||||
16
risk.R
Normal file
16
risk.R
Normal 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'")
|
||||
Loading…
x
Reference in New Issue
Block a user