R R  ·  25 вопросов  ·  ~70 мин  ·  ⏱ Таймер 10:00  ·  Средний  · 

Линейная регрессия

Проверка охватывает код, данные и интерпретацию результата как единое решение. В тесте «Линейная регрессия» рассматриваются Формула модели, Коэффициенты, Остатки, Прогноз и Проверка допущений и качества. Нужно предсказывать структуру результата, находить скрытые риски, выбирать исправление и доказывать его проверкой. Из 25 вопросов 15 содержат код; остальные описывают ситуации, в которых синтаксически допустимое решение может привести к неверному аналитическому выводу.

Отвечено: 0 из 25
--:--
0%
💡 Инструкция: Выберите один ответ из пяти. На 25 вопросов отведено 70 минут. Читайте код построчно, учитывайте типы, атрибуты, пропуски и допущения анализа. После завершения откроются общий процент, 5 тематических шкал и объяснение к каждому заданию.
Вопрос 1 из 25
Ситуация: Команда хотела оценить разные наклоны по группам, но формула случайно исключила главные эффекты. Какое утверждение лучше всего объясняет показанный фрагмент?
RФрагмент R
df <- data.frame(y=1:6, x=rep(1:3,2), g=factor(rep(c('A','B'),each=3)))
result <- model.matrix(y ~ x * g, df)
result
Вопрос 2 из 25
Ситуация: Команда хотела оценить разные наклоны по группам, но формула случайно исключила главные эффекты. Какое скрытое допущение здесь опаснее остальных?
RФрагмент R
df <- data.frame(y=1:6, x=rep(1:3,2), g=factor(rep(c('A','B'),each=3)))
result <- model.matrix(y ~ x * g, df)
result
Вопрос 3 из 25
Ситуация: Команда хотела оценить разные наклоны по группам, но формула случайно исключила главные эффекты. Что нужно сделать, чтобы ошибка не вернулась на следующем наборе данных?
Вопрос 4 из 25
Ситуация: Команда хотела оценить разные наклоны по группам, но формула случайно исключила главные эффекты. Какая проверка непосредственно подтверждает, что дефект устранён?
Вопрос 5 из 25
Ситуация: Команда хотела оценить разные наклоны по группам, но формула случайно исключила главные эффекты. Что стоит написать в технической рецензии к этому фрагменту?
RФрагмент R
df <- data.frame(y=1:6, x=rep(1:3,2), g=factor(rep(c('A','B'),each=3)))
result <- model.matrix(y ~ x * g, df)
result
Вопрос 6 из 25
Ситуация: В модели есть взаимодействие цены и региона, но коэффициент цены представляют как одинаковый эффект во всех регионах. Что является главным техническим основанием для разбора?
RФрагмент R
df <- data.frame(y=c(2,4,3,8), x=c(1,2,1,2), g=factor(c('A','A','B','B')))
result <- coef(lm(y ~ x*g, df))
result
Вопрос 7 из 25
Ситуация: В модели есть взаимодействие цены и региона, но коэффициент цены представляют как одинаковый эффект во всех регионах. Что именно может сломаться при новых данных?
RФрагмент R
df <- data.frame(y=c(2,4,3,8), x=c(1,2,1,2), g=factor(c('A','A','B','B')))
result <- coef(lm(y ~ x*g, df))
result
Вопрос 8 из 25
Ситуация: В модели есть взаимодействие цены и региона, но коэффициент цены представляют как одинаковый эффект во всех регионах. Какое изменение устраняет именно причину проблемы?
Вопрос 9 из 25
Ситуация: В модели есть взаимодействие цены и региона, но коэффициент цены представляют как одинаковый эффект во всех регионах. Какой контроль отличит исправление от случайно удачного результата?
Вопрос 10 из 25
Ситуация: В модели есть взаимодействие цены и региона, но коэффициент цены представляют как одинаковый эффект во всех регионах. Какое заключение останется верным и на новых данных?
RФрагмент R
df <- data.frame(y=c(2,4,3,8), x=c(1,2,1,2), g=factor(c('A','A','B','B')))
result <- coef(lm(y ~ x*g, df))
result
Вопрос 11 из 25
Ситуация: Модель объясняет большую долю разброса, но остатки образуют отчётливую дугу. Какой принцип непосредственно относится к этому коду?
RФрагмент R
set.seed(4)
x <- 1:50; y <- x^2 + rnorm(50,0,20)
fit <- lm(y ~ x)
result <- residuals(fit)
result
Вопрос 12 из 25
Ситуация: Модель объясняет большую долю разброса, но остатки образуют отчётливую дугу. Какой риск здесь остаётся главным, даже если результат выглядит правдоподобно?
RФрагмент R
set.seed(4)
x <- 1:50; y <- x^2 + rnorm(50,0,20)
fit <- lm(y ~ x)
result <- residuals(fit)
result
Вопрос 13 из 25
Ситуация: Модель объясняет большую долю разброса, но остатки образуют отчётливую дугу. Какая правка делает решение устойчивым, а не просто удобным на текущем примере?
Вопрос 14 из 25
Ситуация: Модель объясняет большую долю разброса, но остатки образуют отчётливую дугу. Что нужно проверить после правки?
Вопрос 15 из 25
Ситуация: Модель объясняет большую долю разброса, но остатки образуют отчётливую дугу. Какой итог разбора не смешивает правило языка с впечатлением от результата?
RФрагмент R
set.seed(4)
x <- 1:50; y <- x^2 + rnorm(50,0,20)
fit <- lm(y ~ x)
result <- residuals(fit)
result
Вопрос 16 из 25
Ситуация: Сервис должен предсказать расход конкретного автомобиля, но показывает узкий интервал для среднего по автомобилям такого веса. Какое правило нужно применить к этому фрагменту прежде всего?
RФрагмент R
fit <- lm(mpg ~ wt, data=mtcars)
result <- predict(fit, newdata=data.frame(wt=3), interval='prediction')
result
Вопрос 17 из 25
Ситуация: Сервис должен предсказать расход конкретного автомобиля, но показывает узкий интервал для среднего по автомобилям такого веса. Что в этой ситуации способно исказить вывод без явной синтаксической ошибки?
RФрагмент R
fit <- lm(mpg ~ wt, data=mtcars)
result <- predict(fit, newdata=data.frame(wt=3), interval='prediction')
result
Вопрос 18 из 25
Ситуация: Сервис должен предсказать расход конкретного автомобиля, но показывает узкий интервал для среднего по автомобилям такого веса. Что следует изменить в коде или процессе?
Вопрос 19 из 25
Ситуация: Сервис должен предсказать расход конкретного автомобиля, но показывает узкий интервал для среднего по автомобилям такого веса. Какой тест лучше всего ловит повтор этой ошибки?
Вопрос 20 из 25
Ситуация: Сервис должен предсказать расход конкретного автомобиля, но показывает узкий интервал для среднего по автомобилям такого веса. Как сформулировать вывод без лишних обобщений?
RФрагмент R
fit <- lm(mpg ~ wt, data=mtcars)
result <- predict(fit, newdata=data.frame(wt=3), interval='prediction')
result
Вопрос 21 из 25
Ситуация: Модель принята по высокому R², хотя её не проверяли на новых данных и не изучали влиятельные наблюдения. Какой механизм точнее всего объясняет связь кода с ситуацией?
RФрагмент R
fit <- lm(mpg ~ wt + hp, data=mtcars)
result <- list(summary=summary(fit), cook=cooks.distance(fit))
result
Вопрос 22 из 25
Ситуация: Модель принята по высокому R², хотя её не проверяли на новых данных и не изучали влиятельные наблюдения. Какой дефект нужно искать в первую очередь?
RФрагмент R
fit <- lm(mpg ~ wt + hp, data=mtcars)
result <- list(summary=summary(fit), cook=cooks.distance(fit))
result
Вопрос 23 из 25
Ситуация: Модель принята по высокому R², хотя её не проверяли на новых данных и не изучали влиятельные наблюдения. Какой вариант исправления сохраняет смысл анализа?
Вопрос 24 из 25
Ситуация: Модель принята по высокому R², хотя её не проверяли на новых данных и не изучали влиятельные наблюдения. Какая проверка относится к исходному риску, а не к внешнему виду результата?
Вопрос 25 из 25
Ситуация: Модель принята по высокому R², хотя её не проверяли на новых данных и не изучали влиятельные наблюдения. Какое заключение лучше всего выдерживает проверку?
RФрагмент R
fit <- lm(mpg ~ wt + hp, data=mtcars)
result <- list(summary=summary(fit), cook=cooks.distance(fit))
result

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

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

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

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