Load required R packages
In [1]:
library('tuneR')
library('seewave')
library('soundecology')
Read WAV file into R as an object
In [2]:
sound1 <- readWave("~/Desktop/test/160224150000.wav")
In [3]:
sound2 <- readWave("~/Desktop/test/160309150500.wav")
Draw a spectrogram of the WAV file
-- spectrogram --
Compute acoustic diversity
In [6]:
acoustic_diversity(sound1)
In [10]:
acoustic_diversity(sound2)
Compute acoustic evenness
In [7]:
acoustic_evenness(sound1)
In [11]:
acoustic_evenness(sound2)
Compute acoustic complexity
In [8]:
acoustic_complexity(sound1)
In [12]:
acoustic_complexity(sound2)
Compute the normalized difference soundscape index
In [4]:
ndsi(sound1, fft_w = 1024, anthro_min = 1000, anthro_max = 2000, bio_min = 2000, bio_max = 11000)
In [5]:
ndsi(sound2, fft_w = 1024, anthro_min = 1000, anthro_max = 2000, bio_min = 2000, bio_max = 11000)