arsmooth: compute an autoregressive smooth within each frequency bin of...
In landmarkacoustics/SoundPoints-R: an R version of the SoundPoints algorithm

Description Usage Arguments Value Author(s) See Also Examples

this function takes each horizontal part (actually columns in R) of a spectrogram and smooths it over time using autocorrelation

1	arsmooth(spg, ...)

`spg`	a spectrogram
`...`	arguments to `ar`

a new spectrogram

Benjamin N. Taft ben.taft@landmarkacoustics.com

ar spectrogram

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (spg, ...) 
{
    if (!("spg" %in% class(spg))) 
        return(invisible(spg))
    cix <- ncol(spg):1
    for (i in 1:nrow(spg)) {
        A <- ar(ts(spg[i, cix]), ...)
        smoov <- spg[i, cix] - A$resid
        spg[i, cix] <- smoov
    }
    invisible(spg)
  }