R 如何打印神经网络预测概率的混淆矩阵

我需要将概率转换为真或假（>0.5），然后打印一个混淆矩阵。我找不到一个这样做的例子

在我的尝试中，我也很难引用转换后的“成功”目标，它现在是“SuccessTRUE”

成功是布尔值，Comp是一个因子（4级），其他是数字

require(neuralnet)
m <- model.matrix(~Success + Comp + Var2 + Var3 + Var4, data=Train3)
m1 <- model.matrix(~Success + Comp + Var2 + Var3 + Var4, data=Test3)
nn=neuralnet(SuccessTrue~Comp2 + Comp3 + Comp4 + Var2 + Var3 + Var4,data=m, hidden=4, act.fct = "logistic",linear.output = FALSE)
pred <- compute(nn,m1)

require（neuralnet）
我明白了

> predicted.classes <- ifelse(pred$net.result > 0.5, "TRUE", "FALSE")  
> t <- table(predicted.classes,Test3$Success)  
> confusionMatrix(t)

.0.5类，“真”、“假”）
>t混淆矩阵（t）