R/sample.rate.spg.R

In landmarkacoustics/SoundPoints-R: an R version of the SoundPoints algorithm

Defines functions sample.rate.spg

Documented in sample.rate.spg

sample.rate.spg <-
function(spg){

    ifelse(is(spg) == "spg", diff(attr(spg,"frequency")[1:2])*ncol(spg), NaN);
}