powered by
Fill in NA values (inpainting) using a Gaussian filter, i.e. replace missing pixel values with a weighted average of the neighbours.
inpaint(im, sigma)
an image with missing values filled-in.
input image
std. deviation of the Gaussian (size of neighbourhood)
Simon Barthelme
im <- boats im[sample(nPix(im),1e4)] <- NA inpaint(im,1) %>% imlist(im,.) %>% setNames(c("before","after")) %>% plot(layout="row")
Run the code above in your browser using DataLab