R/less.R

In LuXiaoEei/image-denosing-by-single-sided-local-linear-kernel-estimation: image-denosing-by-single-sided-local-linear-kernel-estimation

## 自定义带有NA的大小比较规则
less <- function(data){
  x <- data[1]
  y <- data[2]
  if(is.na(x)){
    return(FALSE)
  }else{
    if(is.na(y)){
      return(TRUE)
    }else{
      if(x<y){
        return(TRUE)
      }else{
        return(FALSE)
      }
    }
  }
}