https://github.com/cran/tuneR
Tip revision: b65e1376e188c986410c19071e031aa79c2e9d19 authored by Uwe Ligges on 05 December 2005, 00:00:00 UTC
version 0.2-1
version 0.2-1
Tip revision: b65e137
smooth.R
smoother <- function(notes, method ="median", order=4, times=2){
require(pastecs)
notes[is.na(notes)] <- 999
dmnotes <- unclass(decmedian(notes, order = order, times = times)$series[,1])
is.na(dmnotes[dmnotes==999]) <- TRUE
return(as.numeric(dmnotes))
}