Help for package hazer (original) (raw)
| Title: | Identifying Foggy and Cloudy Images by Quantifying Haziness |
|---|---|
| Version: | 1.1.1 |
| Date: | 2018-10-31 |
| Author: | Bijan Seyednasrollah |
| Maintainer: | Bijan Seyednasrollah bijan.s.nasr@gmail.com |
| Description: | Provides a set of functions to estimate haziness of an image based on RGB bands. It returns a haze factor, varying from 0 to 1, a metric for fogginess and cloudiness. The package also presents additional functions to estimate brightness, darkness and contrast rasters of the RGB image. This package can be used for several applications such as inference of weather quality data and performing environmental studies from interpreting digital images. |
| Depends: | R (≥ 3.3.0) |
| Suggests: | jpeg, testthat, knitr, rmarkdown |
| License: | AGPL-3 | file LICENSE |
| Encoding: | UTF-8 |
| LazyData: | true |
| RoxygenNote: | 6.0.1.9000 |
| URL: | https://github.com/bnasr/hazer/ |
| BugReports: | https://github.com/bnasr/hazer/issues |
| VignetteBuilder: | knitr |
| NeedsCompilation: | no |
| Packaged: | 2018-11-01 16:09:24 UTC; bijan |
| Repository: | CRAN |
| Date/Publication: | 2018-11-01 16:20:03 UTC |
The brighness map of an image (0 to 1).
Description
The brighness map of an image (0 to 1).
Usage
getBrightness(rgbArray)
Arguments
| rgbArray | RGB array (W x H x 3) where the third dimension contains R, G and B channels, values varying from 0 to 1. |
|---|
Value
a numeric matrix (W x H) giving the brightness for each pixel of the image.
See Also
[getDarkness](#topic+getDarkness), [getContrast](#topic+getContrast) and [getHazeFactor](#topic+getHazeFactor)
Examples
library(jpeg)
img <- readJPEG(system.file("img", "Rlogo.jpg", package="jpeg"))
b <- getBrightness(img)
par(mfrow=c(2,1), mar = c(0.5, 1, 0.5, 1))
plotRGBArray(img)
plotRGBArray(b)
The contrast map of an image (0 to 1).
Description
The contrast map of an image (0 to 1).
Usage
getContrast(rgbArray)
Arguments
| rgbArray | RGB array (W x H x 3) where the third dimension contains R, G and B channels, values varying from 0 to 1. |
|---|
Value
a numeric matrix (W x H) giving the contrast for each pixel of the image.
See Also
[getDarkness](#topic+getDarkness), [getBrightness](#topic+getBrightness) and [getHazeFactor](#topic+getHazeFactor)
Examples
library(jpeg)
img <- readJPEG(system.file("img", "Rlogo.jpg", package="jpeg"))
c <- getContrast(img)
par(mfrow=c(2,1), mar = c(0.5, 1, 0.5, 1))
plotRGBArray(img)
plotRGBArray(c)
The darkness map of an image (0 to 1).
Description
The darkness map of an image (0 to 1).
Usage
getDarkness(rgbArray)
Arguments
| rgbArray | RGB array (W x H x 3) where the third dimension contains R, G and B channels, values varying from 0 to 1. |
|---|
Value
a numeric matrix (W x H) giving the darkness for each pixel of the image.
See Also
[getContrast](#topic+getContrast), [getBrightness](#topic+getBrightness) and [getHazeFactor](#topic+getHazeFactor)
Examples
library(jpeg)
img <- readJPEG(system.file("img", "Rlogo.jpg", package="jpeg"))
d <- getDarkness(img)
par(mfrow=c(2,1), mar = c(0.5, 1, 0.5, 1))
plotRGBArray(img)
plotRGBArray(d)
The haze factor for a given RGB array.
Description
The haze factor for a given RGB array.
Usage
getHazeFactor(rgbArray, mu = 5.1, nu = 2.9, sigma = 0.2461)
Arguments
| rgbArray | RGB array (W x H x 3) where the third dimension contains R, G and B channels, values varying from 0 to 1. |
|---|---|
| mu | function parameter |
| nu | function parameter |
| sigma | function parameter |
Value
a list of two numeric values:haze as haze degree and A0 as the global atmospheric light
See Also
[getDarkness](#topic+getDarkness), [getBrightness](#topic+getBrightness) and [getContrast](#topic+getContrast)
Examples
library(jpeg)
img <- readJPEG(system.file("img", "Rlogo.jpg", package="jpeg"))
h <- getHazeFactor(img)
d <- getDarkness(img)
b <- getBrightness(img)
c <- getContrast(img)
par(mfcol = c(2, 2), mar = c(0.5, 0.5, 0.5, 0.5))
plotRGBArray(img)
mtext(text = 'RGB', side = 3, line = -2, adj = 0.05, font = 2, col = 'red')
mtext(text = paste0('Hazeness: ', signif(h$haze, 2)), side = 1, line = -2, adj = 0.05)
mtext(text = paste0('A0: ', signif(h$A0, 2)), side = 1, line = -1, adj = 0.05)
plotRGBArray(d)
mtext(text = 'Darkness', side = 3, line = -2, adj = 0.05, font = 2, col = 'red')
plotRGBArray(b)
mtext(text = 'Brightness', side = 3, line = -2, adj = 0.05, font = 2, col = 'red')
plotRGBArray(c)
mtext(text = 'Contrast', side = 3, line = -2, adj = 0.05, font = 2, col = 'red')
Plotting an RGB array on the graphics.
Description
Plotting an RGB array on the graphics.
Usage
plotRGBArray(rgbArray, xlim = c(0, 1), ylim = c(0, 1), ...)
Arguments
| rgbArray | RGB array (W x H x 3) where the third dimension contains R, G and B channels, values varying from 0 to 1. |
|---|---|
| xlim | range of the x axis. |
| ylim | range of the y axis. |
| ... | graphical parameters passed to the plot function |
Value
a rasterImage output plotted on the base R graphics.
See Also
[plotRGBArray](#topic+plotRGBArray) wraps the graphics::rasterImage function
Examples
library(jpeg)
img <- readJPEG(system.file("img", "Rlogo.jpg", package="jpeg"))
plotRGBArray(img)