画像読み込み

rimageというパッケージをダウンロードしてくる。

rimageの動作例

library(rimage)
data(logo)
op <- par(mfrow=c(2,2))
plot(logo, main="Original")
plot(thresholding(logo, mode="fixed"), main="threshold=0.5")
plot(thresholding(logo, mode="fixed", th=0.9), main="threshold=0.9")
plot(thresholding(logo, mode="da"), main="auto threshold by discriminal analysis")
par(op)