R语言如何只提取矩阵的偶数行
问题描述：
#R语言
如何编写函数计算一个矩阵中偶数行上能被3整除的元素之和
答
代码可这样写：
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
如有帮助，请点采纳按钮。