R/han.R

han <- function (sequence) {
  smooth <- stats::filter(sequence, 
                          c(1, 2, 1)/4)
  smooth[c(1, length(sequence))] <-
    sequence[c(1, length(sequence))]
  smooth
}
bayesball/LearnEDAfunctions documentation built on Sept. 20, 2020, 2:45 p.m.