如题，因变量取值为0和1，取1样本数大概为取0样本数的十分之一，如何选择拟合模型？lm(~, family = binomial(link = "logit"))效果不是很理想。