R/Binarize.R

Defines functions Binarize

Documented in Binarize

#' Binarize the image
#'
#' @param image Image that need to be binarize
#' @param intersection.point Cutoff value to binarize the image
#'
#' @return Binarized image
#' @export
#'

Binarize <- function(image, intersection.point){
  image.Binarize <- image

  image.Binarize[image.Binarize> intersection.point] <- 1
  image.Binarize[image.Binarize< intersection.point] <- 0
  image.Binarize[is.na(image.Binarize)]<-0

  return(image.Binarize)
}
calebae/Bowser documentation built on Dec. 19, 2021, 12:54 p.m.