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
|
.Rhistory
|
||||||
*.png
|
*.png
|
||||||
*.csv
|
*.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