请问有没有用R语言根据模型或者ROC曲线计算阴性预测值和阳性预测值的代码，自变量和因变量都是二分类变量