R 使用整个列车数据集，但存在混淆矩阵问题

我正在用R语言练习逻辑回归。 指令中说使用ENTRIE数据集作为列车数据，所以我在列车上用零测试数据编写了完整的数据。 当我运行混淆矩阵的插入符号包时，我无法收到结果。 我错过了什么

rm(list = ls())
Admin.df <- read.csv("SystemAdministrators.csv")

library(dummies)
Admin.df<-data.frame(Completed=Admin.df$Completed,dummy.data.frame(Admin.df, names = "Completed",sep="_",
                                                                  dummy.classes =c("Yes", "No")))

selected.var <- c(1:3)

set.seed(2)
train.index <- sample(c(1:dim(Admin.df)[1]), dim(Admin.df)[1]*1)
train.Admin.df <- Admin.df[train.index, selected.var]
valid.Admin.df <- Admin.df[-train.index, selected.var]

logit.reg <- glm(Admin.df$Completed_Yes ~ ., data = train.Admin.df, family = "binomial") 
options(scipen=999) 
summary(logit.reg)

logit.reg.pred <- predict(logit.reg, train.Admin.df, type = "response") # not use valid data since no data
logit.reg.pred.class<-ifelse(logit.reg.pred > 0.5, 1, 0)


library(caret)
confusionMatrix(as.factor(logit.reg.pred.class), as.factor(train.Admin.df$Completed_Yes))
confusionMatrix(as.factor(ifelse(logit.reg.pred > 0.5, "Completed_Yes", "Completed_No")), 
                as.factor(ifelse(train.Admin.df$Completed_Yes==1,"Completed_Yes", "Completed_No")))

rm（list=ls（））
嗨，Leah，欢迎来到Stack Overflow。感谢您提供您正在使用的代码。你说你不能得到结果。运行此代码时会发生什么情况？它在插入符号包之前运行所有内容。当我试图运行confusionMatrix时，错误消息显示confusionMatrix.default中的错误（as.factor（logit.reg.pred.class）、as.factor（train.Admin.df$Completed_Yes））：数据的级别不能超过引用。---因为我使用整个列车数据，所以没有有效数据。这与您使用了多少数据集作为培训部分无关。我想这个问题可能对你有帮助。