2021-09-30 09:19:18 +02:00
|
|
|
# Now test predictions
|
|
|
|
# https://clarkdatalabs.github.io/soms/SOM_NBA
|
2021-09-27 11:12:00 +02:00
|
|
|
|
2021-09-30 09:19:18 +02:00
|
|
|
test_list <- list(independent = test_mat, dependent = test_grey)
|
2021-09-27 11:12:00 +02:00
|
|
|
|
2021-09-30 09:19:18 +02:00
|
|
|
ransomware.prediction <- predict(som_model, newdata = test_list)
|
|
|
|
table(test_set$grey, ransomware.prediction$prediction[[2]])
|