Обсуждение:Исключение тенденции

Образовательный пример: Анализ успеваемости

# Данные об оценках студентов по семестрам
grades <- c(3.2, 3.5, 3.8, 4.1, 4.4, 4.6, 4.8, 5.0)
semester <- 1:8

# Создание временного ряда
ts_grades <- ts(grades, start = 1, frequency = 1)

# Первые разности
diff_grades <- diff(ts_grades)

# Линейный тренд
trend_model <- lm(grades ~ semester)
detrended_grades <- residuals(trend_model)

# Визуализация
plot(ts_grades, main = "Успеваемость студентов")
plot(diff_grades, main = "Первые разности")
plot(detrended_grades, main = "Отклонения от тренда")