R/judge_p.R

Defines functions judge_p

judge_p <- function(data,u){
  point <- rep(1,nrow(data))
  diff<- apply(data.frame(data$X4-data$X5,data$X4-data$X6),1,max,na.rm = TRUE)
  point[diff<=u]  <- 0
  return(point)
}
LuXiaoEei/image-denosing-by-single-sided-local-linear-kernel-estimation documentation built on May 19, 2019, 12:40 a.m.