# Adjusted R Square For Binomial [duplicate]

mtcars=data.frame(mtcars)
m=glm(vs~mpg+cyl+disp+hp+drat,family="binomial",data=mtcars)
m=glm(vs~wt,family="binomial",data=mtcars)


I seek to estimate pseudo-r-squared that is adjusted for number of predict values however I have not seen such a resource.

Is there a way to do so?