R/smooth.R

In tuneR: Analysis of Music and Speech

smoother <- function(notes, method ="median", order=4, times=2){
    if(!requireNamespace("pastecs"))
        stop("The suggested package 'pastecs' is required for this functionality")
    notes[is.na(notes)] <- 999
    dmnotes <- unclass(pastecs::decmedian(notes, order = order, times = times)$series[,1])
    is.na(dmnotes[dmnotes==999]) <- TRUE
    return(as.numeric(dmnotes))
}