R语言如何只提取矩阵的偶数行

Question

#R语言
如何编写函数计算一个矩阵中偶数行上能被3整除的元素之和

Answer 1

代码可这样写：

X<-matrix(c(2,3,7,5,6,11,15,1,4,0,1,5,8,2,22,21,13,15,41,44),5,4,T)
#print(X)

res<-function(x){
    summ=0
    for (i in 1:nrow(x))
    for (j in 1:ncol(x))
    if(i%%2==0&&x[i,j]%%3==0)
    summ=summ+x[i,j]
    return(summ)
}
res(X)

运行结果：

F:\2021\qa\ot2>Rscript "f:\2021\qa\ot2\rtest\r36.r"
[1] "F:/2021/qa/ot2"
[1] 42

如有帮助，请点采纳按钮。