efg’s R Notes: Thresholding

RNotes | EBImage

---

library(EBImage)

thresh

x <- readImage(system.file('images', 'nuclei.tif', package='EBImage'))
display(x, all=TRUE)

y <- thresh(x, 10, 10, 0.05)
display(y, all=TRUE)

y <- thresh(x, 30, 30, 0.15)
display(y, all=TRUE)

Otsu’s method

x <- readImage(system.file("images", "sample.png", package="EBImage"))
display(x, all=TRUE)

y <- x > otsu(x, levels=256)
display(y, all=TRUE)

y <- x > otsu(x, levels=4)
display(y, all=TRUE)

---

packageVersion("EBImage")

## [1] '4.8.2'

efg
2015-01-18 2027