download.file('https://www.uniklinik-freiburg.de/fileadmin/mediapool/08_institute/biometrie-statistik/Dateien/Studium_und_Lehre/Lehrbuecher/Multivariable_Model-building/prostate_ca.zip',
              'prostate_ca.zip')
data <- read.csv(unz('prostate_ca.zip', 'prostate_ca/prostate_ca.csv'), header = TRUE, row.names = 1)
system('rm prostate_ca.zip')