使图像像素更容易在R中访问

Question

我在R中创建了一个功能，这需要花费很多时间来执行。如果可能的话，请建议一些替代方法来执行此操作。

totest<-function(img)
{ 

for(k in 1:130)
    for(i in 1:130)
        for(j in 1:130)
            if(img[i,j,k]<0)
                img[i,j,k]<-(-a[i,j,k])
}

我将尺寸为130 * 130的图像传递给函数totest，它正在检查每个像素的-ve值，如果值为-ve则将其转换为+ ve。

Answer 1

您可以识别要替换的所有索引，然后在一次操作中复制它们：

indices <- img < 0
img[indices] <- -a[indices]