Используя оператор which, найдите совпадения, в которых его счет был четным числом, и напечатайте номера совпадений

Question

Virat набрал 98,102,120,145,175,169,118,177,101,200 пробежек в последних 10 тестовых матчах. Используя оператор which, найдите совпадения, в которых его счет был четным числом, и напечатайте номера совпадений.

Я попробовал следующий код:

Virat_Scored  <- c(98,102,120,145,175,169,118,177,101,200)
a <- Virat_Scored %% 2 == 0
print(Virat_Scored[a])

Какой будет правильный или точный код для вышеуказанного вопроса.

Answer 1

Получите индексы четных чисел, используя которые

ind = which(Virat_Scored %% 2 == 0)

Затем извлеките их из вектора Virat_Scored

Virat_Scored[ind] 
[1]  98 102 120 118 200