МИНИСТЕРСТВО ЦИФРОВОГО РАЗВИТИЯ, СВЯЗИ И МАССОВЫХ КОММУНИКАЦИЙ РОССИЙСКОЙ ФЕДЕРАЦИИ

ФЕДЕРАЛЬНОЕ ГОСУДАРСТВЕННОЕ БЮДЖЕТНОЕ ОБРАЗОВАТЕЛЬНОЕ

УЧРЕЖДЕНИЕ ВЫСШЕГО ОБРАЗОВАНИЯ

«САНКТ-ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ТЕЛЕКОММУНИКАЦИЙ ИМ. ПРОФ. М.А. БОНЧ-БРУЕВИЧА»

(СПбГУТ)

Факультет Информационных систем и технологий

Кафедра Информационных управляющих систем

Направление: 09.03.02 Информационные системы и технологии

Профиль: Дизайн графических и пользовательских интерфейсов информационных систем

ОТЧЕТ

к лабораторной работе № 6:

«Сети Кохонена»

по дисциплине «Нейросетевые технологиий»

Выполнил:

Студент группы ИСТ-931

Гетманченко П.А. «_04_»__марта__ 2022 г.

Принял:

преп. каф. ИУС

Капитоненко В.В. «_04_»__марта__ 2022 г.

Санкт-Петербург

2022 г

СОДЕРЖАНИЕ

ЦЕЛИ РАБОТЫ 3

ХОД РАБОТЫ 4

Задание 4

Листенинг 4

ВЫВОД 6

ЦЕЛИ РАБОТЫ

Цели работы:

- построить карту Кохонена для тестового набора из ресурса Wine Quality.

ХОД РАБОТЫ

Задание

Построить карту Кохонена для тестового набора из ресурса Wine Quality.

Листенинг

library(kohonen)

data(wines)

set.seed(10)

#Переводим во фрейм

x <- wines

df <- data.frame(x)

summary(df)

any(is.na.data.frame(df))

df[is.na.data.frame(df)] <- 0

# Формирование SOM карты

sommap <- som(scale(df), grid = somgrid(10,17,"hexagonal"))

# Разбиение карты на отдельные кластеры

groups <- 3

som.hc <- cutree(hclust(dist(sommap$codes[[1]])), groups)

# Построение SOM карты

plot(sommap, type="codes", bgcol=rainbow(groups)[som.hc], main="SOM карта вин (wines)")

# Прорисовка кластеров на карте

add.cluster.boundaries(sommap, som.hc)

Результат показан на рисунке 1:

Рисунок 1 – результат

ВЫВОД

При выполнении лабораторной работы №6:

- построена карта Кохонена для тестового набора из ресурса Wine Quality.