Объявить какой-нибудь вектор a, составить код процедуры, заменяющей все четные числа на значение их квадраты в языке R

Объявление вектора a: a <- c(1, 2, 3, 4, 5)

Процедура замены четных чисел на квадраты:

replace_even_squares <- function(vector) {
  vector_even <- vector %% 2 == 0
  vector[vector_even] <- vector[vector_even] ^ 2
  return(vector)
}

a <- replace_even_squares(a)