R/AssignBandwidths2.R

AssignBandwidths2 <-
function(Data, h) {
  
  # How many data points?
  N <- length(Data)
  BW <- rep(0,N)
  for (i in 1:N) BW[i] <- sum(abs(Data[i]-Data)<h)
  return(BW)
}
KarimOualkacha/SmoothMSC documentation built on May 8, 2019, 4:49 p.m.