fft_convolve: Convolution of two images via FFT

In redR: REgularization by Denoising (RED)

Description

Convolution of two images via FFT

Usage

fft_convolve(im, filter, deconvolution = FALSE)

Arguments

im, filter	cimg objects
deconvolution	logical indicating if the deconvolution should be performed

Examples

im <- lenna
filter <- imfill(9,9,val = 1)
blurred.im <- fft_convolve(im, filter)
deblurred.im <- fft_convolve(blurred.im, filter, deconvolution = TRUE)
par(mfrow = c(1,3), mar = c(0,0,1,0)+0.1)
plot(im, axes = FALSE, interp = FALSE, main = 'Original Lenna')
plot(blurred.im, axes = FALSE, interp = FALSE, main = 'Blurred Lenna')
plot(deblurred.im, axes = FALSE, interp = FALSE, main = 'deBlurred Lenna')
PSNR(im, blurred.im)
PSNR(im, deblurred.im)

redR documentation built on May 2, 2019, 3:47 p.m.