Вы должны добавить еще один аргумент в функцию предиктора, то есть "whatmap", а затем установить ее значение равным 1. Код будет выглядеть так:
pos.prediction <- predict(NBA.SOM3, newdata = NBA.testing, whatmap = 1)
Чтобы проверить результат прогнозирования, вы можете проверитьusing:
table(NBA$Pos[-training_indices], pos.prediction$predictions[[2]], useNA = 'always')
Результат может отличаться от результата урока, поскольку он не объявляет использование функции set.seed ().Я полагаю, что set.seed () с произвольным номером был объявлен где-то до этапа обучения.Для простоты поместите его один раз в верхнюю часть вашего сценария, например,
set.seed(12345)
. Это обеспечит воспроизводимый результат вашей модели при следующем запуске сценария.
Надеюсь, чтопоможет.