我使用R中的神经网络包培训NN模型，从6个输入（x1，x2，... x6）预测3个类别（y1，y2和y3）。如何在R中为测试结果构造一个混淆矩阵？以下是预测值和实际值
library(neuralnet)
nn <- neuralnet(y1+y2+y3 ~ x1+x2+x3+x4+x5+x6,
data=traindata, hidden=5,act.fct = "tanh",linear.output=FALSE)
compute(nn, testdata)$net.result
$net.result
1.00000000000 -1.0000000000 -1.0000000000
1.00000000000 -0.8899999991 -1.0000000000
0.88898961216 -1.0000000000 -1.0000000000
-1.00000000000 -0.9999981122 0.9993868320
#actual
1 -1 -1
1 -1 -1
-1 1 -1
1 -1 -1