rlim19 / theartofr

Simple R Scripts from The Art of R Programming's book

The original source of scripts is here

theartofr's Issues

Issue in blurpart.R in ch3

There is a issue in blurpart.R file, where matrix indexing is wrong and a variable name is wrong. Here is the correct code
blurpart <- function(img,rows,cols,q){
lrows <- length(rows)
ncols <- length(cols)
newimg <- img
randomnoise <- matrix(nrow=lrows, ncol=ncols,runif(lrows*lcols))
newimg@grey[rows,cols] <- (1-q) * img@grey[rows,cols] + q * randomnoise
return(newimg)
}
If you allow me to raise a PR, I can do that.
btw thanks for this book, I am really enjoying learning R from this book.