MATRIX ARITMATIC

library(magick)

## Linking to ImageMagick 6.9.12.3
## Enabled features: cairo, freetype, fftw, ghostscript, heic, lcms, pango, raw, rsvg, webp
## Disabled features: fontconfig, x11

str(magick_config())

## List of 24
##  $ version           :Class 'numeric_version'  hidden list of 1
##   ..$ : int [1:4] 6 9 12 3
##  $ modules           : logi FALSE
##  $ cairo             : logi TRUE
##  $ fontconfig        : logi FALSE
##  $ freetype          : logi TRUE
##  $ fftw              : logi TRUE
##  $ ghostscript       : logi TRUE
##  $ heic              : logi TRUE
##  $ jpeg              : logi TRUE
##  $ lcms              : logi TRUE
##  $ libopenjp2        : logi TRUE
##  $ lzma              : logi TRUE
##  $ pangocairo        : logi TRUE
##  $ pango             : logi TRUE
##  $ png               : logi TRUE
##  $ raw               : logi TRUE
##  $ rsvg              : logi TRUE
##  $ tiff              : logi TRUE
##  $ webp              : logi TRUE
##  $ wmf               : logi FALSE
##  $ x11               : logi FALSE
##  $ xml               : logi TRUE
##  $ zero-configuration: logi TRUE
##  $ threads           : int 1

gambar <- image_read("E:/Linear/zero.jpg")

menampilkan data gambar

gambar

gambar2 <- image_read("https://encrypted-tbn0.gstatic.com/images?q=tbn:ANd9GcTBIXrgyCcfVf3XoJlg5NIF6IHjU-0-43mYiw&usqp=CAU")
gambar2

image_info(gambar2)

##   format width height colorspace matte filesize density
## 1   JPEG   275    183       sRGB FALSE     9328   72x72

plot(gambar2)

Kemudian dapat kita modifikasi gambar yang telah ada sebelumnya.

ubah_gambar <- image_modulate(gambar2, brightness = 55, saturation = 55,
hue = 0)
plot(ubah_gambar)