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