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