created a Logistical model:
Banks_Logit<- glm(Banks$Financial.Condition ~ .,data = Banks, family="binomial") options(scipen=999) summary(Banks_L