Как множить элементы с помощью условного оператора?

Question

Я очень новичок в R и программировании в целом, и мне нужна помощь. Я хочу сделать функцию, которая умножает все четные числа в данной матрице 3, например, в этой матрице:

X = matrix(1:9,3,3) 

Я попытался функцию, заменить, как это:

Multiply = function(M) { 
x=M*3 
replace(M, M%%2==0, x) 
} 

которым дает мне в результате я не понимаю. Любая помощь будет высоко оценена!

Answer 1

Мы можем создать функцию, как

Multiply <- function(M){ i1 <- M%%2 == 0 
      M[i1] <- M[i1]*3 
      M } 

Answer 2

Это работает для примера:

mymult <-function(M, num.row, num.col){ 
    vec = c(M) 
    vec[vec %% 2 == 0]=vec[vec%%2 == 0]*3 
    return(matrix(vec, num.row, num.col)) 
} 

векторизацию первых и проверки, которые даже и умножают те с тремя и снова реконструируют матрицу.