profiling.R

In MartinRoth/visDec: Visibility Detection from Cameras

# for profiling
library(profvis)

# profile dehazing
im <- imager::load.image("inst/extdata/Meetterrein/Meetterrein_20151009_0840.jpg")

profvis({
  library(visDec)
  ImageFeatures("inst/extdata/Meetterrein/Meetterrein_20151009_0840.jpg", y > 16)
})

profvis({
  library(visDec)
  GetDarkChannel(im, 15)
})