R语言：逻辑回归算法的实现——glm函数