模糊的圖像

Question

我正在經歷「R編程的藝術」和部分跨這塊傳來：

# adds random noise to img, at the range rows,cols of img; img and the 
# return value are both objects of class pixmap; the parameter q 
# controls the weight of the noise, with the result being 1-q times the 
# original image plus q times the random noise 
blurpart <- function(img,rows,cols,q) { 
    lrows <- length(rows) 
    lcols <- length(cols) 
    newimg <- img 
    randomnoise <- matrix(nrow=lrows, ncol=ncols,runif(lrows*lcols)) 
    newimg@grey <- (1-q) * img@grey + q * randomnoise 
    return(newimg) 
} 

我的問題是關於行：

newimg@grey <- (1-q) * img@grey + q * randomnoise 

如何newimg@grey結束其尺寸與img@grey相同。由於randomnoise是較小的矩陣，因此newimg@grey部分如何識別要模糊的圖像部分。

我認爲應該是這樣的：

newimg <- img 
newimg@grey[rows,cols] <- (1-q) * img@grey[rows,cols] + q * randomnoise 

Answer 1

似乎有在書中印刷錯誤，我已經驗證書中的代碼不能正常工作，甚至後得到錯字權利。我已將反饋意見發送給作者。正確的一塊應該是：

newimg <- img 
newimg@grey[rows,cols] <- (1-q) * img@grey[rows,cols] + q * randomnoise