# list images
corbetti <- system.file("extdata/corbetti.png", package = "recolorize")
chongi <- system.file("extdata/chongi.png", package = "recolorize")
# fit a recolorize object by running two functions in a row:
rc <- recolorize(corbetti, bins = 2, plotting = FALSE)
rc <- recluster(rc, cutoff = 45)
# check out the call structure (a list of commands that were run):
rc$call
# we can rerun the analysis on the same image (bit pointless):
rerun <- rerun_recolorize(rc)
# or, we can rerun it on a new image:
rerun_chongi <- rerun_recolorize(rc, img = chongi)
Run the code above in your browser using DataLab