Program ke-3 Mengganti Gambar Berwarna Menjadi Hitam Putih

=====================================================

Nama Mahasiswa : Syafri Maulana Alfatih

NIM : 220605110139

Kelas : B

Mata Kuliah : Linear Algebra

Dosen Pengampu : Prof.Dr.Suhartono,M.Kom

Prodi : Teknik Informatika

Universitas : UIN Maulana Malik Ibrahim Malang

=====================================================

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

Membuat objek “inp_img” dengan mengambil gambar dari internet/website

inp_img <- image_read("https://freesvg.org/img/1680525905avocado-half.png")

image_info(inp_img)

##   format width height colorspace matte filesize density
## 1    PNG   600    600       sRGB  TRUE    45852   72x72

Menampilkan objek “inp_img”

plot(inp_img)

Mengubah kecerahan gambar dengan image_modulate dan masukkan dalam objek baru “mod_img”

mod_img <- image_modulate(inp_img, brightness = 110, saturation = 15,
hue = 15)

Menampilkan gambar baru yang sudah di edit brightness, saturation, dan hue dengan library magick

plot(mod_img)