powered by
blur_anisotropic(im, amplitude, sharpness = 0.7, anisotropy = 0.6, alpha = 0.6, sigma = 1.1, dl = 0.8, da = 30, gauss_prec = 2, interpolation_type = 0L, is_fast_approx = TRUE)
im <- load.image(system.file('extdata/Leonardo_Birds.jpg',package='imager')) im.noisy <- (im + 80*rnorm(prod(dim(im)))) blur_anisotropic(im.noisy,ampl=1e4,sharp=1) %>% plot
Run the code above in your browser using DataLab