R R  ·  30 вопросов  ·  ~85 мин  ·  ⏱ Таймер 25:00  ·  Сложный  · 

Временные ряды

Вместо пересказа справочника здесь используются фрагменты кода, изменения данных и спорные выводы. В тесте «Временные ряды» рассматриваются Индекс времени, Тренд и сезонность, Автокорреляция, Прогноз, Проверка допущений и качества и Воспроизводимость и интерпретация. Нужно предсказывать структуру результата, находить скрытые риски, выбирать исправление и доказывать его проверкой. Из 30 вопросов 18 содержат код; остальные описывают ситуации, в которых синтаксически допустимое решение может привести к неверному аналитическому выводу.

Отвечено: 0 из 30
--:--
0%
💡 Инструкция: Выберите один ответ из пяти. На 30 вопросов отведено 85 минут. Читайте код построчно, учитывайте типы, атрибуты, пропуски и допущения анализа. После завершения откроются общий процент, 6 тематических шкал и объяснение к каждому заданию.
Вопрос 1 из 30
Ситуация: Измерения поступали нерегулярно, но модель считает их ежедневным рядом без пропусков. На какое свойство R здесь следует опереться?
RФрагмент R
dates <- as.Date(c('2026-01-01','2026-01-02','2026-01-10'))
result <- diff(dates)
result
Вопрос 2 из 30
Ситуация: Измерения поступали нерегулярно, но модель считает их ежедневным рядом без пропусков. Почему успешный запуск ещё не доказывает корректность?
RФрагмент R
dates <- as.Date(c('2026-01-01','2026-01-02','2026-01-10'))
result <- diff(dates)
result
Вопрос 3 из 30
Ситуация: Измерения поступали нерегулярно, но модель считает их ежедневным рядом без пропусков. Какая правка лучше локальной заплатки?
Вопрос 4 из 30
Ситуация: Измерения поступали нерегулярно, но модель считает их ежедневным рядом без пропусков. Как подтвердить корректность на граничном случае?
Вопрос 5 из 30
Ситуация: Измерения поступали нерегулярно, но модель считает их ежедневным рядом без пропусков. Какой вывод точнее всего связывает механизм и главный риск?
RФрагмент R
dates <- as.Date(c('2026-01-01','2026-01-02','2026-01-10'))
result <- diff(dates)
result
Вопрос 6 из 30
Ситуация: Квартальный показатель растёт и повторяет рисунок по сезонам, но модель учитывает лишь общий наклон. Какое утверждение лучше всего объясняет показанный фрагмент?
RФрагмент R
x <- ts(1:36 + rep(c(0,5,10,5),9), frequency=4)
result <- stl(x, s.window='periodic')
result
Вопрос 7 из 30
Ситуация: Квартальный показатель растёт и повторяет рисунок по сезонам, но модель учитывает лишь общий наклон. Какое скрытое допущение здесь опаснее остальных?
RФрагмент R
x <- ts(1:36 + rep(c(0,5,10,5),9), frequency=4)
result <- stl(x, s.window='periodic')
result
Вопрос 8 из 30
Ситуация: Квартальный показатель растёт и повторяет рисунок по сезонам, но модель учитывает лишь общий наклон. Что нужно сделать, чтобы ошибка не вернулась на следующем наборе данных?
Вопрос 9 из 30
Ситуация: Квартальный показатель растёт и повторяет рисунок по сезонам, но модель учитывает лишь общий наклон. Какая проверка непосредственно подтверждает, что дефект устранён?
Вопрос 10 из 30
Ситуация: Квартальный показатель растёт и повторяет рисунок по сезонам, но модель учитывает лишь общий наклон. Что стоит написать в технической рецензии к этому фрагменту?
RФрагмент R
x <- ts(1:36 + rep(c(0,5,10,5),9), frequency=4)
result <- stl(x, s.window='periodic')
result
Вопрос 11 из 30
Ситуация: Ошибки модели идут длинными сериями одного знака, но метрика рассчитана на случайном holdout. Что является главным техническим основанием для разбора?
RФрагмент R
set.seed(5)
e <- arima.sim(list(ar=.8), n=100)
result <- acf(e, plot=FALSE)$acf[2]
result
Вопрос 12 из 30
Ситуация: Ошибки модели идут длинными сериями одного знака, но метрика рассчитана на случайном holdout. Что именно может сломаться при новых данных?
RФрагмент R
set.seed(5)
e <- arima.sim(list(ar=.8), n=100)
result <- acf(e, plot=FALSE)$acf[2]
result
Вопрос 13 из 30
Ситуация: Ошибки модели идут длинными сериями одного знака, но метрика рассчитана на случайном holdout. Какое изменение устраняет именно причину проблемы?
Вопрос 14 из 30
Ситуация: Ошибки модели идут длинными сериями одного знака, но метрика рассчитана на случайном holdout. Какой контроль отличит исправление от случайно удачного результата?
Вопрос 15 из 30
Ситуация: Ошибки модели идут длинными сериями одного знака, но метрика рассчитана на случайном holdout. Какое заключение останется верным и на новых данных?
RФрагмент R
set.seed(5)
e <- arima.sim(list(ar=.8), n=100)
result <- acf(e, plot=FALSE)$acf[2]
result
Вопрос 16 из 30
Ситуация: Признак для месяца вычисляется как среднее окна, включающего сам будущий месяц. Какой принцип непосредственно относится к этому коду?
RФрагмент R
x <- ts(AirPassengers)
train <- window(x, end=c(1958,12))
result <- predict(arima(log(train), order=c(1,1,1)), n.ahead=12)
result
Вопрос 17 из 30
Ситуация: Признак для месяца вычисляется как среднее окна, включающего сам будущий месяц. Какой риск здесь остаётся главным, даже если результат выглядит правдоподобно?
RФрагмент R
x <- ts(AirPassengers)
train <- window(x, end=c(1958,12))
result <- predict(arima(log(train), order=c(1,1,1)), n.ahead=12)
result
Вопрос 18 из 30
Ситуация: Признак для месяца вычисляется как среднее окна, включающего сам будущий месяц. Какая правка делает решение устойчивым, а не просто удобным на текущем примере?
Вопрос 19 из 30
Ситуация: Признак для месяца вычисляется как среднее окна, включающего сам будущий месяц. Что нужно проверить после правки?
Вопрос 20 из 30
Ситуация: Признак для месяца вычисляется как среднее окна, включающего сам будущий месяц. Какой итог разбора не смешивает правило языка с впечатлением от результата?
RФрагмент R
x <- ts(AirPassengers)
train <- window(x, end=c(1958,12))
result <- predict(arima(log(train), order=c(1,1,1)), n.ahead=12)
result
Вопрос 21 из 30
Ситуация: После изменения тарифа уровень ряда удвоился, но модель обучена на всей истории как на едином режиме. Какое правило нужно применить к этому фрагменту прежде всего?
RФрагмент R
x <- c(rep(10,50),rep(20,50)) + rnorm(100)
result <- c(mean_first=mean(x[1:50]), mean_second=mean(x[51:100]))
result
Вопрос 22 из 30
Ситуация: После изменения тарифа уровень ряда удвоился, но модель обучена на всей истории как на едином режиме. Что в этой ситуации способно исказить вывод без явной синтаксической ошибки?
RФрагмент R
x <- c(rep(10,50),rep(20,50)) + rnorm(100)
result <- c(mean_first=mean(x[1:50]), mean_second=mean(x[51:100]))
result
Вопрос 23 из 30
Ситуация: После изменения тарифа уровень ряда удвоился, но модель обучена на всей истории как на едином режиме. Что следует изменить в коде или процессе?
Вопрос 24 из 30
Ситуация: После изменения тарифа уровень ряда удвоился, но модель обучена на всей истории как на едином режиме. Какой тест лучше всего ловит повтор этой ошибки?
Вопрос 25 из 30
Ситуация: После изменения тарифа уровень ряда удвоился, но модель обучена на всей истории как на едином режиме. Как сформулировать вывод без лишних обобщений?
RФрагмент R
x <- c(rep(10,50),rep(20,50)) + rnorm(100)
result <- c(mean_first=mean(x[1:50]), mean_second=mean(x[51:100]))
result
Вопрос 26 из 30
Ситуация: Поставщик пересматривает прошлые месяцы, а отчёт хранит только итоговые метрики без снимка данных. Какой механизм точнее всего объясняет связь кода с ситуацией?
RФрагмент R
cutoff <- as.Date('2026-06-30')
result <- list(cutoff=cutoff, horizon=30, generated=Sys.Date())
result
Вопрос 27 из 30
Ситуация: Поставщик пересматривает прошлые месяцы, а отчёт хранит только итоговые метрики без снимка данных. Какой дефект нужно искать в первую очередь?
RФрагмент R
cutoff <- as.Date('2026-06-30')
result <- list(cutoff=cutoff, horizon=30, generated=Sys.Date())
result
Вопрос 28 из 30
Ситуация: Поставщик пересматривает прошлые месяцы, а отчёт хранит только итоговые метрики без снимка данных. Какой вариант исправления сохраняет смысл анализа?
Вопрос 29 из 30
Ситуация: Поставщик пересматривает прошлые месяцы, а отчёт хранит только итоговые метрики без снимка данных. Какая проверка относится к исходному риску, а не к внешнему виду результата?
Вопрос 30 из 30
Ситуация: Поставщик пересматривает прошлые месяцы, а отчёт хранит только итоговые метрики без снимка данных. Какое заключение лучше всего выдерживает проверку?
RФрагмент R
cutoff <- as.Date('2026-06-30')
result <- list(cutoff=cutoff, horizon=30, generated=Sys.Date())
result

Ответьте на все 30 вопросов, чтобы получить результат

🔗 Встроить тест на свой сайт (iframe)

Скопируйте код и вставьте в любое место на вашем сайте:

Также доступна прямая ссылка на embed-страницу