large value for null variance and residual variance in logical regression

Question

I am new in R language.I am using R to do logical regression to a dataset to predict the risk of heart disease. I have created a binomial model with glm and again created th