AS
Иван Поздняков
Это можно представить как частный случай ресайклинга: операция на векторах разной длины приводит к повторению меньшего вектора нужное количество раз
Тогда непонятно, почему это является корректным решением данной задачи.
Size: a a a
2020 December 06
Ю
AS
to_factors <- function(test_data, factors){
test_data[factors] <- mutate_each(test_data[factors], funs(factor(ifelse(. > mean(.), 1, 0))))
return(test_data)}Альтернативное правильное решение. И тот же вопрос: если по условию задачи нам нужно сравнить элемент вектора со средним значением этого вектора, то почему "точка" означает и элемент и сам вектор в части . > mean(.).
IY
То чувство, когда застрял между 1999 и 2007
AS
Автор этой Лабы часом не в чате? А то мне только что таинственная незнакомка предложила её решить.
R
И мне
AS
И мне
Так-то по имени и датасету можно опознать.
a
Интересно, как на вас пал выбор
AS
Мы мой вопрос вдвоем по сути тут обсуждали, когда сообщение пришло.
AS
Ответа на который я, кстати, так и не получил.
PU
Мы мой вопрос вдвоем по сути тут обсуждали, когда сообщение пришло.
какой вопрос? я освободился и могу посмотреть, наверное
AS
to_factors <- function(test_data, factors){
test_data[factors] <- mutate_each(test_data[factors], funs(factor(ifelse(. > mean(.), 1, 0))))
return(test_data)}Альтернативное правильное решение. И тот же вопрос: если по условию задачи нам нужно сравнить элемент вектора со средним значением этого вектора, то почему "точка" означает и элемент и сам вектор в части . > mean(.).
Этот.
ГД
И то, что х -- это одновременно и вектор и элемент в этом векторе вызывает у меня когнитивный диссонанс.
Интересно, а запись
1:5 > 3 не вызывает когнитивный диссонанс?AS
Помог своей решить задачку на Stepik и со стыдом осознал, что не понимаю, почему это работает:
test_data <- as.data.frame(list(V1 = c(12, 10, 11, 10, 9, 9),
V2 = c(11, 11, 9, 12, 10, 8),
V3 = c(11, 11, 10, 10, 10, 10),
V4 = c(11, 10, 9, 11, 11, 8),
V5 = c(10, 9, 9, 10, 10, 9),
V6 = c(12, 9, 9, 10, 10, 9),
V7 = c(11, 11, 12, 10, 9, 9),
V8 = c(9, 11, 10, 8, 11, 9),
V9 = c(12, 10, 10, 12, 10, 12),
V10 = c(13, 9, 9, 9, 10, 9)))
to_factors <- function(test_data, factors){
fct = function(x) as.factor(ifelse(x > mean(x), 1, 0))
test_data %>% mutate_at(factors, fct)
}
Изначально вот этот.
AS
Интересно, а запись
1:5 > 3 не вызывает когнитивный диссонанс?Вызывает только в контексте того, каким образом 2 приведенных примера кода оказываются правильным решением поставленной задачи.
Про recycling знаю.
Про recycling знаю.
JL
а в чем загвоздка? сначала вычисляется среднее по колонке, потом оно вычитается.
или я не поняла вопрос?
или я не поняла вопрос?
JL
ну и там где-то ifelse еще, да, но не суть
AS
а в чем загвоздка? сначала вычисляется среднее по колонке, потом оно вычитается.
или я не поняла вопрос?
или я не поняла вопрос?
Задача: получить в строке i колонки Х 1 там, где i-e значение > среднего по колонке Х. В обоих вариантах решения значение в строке i и колонка х, по которой считается среднее, обозначаются одним и тем же символом: х в моем решении и . в альтернативном.
ГД
Вызывает только в контексте того, каким образом 2 приведенных примера кода оказываются правильным решением поставленной задачи.
Про recycling знаю.
Про recycling знаю.
x = 1:5, mean(x) =3 Сама задача в последней её части несколько криво сформулирована. Там пропущено слово "уровни". Для перевода переменной в фактор используем принцип, что уровнями считаем 0 и 1, где 0 - значение переменной меньше среднего переменной , 1 - больше
AS
Если бы мы использовали цикл, то мы бы сравнивали x[i] c mean(x). Почему же тогда в этом решении мы сравниваем x с mean(x). Вот чего я понять не могу.