R/smooth.R

Defines functions smoother

Documented in smoother

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))
}

Try the tuneR package in your browser

Any scripts or data that you put into this service are public.

tuneR documentation built on July 10, 2018, 1:02 a.m.