Create GermanCreditPDModel.R