knitr::opts_chunk$set(echo = TRUE)
library(imager)
library(pracma)
library(R.matlab)
library(cluster)
library(factoextra)
library(profvis)
library(magick)
#install.packages("BiocManager")
#BiocManager::install("EBImage")
library(EBImage)
library(ijtiff)
# read a sample file (R logo)
img <- read_tif("matlab.tif")