# 補色

library(imager)

im1 <- boats

# 補色の計算
a <- array(im1, dim(im1))
im2 <- as.cimg(1 - a)

layout(t(1 : 2))
plot(im1, main = "元の画像")
plot(im2, main = "ネガ")
layout(1)