R/thresholding.R

thresholding <- function(image, threshold = 75) {
  flat <- image[, , 1] + image[, , 2] + image[, , 2]
  flat[flat < threshold] <- 0
  flat[flat >= threshold] <- 1
  flat
}
swarm-lab/videotrackR documentation built on May 30, 2019, 9:37 p.m.