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

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

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

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

(СПбГУТ)

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

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

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

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

ОТЧЕТ

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

«Прогнозирование временных рядов»

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

Выполнил:

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

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

Принял:

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

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

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

2022 г

СОДЕРЖАНИЕ

ЦЕЛИ РАБОТЫ 3

ХОД РАБОТЫ 4

Задание (вариант №3) 4

Листенинг 4

ВЫВОД 6

ЦЕЛИ РАБОТЫ

Цели работы (3 вариант):

- составить прогноз для заданного временного ряда с использованием библиотеки nnet.

ХОД РАБОТЫ

Задание (вариант №3)

Составить прогноз для заданного временного ряда с использованием библиотеки nnet.

Листенинг

# Пакет для анализа – fpp2, nnet

library(fpp2)

library(nnet)

#Загрузка данных для анализа

scripts <- debitcards

n <- length(scripts)

#Подготовка матрицы наблюдений заполненной нулями (где matrix – двумерная совокупность числовых, логических или текстовых величин, nrow и ncol – возвращает кол-во строк или столбцов)

LearnSeq <- matrix(rep(0,(n-12)*13), nrow=n-12, ncol=13)

#Заполнение матрицы данными для обучения

for (i in 1 : (n-12)) LearnSeq[i, ] <- scripts[i : (12+i)]

set.seed(55)

#Обучение сети Nnet

Nnet <- nnet(LearnSeq[,1:12], LearnSeq[,13], size =60, linout = TRUE, rang=0.1, maxit =900)

#Прогноз составленный обученной сетью Nnet

prognos <- c(rep(0,12), Nnet$fitted.values)

#График фактического числа рецептов (blue) и предсказанный (yellow)

ggplot(scripts, aes(x)) + geom_line(aes(y=scripts), color="blue", size = 2) + geom_line(aes(y=prognos), color ="yellow", size = 0.5)

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

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

ВЫВОД

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

- составлен прогноз для заданного временного ряда с использованием библиотеки nnet.