如何用spss或r语言求logistics回归算调整后r方?

如何用spss或r语言求logistics回归算调整后r方?