The hardware and bandwidth for this mirror is donated by dogado GmbH, the Webhosting and Full Service-Cloud Provider. Check out our Wordpress Tutorial.
If you wish to report a bug, or if you are interested in having us mirror your free-software or open-source project, please feel free to contact us at mirror[@]dogado.de.

Type: Package
Title: Otsu's Image Segmentation Method
Description: An implementation of the Otsu's Image Segmentation Method described in the paper: "A C++ Implementation of Otsu's Image Segmentation Method". The algorithm is explained at <doi:10.5201/ipol.2016.158>.
Maintainer: Jan Wijffels <jwijffels@bnosac.be>
License: MIT + file LICENSE
Version: 0.1
URL: https://github.com/bnosac/image
Imports: Rcpp (≥ 0.12.8)
LinkingTo: Rcpp
Suggests: magick
RoxygenNote: 7.1.0
NeedsCompilation: yes
Packaged: 2020-07-20 19:44:04 UTC; Jan
Author: Jan Wijffels [aut, cre, cph] (R wrapper), BNOSAC [cph] (R wrapper), Juan Pablo Balarini [ctb, cph] (Otsu C++ code), Sergio Nesmachnow [ctb, cph] (Otsu C++ code)
Repository: CRAN
Date/Publication: 2020-07-27 12:30:10 UTC

Image segmentation using Otsu

Description

An implementation of the Otsu's image segmentation algorithm explained at https://doi.org/10.5201/ipol.2016.158.

Usage

image_otsu(x, threshold = 0)

Arguments

x

an object of class magick-image or a greyscale matrix of image pixel values in the 0-255 range

threshold

integer value in range of 0-255. To override the threshold. Defaults to 0 indicating not to override the threshold.

Value

In case x is a matrix, a list with elements x (containing the thresholded image) and threshold is returned
In case x is a magick-image, the thresholded magick-image is returned alongside which also now has an attribute called threshold with the exact Otsu threshold value

Examples

library(magick)
path <- system.file(package="image.Otsu", "extdata", "coins.jpeg")
x    <- image_read(path)
x
img  <- image_otsu(x)
img
attr(img, "threshold")
img  <- image_otsu(x, threshold = 180)
img

img  <- image_data(x, channels = "gray")
img  <- as.integer(img, transpose = TRUE)
img  <- img[, , 1]
img  <- image_otsu(img)
str(img)

These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.
Health stats visible at Monitor.