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'")