Create Diseases.R