在下需要编写段R 代码, 是用于一个2000*2000*280的矩阵,目的是要将矩阵中绝对值小于threshold的量换成0.在下自己的是三重for循环
thrhd<-function(a,th){
for(j in 1:dim(a)[2]){
for(k in 1:dim(a)[1]){
for(i in 1:dim(a)[3]){
if(abs(a[k,j,i])<th) a[k,j,i]=0
}
}
}
a
}
这段代码运行需要太久时间,请问是否有比较高效的方法?谢谢!