# 輪郭抽出（imgradient）

library(imager)

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

# グラディエント
im.grad = imgradient(im)

plot(im.grad, layout = "row")

# plot(enorm(im.grad), main = "輪郭の強さ")

# もしくは
# layout(t(1:2))
# plot(im.grad$x, main = "x")
# plot(im.grad$y, main = "y")
# layout(1)