Filtering out Stripe Noise from an Image using FFT in R

Question

I have this code for calculating the FFT for an image.

library(EBTmage)
img <- readImage("~/Desktop/lena_stripe.png")
display(img)
img_g