混淆矩阵没有给出物种的预测值

Question

我有一组 23 个物种的 1385 个光谱。我正在做由物种 X 与其他 22 种物种组成的模型，以获得 2x2 混淆矩阵。然而，我的模型或预测都不起作用，因为它们给出了一个混淆矩阵 [

`ClassDT1 <- as.factor(ClassDT1 <- c(rep(1,60), rep(0,1325)))

DT1DataFrame <- data.frame(x = VRData, Class = ClassDT1)

set.seed(floor(runif(1, min=0, max=1001)))

Smp_size <- floor(0.65 * nrow(DT1DataFrame))
Train_ind <- sample(seq_len(nrow(DT1DataFrame)), size = Smp_size)
Train1 <- DT1DataFrame[Train_ind,]
Test1 <- DT1DataFrame[-Train_ind,]

DT1 <- rfsrc(Class ~ ., data = Train1, ntree = 1000, mtry = 15, ytry = 10)
DT1

Pred1 <- predict(DT1, Test1, type = 'raw')
Pred1`