From 00d96d77f2a1896786ae7235d28d003bd9ee1954 Mon Sep 17 00:00:00 2001
From: Jens Sauer <jsauer65@gmail.com>
Date: Sun, 17 Jan 2021 11:40:53 +0100
Subject: [PATCH] Add risk.R

Add file to run coxph analysis and print result to file.
---
 .gitignore |  1 +
 risk.R     | 16 ++++++++++++++++
 2 files changed, 17 insertions(+)
 create mode 100644 risk.R

diff --git a/.gitignore b/.gitignore
index f49da9a..72dd9fe 100644
--- a/.gitignore
+++ b/.gitignore
@@ -2,3 +2,4 @@
 .Rhistory
 *.png
 *.csv
+risk-analysis.txt
diff --git a/risk.R b/risk.R
new file mode 100644
index 0000000..dae517d
--- /dev/null
+++ b/risk.R
@@ -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'")