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

Обобщённые линейные модели

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

Отвечено: 0 из 30
--:--
0%
💡 Инструкция: Выберите один ответ из пяти. На 30 вопросов отведено 85 минут. Читайте код построчно, учитывайте типы, атрибуты, пропуски и допущения анализа. После завершения откроются общий процент, 6 тематических шкал и объяснение к каждому заданию.
Вопрос 1 из 30
Ситуация: Сервис оценивает вероятность отказа, но модель иногда выдаёт -0,2 и 1,1. Какой механизм точнее всего объясняет связь кода с ситуацией?
RФрагмент R
df <- data.frame(y = c(0,0,1,1,1), x = 1:5)
fit <- lm(y ~ x, data = df)
result <- predict(fit, newdata = data.frame(x = c(0, 7)))
result
Вопрос 2 из 30
Ситуация: Сервис оценивает вероятность отказа, но модель иногда выдаёт -0,2 и 1,1. Какой дефект нужно искать в первую очередь?
RФрагмент R
df <- data.frame(y = c(0,0,1,1,1), x = 1:5)
fit <- lm(y ~ x, data = df)
result <- predict(fit, newdata = data.frame(x = c(0, 7)))
result
Вопрос 3 из 30
Ситуация: Сервис оценивает вероятность отказа, но модель иногда выдаёт -0,2 и 1,1. Какой вариант исправления сохраняет смысл анализа?
Вопрос 4 из 30
Ситуация: Сервис оценивает вероятность отказа, но модель иногда выдаёт -0,2 и 1,1. Какая проверка относится к исходному риску, а не к внешнему виду результата?
Вопрос 5 из 30
Ситуация: Сервис оценивает вероятность отказа, но модель иногда выдаёт -0,2 и 1,1. Какое заключение лучше всего выдерживает проверку?
RФрагмент R
df <- data.frame(y = c(0,0,1,1,1), x = 1:5)
fit <- lm(y ~ x, data = df)
result <- predict(fit, newdata = data.frame(x = c(0, 7)))
result
Вопрос 6 из 30
Ситуация: Коэффициент логистической модели называют прямым изменением вероятности на каждую единицу веса. На какое свойство R здесь следует опереться?
RФрагмент R
fit <- glm(am ~ wt, data=mtcars, family=binomial(link='logit'))
result <- c(link=predict(fit,newdata=data.frame(wt=3),type='link'), prob=predict(fit,newdata=data.frame(wt=3),type='response'))
result
Вопрос 7 из 30
Ситуация: Коэффициент логистической модели называют прямым изменением вероятности на каждую единицу веса. Почему успешный запуск ещё не доказывает корректность?
RФрагмент R
fit <- glm(am ~ wt, data=mtcars, family=binomial(link='logit'))
result <- c(link=predict(fit,newdata=data.frame(wt=3),type='link'), prob=predict(fit,newdata=data.frame(wt=3),type='response'))
result
Вопрос 8 из 30
Ситуация: Коэффициент логистической модели называют прямым изменением вероятности на каждую единицу веса. Какая правка лучше локальной заплатки?
Вопрос 9 из 30
Ситуация: Коэффициент логистической модели называют прямым изменением вероятности на каждую единицу веса. Как подтвердить корректность на граничном случае?
Вопрос 10 из 30
Ситуация: Коэффициент логистической модели называют прямым изменением вероятности на каждую единицу веса. Какой вывод точнее всего связывает механизм и главный риск?
RФрагмент R
fit <- glm(am ~ wt, data=mtcars, family=binomial(link='logit'))
result <- c(link=predict(fit,newdata=data.frame(wt=3),type='link'), prob=predict(fit,newdata=data.frame(wt=3),type='response'))
result
Вопрос 11 из 30
Ситуация: Добавление десятка признаков снизило deviance, и модель объявили лучше без проверки переобучения. Какое утверждение лучше всего объясняет показанный фрагмент?
RФрагмент R
m0 <- glm(am ~ 1, data=mtcars, family=binomial)
m1 <- glm(am ~ wt + hp, data=mtcars, family=binomial)
result <- anova(m0, m1, test='Chisq')
result
Вопрос 12 из 30
Ситуация: Добавление десятка признаков снизило deviance, и модель объявили лучше без проверки переобучения. Какое скрытое допущение здесь опаснее остальных?
RФрагмент R
m0 <- glm(am ~ 1, data=mtcars, family=binomial)
m1 <- glm(am ~ wt + hp, data=mtcars, family=binomial)
result <- anova(m0, m1, test='Chisq')
result
Вопрос 13 из 30
Ситуация: Добавление десятка признаков снизило deviance, и модель объявили лучше без проверки переобучения. Что нужно сделать, чтобы ошибка не вернулась на следующем наборе данных?
Вопрос 14 из 30
Ситуация: Добавление десятка признаков снизило deviance, и модель объявили лучше без проверки переобучения. Какая проверка непосредственно подтверждает, что дефект устранён?
Вопрос 15 из 30
Ситуация: Добавление десятка признаков снизило deviance, и модель объявили лучше без проверки переобучения. Что стоит написать в технической рецензии к этому фрагменту?
RФрагмент R
m0 <- glm(am ~ 1, data=mtcars, family=binomial)
m1 <- glm(am ~ wt + hp, data=mtcars, family=binomial)
result <- anova(m0, m1, test='Chisq')
result
Вопрос 16 из 30
Ситуация: Событие встречается у половины объектов, но отношение шансов 2 трактуют как удвоение вероятности. Что является главным техническим основанием для разбора?
RФрагмент R
fit <- glm(am ~ wt, data=mtcars, family=binomial)
result <- exp(coef(fit)['wt'])
result
Вопрос 17 из 30
Ситуация: Событие встречается у половины объектов, но отношение шансов 2 трактуют как удвоение вероятности. Что именно может сломаться при новых данных?
RФрагмент R
fit <- glm(am ~ wt, data=mtcars, family=binomial)
result <- exp(coef(fit)['wt'])
result
Вопрос 18 из 30
Ситуация: Событие встречается у половины объектов, но отношение шансов 2 трактуют как удвоение вероятности. Какое изменение устраняет именно причину проблемы?
Вопрос 19 из 30
Ситуация: Событие встречается у половины объектов, но отношение шансов 2 трактуют как удвоение вероятности. Какой контроль отличит исправление от случайно удачного результата?
Вопрос 20 из 30
Ситуация: Событие встречается у половины объектов, но отношение шансов 2 трактуют как удвоение вероятности. Какое заключение останется верным и на новых данных?
RФрагмент R
fit <- glm(am ~ wt, data=mtcars, family=binomial)
result <- exp(coef(fit)['wt'])
result
Вопрос 21 из 30
Ситуация: Модель редкого дефекта имеет 99% точности, но не находит ни одного дефектного объекта. Какой принцип непосредственно относится к этому коду?
RФрагмент R
fit <- glm(vs ~ mpg + wt, data=mtcars, family=binomial)
p <- predict(fit,type='response')
result <- table(actual=mtcars$vs, predicted=p>.5)
result
Вопрос 22 из 30
Ситуация: Модель редкого дефекта имеет 99% точности, но не находит ни одного дефектного объекта. Какой риск здесь остаётся главным, даже если результат выглядит правдоподобно?
RФрагмент R
fit <- glm(vs ~ mpg + wt, data=mtcars, family=binomial)
p <- predict(fit,type='response')
result <- table(actual=mtcars$vs, predicted=p>.5)
result
Вопрос 23 из 30
Ситуация: Модель редкого дефекта имеет 99% точности, но не находит ни одного дефектного объекта. Какая правка делает решение устойчивым, а не просто удобным на текущем примере?
Вопрос 24 из 30
Ситуация: Модель редкого дефекта имеет 99% точности, но не находит ни одного дефектного объекта. Что нужно проверить после правки?
Вопрос 25 из 30
Ситуация: Модель редкого дефекта имеет 99% точности, но не находит ни одного дефектного объекта. Какой итог разбора не смешивает правило языка с впечатлением от результата?
RФрагмент R
fit <- glm(vs ~ mpg + wt, data=mtcars, family=binomial)
p <- predict(fit,type='response')
result <- table(actual=mtcars$vs, predicted=p>.5)
result
Вопрос 26 из 30
Ситуация: Через месяц отчёт строится с другим базовым уровнем категории, и названия эффектов меняются местами. Какое правило нужно применить к этому фрагменту прежде всего?
RФрагмент R
d <- mtcars; d$cyl <- factor(d$cyl)
fit <- glm(am ~ cyl + wt, data=d, family=binomial)
result <- list(levels=levels(d$cyl), coef=coef(fit))
result
Вопрос 27 из 30
Ситуация: Через месяц отчёт строится с другим базовым уровнем категории, и названия эффектов меняются местами. Что в этой ситуации способно исказить вывод без явной синтаксической ошибки?
RФрагмент R
d <- mtcars; d$cyl <- factor(d$cyl)
fit <- glm(am ~ cyl + wt, data=d, family=binomial)
result <- list(levels=levels(d$cyl), coef=coef(fit))
result
Вопрос 28 из 30
Ситуация: Через месяц отчёт строится с другим базовым уровнем категории, и названия эффектов меняются местами. Что следует изменить в коде или процессе?
Вопрос 29 из 30
Ситуация: Через месяц отчёт строится с другим базовым уровнем категории, и названия эффектов меняются местами. Какой тест лучше всего ловит повтор этой ошибки?
Вопрос 30 из 30
Ситуация: Через месяц отчёт строится с другим базовым уровнем категории, и названия эффектов меняются местами. Как сформулировать вывод без лишних обобщений?
RФрагмент R
d <- mtcars; d$cyl <- factor(d$cyl)
fit <- glm(am ~ cyl + wt, data=d, family=binomial)
result <- list(levels=levels(d$cyl), coef=coef(fit))
result

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

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

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

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