Last chance! 50% off unlimited learning
Sale ends in
specan
measures 22 acoustic parameters on acoustic signals for which the start and end times
are provided.specan(X, bp = c(0,22), wl = 512, threshold = 15, parallel = 1)
manualoc
warbleR
from github to run parallel.duration
: length of signalmeanfreq
: mean frequency (in kHz)sd
: standard deviation of frequencymedian
: median frequency (in kHz)Q25
: first quantile (in kHz)Q75
: third quantile (in kHz)IQR
: interquantile range (in kHz)skew
: skewness (see note inspecprop
description)kurt
: kurtosis (see note inspecprop
description)sp.ent
: spectral entropysfm
: spectral flatnessmode
: mode frequencycentroid
: frequency centroid (seespecprop
)peakf
: peak frequency (frequency with highest energy)meanfun
: average of fundamental frequency measured across acoustic signalminfun
: minimum fundamental frequency measured across acoustic signalmaxfun
: maximum fundamental frequency measured across acoustic signalmeandom
: average of dominant frequency measured across acoustic signalmindom
: minimum of dominant frequency measured across acoustic signalmaxdom
: maximum of dominant frequency measured across acoustic signaldfrange
: range of dominant frequency measured across acoustic signalmodindx
: modulation index. Calculated as the accumulated absolute
difference between adjacent measurements of fundamental frequencies divided
by the frequency rangemanualoc
or autodetec
can be used
directly without any additional modification. The function measures 22 acoustic parameters on
each selection in the data frame. Most parameters are produced internally by
specprop
, fpeaks
, fund
,
and dfreq
from the package seewave.#First create empty folder
dir.create(file.path(getwd(),"temp"))
setwd(file.path(getwd(),"temp"))
data(list = c("Phae.long1", "Phae.long2", "Phae.long3", "Phae.long4"))
writeWave(Phae.long1,"Phae.long1.wav")
writeWave(Phae.long2,"Phae.long2.wav")
writeWave(Phae.long3,"Phae.long3.wav")
writeWave(Phae.long4,"Phae.long4.wav")
data(manualoc.df)
a <- specan(X = manualoc.df, bp = c(0, 22))
# using a diferent threshold
a <- specan(X = manualoc.df, bp = c(0, 22), threshold = 20)
# View(a)
# remove example directory
unlink(getwd(), recursive = TRUE)
Run the code above in your browser using DataLab