如何从矩阵中提取预测和实际值向量，以便将它们与R中的confusionMatrix()一起使用？

# 假设有一个混淆矩阵 matrix_confusion
# 提取预测值向量
predicted_vector <- as.vector(matrix_confusion[, "预测值列索引"])

# 提取实际值向量
actual_vector <- as.vector(matrix_confusion[, "实际值列索引"])

# 检查向量长度是否一致
if (length(predicted_vector) != length(actual_vector)) {
  # 需要进行长度调整的操作，例如截断或填充
  # 可以使用 R 中的 length() 函数检查长度
  # 可以使用 R 中的 subsetting 或者补 NA 进行调整
}

# 调用 confusionMatrix() 函数进行评估
result <- confusionMatrix(predicted_vector, actual_vector)
print(result)