https://github.com/cran/tuneR
Tip revision: 66d5953020f79ad6a714d18d79919ea7aaf476e9 authored by Uwe Ligges on 28 August 2013, 00:00:00 UTC
version 1.0
version 1.0
Tip revision: 66d5953
smooth.R
smoother <- function(notes, method ="median", order=4, times=2){
require("pastecs")
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))
}