在R中为GLM模型绘制ROC

Question

pred1 <- prediction(predictions=glm.prob2,labels = train_data)

  

错误：预测错误（预测= glm.prob2，标签= train_data）：     每次运行中的预测数必须等于每次运行中的标签数。

我已经使用glm模型来预测输出，并试图将pred1作为变量绘制ROC曲线。

这是完整的代码

View(train_data)
library(ROCR)
pred1 <- prediction(predictions=glm.prob2,labels = train_data)
perf1<-performance(pred1,measure ="TP.rate",x.measure = "FP.rate")
plot(perf1)