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

ANOVA и сравнение групп

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

Отвечено: 0 из 30
--:--
0%
💡 Инструкция: Выберите один ответ из пяти. На 30 вопросов отведено 85 минут. Читайте код построчно, учитывайте типы, атрибуты, пропуски и допущения анализа. После завершения откроются общий процент, 6 тематических шкал и объяснение к каждому заданию.
Вопрос 1 из 30
Ситуация: Общий тест значим для четырёх групп, и команда сразу объявляет каждую пару различающейся. Какое правило нужно применить к этому фрагменту прежде всего?
RФрагмент R
df <- data.frame(y=c(5,6,7,10,11,12), g=factor(rep(c('A','B'),each=3)))
fit <- aov(y ~ g, data=df)
result <- summary(fit)
result
Вопрос 2 из 30
Ситуация: Общий тест значим для четырёх групп, и команда сразу объявляет каждую пару различающейся. Что в этой ситуации способно исказить вывод без явной синтаксической ошибки?
RФрагмент R
df <- data.frame(y=c(5,6,7,10,11,12), g=factor(rep(c('A','B'),each=3)))
fit <- aov(y ~ g, data=df)
result <- summary(fit)
result
Вопрос 3 из 30
Ситуация: Общий тест значим для четырёх групп, и команда сразу объявляет каждую пару различающейся. Что следует изменить в коде или процессе?
Вопрос 4 из 30
Ситуация: Общий тест значим для четырёх групп, и команда сразу объявляет каждую пару различающейся. Какой тест лучше всего ловит повтор этой ошибки?
Вопрос 5 из 30
Ситуация: Общий тест значим для четырёх групп, и команда сразу объявляет каждую пару различающейся. Как сформулировать вывод без лишних обобщений?
RФрагмент R
df <- data.frame(y=c(5,6,7,10,11,12), g=factor(rep(c('A','B'),each=3)))
fit <- aov(y ~ g, data=df)
result <- summary(fit)
result
Вопрос 6 из 30
Ситуация: Коэффициенты после обновления настроек R изменились, хотя прогнозы по группам совпадают. Какой механизм точнее всего объясняет связь кода с ситуацией?
RФрагмент R
g <- factor(rep(c('A','B','C'),each=2))
result <- model.matrix(~ g, contrasts.arg=list(g=contr.sum(3)))
result
Вопрос 7 из 30
Ситуация: Коэффициенты после обновления настроек R изменились, хотя прогнозы по группам совпадают. Какой дефект нужно искать в первую очередь?
RФрагмент R
g <- factor(rep(c('A','B','C'),each=2))
result <- model.matrix(~ g, contrasts.arg=list(g=contr.sum(3)))
result
Вопрос 8 из 30
Ситуация: Коэффициенты после обновления настроек R изменились, хотя прогнозы по группам совпадают. Какой вариант исправления сохраняет смысл анализа?
Вопрос 9 из 30
Ситуация: Коэффициенты после обновления настроек R изменились, хотя прогнозы по группам совпадают. Какая проверка относится к исходному риску, а не к внешнему виду результата?
Вопрос 10 из 30
Ситуация: Коэффициенты после обновления настроек R изменились, хотя прогнозы по группам совпадают. Какое заключение лучше всего выдерживает проверку?
RФрагмент R
g <- factor(rep(c('A','B','C'),each=2))
result <- model.matrix(~ g, contrasts.arg=list(g=contr.sum(3)))
result
Вопрос 11 из 30
Ситуация: После ANOVA аналитик запускает десятки независимых t-тестов и публикует только значимые пары. На какое свойство R здесь следует опереться?
RФрагмент R
result <- pairwise.t.test(warpbreaks$breaks, warpbreaks$tension, p.adjust.method = 'none')
result
Вопрос 12 из 30
Ситуация: После ANOVA аналитик запускает десятки независимых t-тестов и публикует только значимые пары. Почему успешный запуск ещё не доказывает корректность?
RФрагмент R
result <- pairwise.t.test(warpbreaks$breaks, warpbreaks$tension, p.adjust.method = 'none')
result
Вопрос 13 из 30
Ситуация: После ANOVA аналитик запускает десятки независимых t-тестов и публикует только значимые пары. Какая правка лучше локальной заплатки?
Вопрос 14 из 30
Ситуация: После ANOVA аналитик запускает десятки независимых t-тестов и публикует только значимые пары. Как подтвердить корректность на граничном случае?
Вопрос 15 из 30
Ситуация: После ANOVA аналитик запускает десятки независимых t-тестов и публикует только значимые пары. Какой вывод точнее всего связывает механизм и главный риск?
RФрагмент R
result <- pairwise.t.test(warpbreaks$breaks, warpbreaks$tension, p.adjust.method = 'none')
result
Вопрос 16 из 30
Ситуация: Маленькая группа имеет в пять раз больший разброс, но анализ использует равные дисперсии. Какое утверждение лучше всего объясняет показанный фрагмент?
RФрагмент R
df <- data.frame(y = c(rnorm(20, 0, 1), rnorm(8, 1, 5)), g = factor(c(rep('A', 20), rep('B', 8))))
result <- oneway.test(y ~ g, data = df, var.equal = TRUE)
result
Вопрос 17 из 30
Ситуация: Маленькая группа имеет в пять раз больший разброс, но анализ использует равные дисперсии. Какое скрытое допущение здесь опаснее остальных?
RФрагмент R
df <- data.frame(y = c(rnorm(20, 0, 1), rnorm(8, 1, 5)), g = factor(c(rep('A', 20), rep('B', 8))))
result <- oneway.test(y ~ g, data = df, var.equal = TRUE)
result
Вопрос 18 из 30
Ситуация: Маленькая группа имеет в пять раз больший разброс, но анализ использует равные дисперсии. Что нужно сделать, чтобы ошибка не вернулась на следующем наборе данных?
Вопрос 19 из 30
Ситуация: Маленькая группа имеет в пять раз больший разброс, но анализ использует равные дисперсии. Какая проверка непосредственно подтверждает, что дефект устранён?
Вопрос 20 из 30
Ситуация: Маленькая группа имеет в пять раз больший разброс, но анализ использует равные дисперсии. Что стоит написать в технической рецензии к этому фрагменту?
RФрагмент R
df <- data.frame(y = c(rnorm(20, 0, 1), rnorm(8, 1, 5)), g = factor(c(rep('A', 20), rep('B', 8))))
result <- oneway.test(y ~ g, data = df, var.equal = TRUE)
result
Вопрос 21 из 30
Ситуация: Каждый человек измерен дважды, но двадцать строк анализируют как двадцать независимых участников. Что является главным техническим основанием для разбора?
RФрагмент R
df <- data.frame(id=rep(1:5,each=2), condition=rep(c('A','B'),5), y=rnorm(10))
result <- table(df$id, df$condition)
result
Вопрос 22 из 30
Ситуация: Каждый человек измерен дважды, но двадцать строк анализируют как двадцать независимых участников. Что именно может сломаться при новых данных?
RФрагмент R
df <- data.frame(id=rep(1:5,each=2), condition=rep(c('A','B'),5), y=rnorm(10))
result <- table(df$id, df$condition)
result
Вопрос 23 из 30
Ситуация: Каждый человек измерен дважды, но двадцать строк анализируют как двадцать независимых участников. Какое изменение устраняет именно причину проблемы?
Вопрос 24 из 30
Ситуация: Каждый человек измерен дважды, но двадцать строк анализируют как двадцать независимых участников. Какой контроль отличит исправление от случайно удачного результата?
Вопрос 25 из 30
Ситуация: Каждый человек измерен дважды, но двадцать строк анализируют как двадцать независимых участников. Какое заключение останется верным и на новых данных?
RФрагмент R
df <- data.frame(id=rep(1:5,each=2), condition=rep(c('A','B'),5), y=rnorm(10))
result <- table(df$id, df$condition)
result
Вопрос 26 из 30
Ситуация: В разных отчётах одна и та же разность имеет противоположный знак из-за другого базового уровня. Какой принцип непосредственно относится к этому коду?
RФрагмент R
d <- warpbreaks; d$tension <- relevel(d$tension, ref='L')
fit <- aov(breaks ~ tension, d)
result <- coef(fit)
result
Вопрос 27 из 30
Ситуация: В разных отчётах одна и та же разность имеет противоположный знак из-за другого базового уровня. Какой риск здесь остаётся главным, даже если результат выглядит правдоподобно?
RФрагмент R
d <- warpbreaks; d$tension <- relevel(d$tension, ref='L')
fit <- aov(breaks ~ tension, d)
result <- coef(fit)
result
Вопрос 28 из 30
Ситуация: В разных отчётах одна и та же разность имеет противоположный знак из-за другого базового уровня. Какая правка делает решение устойчивым, а не просто удобным на текущем примере?
Вопрос 29 из 30
Ситуация: В разных отчётах одна и та же разность имеет противоположный знак из-за другого базового уровня. Что нужно проверить после правки?
Вопрос 30 из 30
Ситуация: В разных отчётах одна и та же разность имеет противоположный знак из-за другого базового уровня. Какой итог разбора не смешивает правило языка с впечатлением от результата?
RФрагмент R
d <- warpbreaks; d$tension <- relevel(d$tension, ref='L')
fit <- aov(breaks ~ tension, d)
result <- coef(fit)
result

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

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

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

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