R/seam_carving.R

In Faheemah-p/ShortPath: Finding the shortest path of a graph

Defines functions seam_carving

Documented in seam_carving

seam_carving <- function(image,algo,nb){
  for (i in 1:nb){
    image = remove_seam(image,algo)
  }
  return(image)
}