# ノイズ生成

library(imager)

# グレースケール画像
im <- grayscale(boats)

# ホワイトノイズを加えたノイズ画像
im.noise1 <- im + 0.1 * imnoise(width(im), height(im))
im.noise2 <- im + 0.1 * imnoise(width(im), height(im))

# 同時に3枚並べるレイアウト
layout(t(1 : 3))

plot(im, interpolate = FALSE, main = "元の画像")
plot(im.noise1, interpolate = FALSE, main = "ノイズ画像1")
plot(im.noise2, interpolate = FALSE, main = "ノイズ画像2")

# レイアウトを元に戻す
layout(1)