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

Метод главных компонент

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

Отвечено: 0 из 30
--:--
0%
💡 Инструкция: Выберите один ответ из пяти. На 30 вопросов отведено 85 минут. Читайте код построчно, учитывайте типы, атрибуты, пропуски и допущения анализа. После завершения откроются общий процент, 6 тематических шкал и объяснение к каждому заданию.
Вопрос 1 из 30
Ситуация: В наборе смешаны миллиметры, километры и бинарный индикатор, а PCA запускают на исходных значениях. Что является главным техническим основанием для разбора?
RФрагмент R
x <- data.frame(mm = c(1,2,3,4), km = c(1000,2000,3000,4000), flag = c(0,0,1,1))
result <- prcomp(x, center = TRUE, scale. = FALSE)
result
Вопрос 2 из 30
Ситуация: В наборе смешаны миллиметры, километры и бинарный индикатор, а PCA запускают на исходных значениях. Что именно может сломаться при новых данных?
RФрагмент R
x <- data.frame(mm = c(1,2,3,4), km = c(1000,2000,3000,4000), flag = c(0,0,1,1))
result <- prcomp(x, center = TRUE, scale. = FALSE)
result
Вопрос 3 из 30
Ситуация: В наборе смешаны миллиметры, километры и бинарный индикатор, а PCA запускают на исходных значениях. Какое изменение устраняет именно причину проблемы?
Вопрос 4 из 30
Ситуация: В наборе смешаны миллиметры, километры и бинарный индикатор, а PCA запускают на исходных значениях. Какой контроль отличит исправление от случайно удачного результата?
Вопрос 5 из 30
Ситуация: В наборе смешаны миллиметры, километры и бинарный индикатор, а PCA запускают на исходных значениях. Какое заключение останется верным и на новых данных?
RФрагмент R
x <- data.frame(mm = c(1,2,3,4), km = c(1000,2000,3000,4000), flag = c(0,0,1,1))
result <- prcomp(x, center = TRUE, scale. = FALSE)
result
Вопрос 6 из 30
Ситуация: В двух программах нагрузки первой компоненты имеют противоположные знаки, и это объявляют расхождением моделей. Какой принцип непосредственно относится к этому коду?
RФрагмент R
fit <- prcomp(USArrests, scale.=TRUE)
result <- crossprod(fit$rotation)
result
Вопрос 7 из 30
Ситуация: В двух программах нагрузки первой компоненты имеют противоположные знаки, и это объявляют расхождением моделей. Какой риск здесь остаётся главным, даже если результат выглядит правдоподобно?
RФрагмент R
fit <- prcomp(USArrests, scale.=TRUE)
result <- crossprod(fit$rotation)
result
Вопрос 8 из 30
Ситуация: В двух программах нагрузки первой компоненты имеют противоположные знаки, и это объявляют расхождением моделей. Какая правка делает решение устойчивым, а не просто удобным на текущем примере?
Вопрос 9 из 30
Ситуация: В двух программах нагрузки первой компоненты имеют противоположные знаки, и это объявляют расхождением моделей. Что нужно проверить после правки?
Вопрос 10 из 30
Ситуация: В двух программах нагрузки первой компоненты имеют противоположные знаки, и это объявляют расхождением моделей. Какой итог разбора не смешивает правило языка с впечатлением от результата?
RФрагмент R
fit <- prcomp(USArrests, scale.=TRUE)
result <- crossprod(fit$rotation)
result
Вопрос 11 из 30
Ситуация: Редкий дефект проявляется в слабой компоненте, которую отбрасывают как объясняющую мало общей дисперсии. Какое правило нужно применить к этому фрагменту прежде всего?
RФрагмент R
fit <- prcomp(USArrests, scale.=TRUE)
result <- cumsum(fit$sdev^2 / sum(fit$sdev^2))
result
Вопрос 12 из 30
Ситуация: Редкий дефект проявляется в слабой компоненте, которую отбрасывают как объясняющую мало общей дисперсии. Что в этой ситуации способно исказить вывод без явной синтаксической ошибки?
RФрагмент R
fit <- prcomp(USArrests, scale.=TRUE)
result <- cumsum(fit$sdev^2 / sum(fit$sdev^2))
result
Вопрос 13 из 30
Ситуация: Редкий дефект проявляется в слабой компоненте, которую отбрасывают как объясняющую мало общей дисперсии. Что следует изменить в коде или процессе?
Вопрос 14 из 30
Ситуация: Редкий дефект проявляется в слабой компоненте, которую отбрасывают как объясняющую мало общей дисперсии. Какой тест лучше всего ловит повтор этой ошибки?
Вопрос 15 из 30
Ситуация: Редкий дефект проявляется в слабой компоненте, которую отбрасывают как объясняющую мало общей дисперсии. Как сформулировать вывод без лишних обобщений?
RФрагмент R
fit <- prcomp(USArrests, scale.=TRUE)
result <- cumsum(fit$sdev^2 / sum(fit$sdev^2))
result
Вопрос 16 из 30
Ситуация: На biplot делают точный вывод о корреляции, не учитывая, как масштабированы оценки и нагрузки. Какой механизм точнее всего объясняет связь кода с ситуацией?
RФрагмент R
fit <- prcomp(iris[,1:4], scale.=TRUE)
result <- list(scores=head(fit$x), loadings=fit$rotation)
result
Вопрос 17 из 30
Ситуация: На biplot делают точный вывод о корреляции, не учитывая, как масштабированы оценки и нагрузки. Какой дефект нужно искать в первую очередь?
RФрагмент R
fit <- prcomp(iris[,1:4], scale.=TRUE)
result <- list(scores=head(fit$x), loadings=fit$rotation)
result
Вопрос 18 из 30
Ситуация: На biplot делают точный вывод о корреляции, не учитывая, как масштабированы оценки и нагрузки. Какой вариант исправления сохраняет смысл анализа?
Вопрос 19 из 30
Ситуация: На biplot делают точный вывод о корреляции, не учитывая, как масштабированы оценки и нагрузки. Какая проверка относится к исходному риску, а не к внешнему виду результата?
Вопрос 20 из 30
Ситуация: На biplot делают точный вывод о корреляции, не учитывая, как масштабированы оценки и нагрузки. Какое заключение лучше всего выдерживает проверку?
RФрагмент R
fit <- prcomp(iris[,1:4], scale.=TRUE)
result <- list(scores=head(fit$x), loadings=fit$rotation)
result
Вопрос 21 из 30
Ситуация: После добавления одной аномальной записи первая компонента резко меняет направление. На какое свойство R здесь следует опереться?
RФрагмент R
x <- rbind(matrix(rnorm(100),ncol=2), c(20,20))
fit <- prcomp(x, scale.=TRUE)
result <- fit$rotation
result
Вопрос 22 из 30
Ситуация: После добавления одной аномальной записи первая компонента резко меняет направление. Почему успешный запуск ещё не доказывает корректность?
RФрагмент R
x <- rbind(matrix(rnorm(100),ncol=2), c(20,20))
fit <- prcomp(x, scale.=TRUE)
result <- fit$rotation
result
Вопрос 23 из 30
Ситуация: После добавления одной аномальной записи первая компонента резко меняет направление. Какая правка лучше локальной заплатки?
Вопрос 24 из 30
Ситуация: После добавления одной аномальной записи первая компонента резко меняет направление. Как подтвердить корректность на граничном случае?
Вопрос 25 из 30
Ситуация: После добавления одной аномальной записи первая компонента резко меняет направление. Какой вывод точнее всего связывает механизм и главный риск?
RФрагмент R
x <- rbind(matrix(rnorm(100),ncol=2), c(20,20))
fit <- prcomp(x, scale.=TRUE)
result <- fit$rotation
result
Вопрос 26 из 30
Ситуация: Каждый месячный пакет данных проходит отдельный PCA, после чего значения PC1 сравнивают по времени. Какое утверждение лучше всего объясняет показанный фрагмент?
RФрагмент R
fit <- prcomp(iris[1:100,1:4], scale.=TRUE)
result <- predict(fit, newdata=iris[101:105,1:4])
result
Вопрос 27 из 30
Ситуация: Каждый месячный пакет данных проходит отдельный PCA, после чего значения PC1 сравнивают по времени. Какое скрытое допущение здесь опаснее остальных?
RФрагмент R
fit <- prcomp(iris[1:100,1:4], scale.=TRUE)
result <- predict(fit, newdata=iris[101:105,1:4])
result
Вопрос 28 из 30
Ситуация: Каждый месячный пакет данных проходит отдельный PCA, после чего значения PC1 сравнивают по времени. Что нужно сделать, чтобы ошибка не вернулась на следующем наборе данных?
Вопрос 29 из 30
Ситуация: Каждый месячный пакет данных проходит отдельный PCA, после чего значения PC1 сравнивают по времени. Какая проверка непосредственно подтверждает, что дефект устранён?
Вопрос 30 из 30
Ситуация: Каждый месячный пакет данных проходит отдельный PCA, после чего значения PC1 сравнивают по времени. Что стоит написать в технической рецензии к этому фрагменту?
RФрагмент R
fit <- prcomp(iris[1:100,1:4], scale.=TRUE)
result <- predict(fit, newdata=iris[101:105,1:4])
result

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

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

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

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