R: использование FOR-цикла и конструкций IF-ELSE, чтобы опустить нечетные числа в столбце

Question

Для проекта меня попросили создать цикл FOR с конструкцией IF-ELSE, в котором я опускаю нечетные числа в столбце кадра данных.Однако, когда я пытался построить это, я не мог получить правильный ответ.Вот как выглядит мой код:

for (i in 1:nrow(my_columns)) {
  if (my_columns$id[[i]] %% 2 != 0) {
    my_columns$id <- my_columns$id[[-i]]
  }
}

Затем R возвращает это сообщение об ошибке:

 Error in my_columns$id[[-i]] : 
 attempt to select more than one element in integerOneIndex

Я думаю, что я делаю ошибку в той части, где оператор if должен вернуть aзначение.Не могли бы вы сказать мне, в чем моя ошибка?Кроме того, вы можете помочь мне создать цикл for?

Спасибо!