ropensci / barulho Goto Github PK

View Code? Open in Web Editor NEW

6.0 3.0 2.0 69.77 MB

An R package to quantify habitat-induced degradation of (animal) acoustic signals

Home Page: https://ropensci.github.io/baRulho/

R 100.00%

bioacoustics animal acoustic-signals cran behavior

barulho's Introduction

rOpenSci

This repository has been archived. The former README is now in README-NOT.md.

barulho's People

Contributors

Stargazers

Watchers

Forkers

gsvidaurre tubbz-alt

barulho's Issues

replace sim_songs from warbleR with synth_sounds in vignette

replace sim_songs from warbleR when synthetizing sounds in the vignette with synth_sounds

sig2 not working in synth_sounds()

#These 2 got the same result

synth_est2 <- synth_sounds(
  mar = 0.01, sig2 = 0.9,
  frequencies = 2:4,
  durations = c(0.1, 0.2),
  fm = TRUE,
  am = TRUE,
  shuffle = TRUE,
  seed = 123, 
  sampling.rate = 12
)

td <- tempdir()

# export in a single file
Rraven::exp_est(
  X = synth_est2,
  single.file = TRUE,
  path = td,
  file.name = "synth_sounds2.wav"
)

# plot spectro
seewave::spectro(
  readWave(file.path(td, "synth_sounds2.wav"), from = 0, to = 3, units = "seconds"),
  scale = FALSE,
  palette = viridis,
  grid = FALSE,
  flim = c(0.5, 5.5),
  collevels = seq(-20, 0, 1),
  osc = TRUE, colwave = "#482878FF",
  heights = c(2, 1),
  wl = 140
)

synth_est2 <- synth_sounds(
  mar = 0.01, sig2 = 0.9,
  frequencies = 2:4,
  durations = c(0.1, 0.2),
  fm = TRUE,
  am = TRUE,
  shuffle = TRUE,
  seed = 123, 
  sampling.rate = 12
)

seewave::spectro(
  readWave(file.path(td, "synth_sounds2.wav"), from = 0, to = 3, units = "seconds"),
  scale = FALSE,
  palette = viridis,
  grid = FALSE,
  flim = c(0.5, 5.5),
  collevels = seq(-20, 0, 1),
  osc = TRUE, colwave = "#482878FF",
  heights = c(2, 1),
  wl = 140
)

Potential duplicate data files

playback_est.R and playback_est-data.R, I think the former could be removed, since the latter shows up in the data documentation.

add error message for distance

error mesage if distance is not numeric for functions that compare with the shortest distance

deprecate atmospheric_attenuation function

now is included in attenuation()

atmospheric_attenuation inputs

atmospheric_attenuation is documented as requiring an extended selection table (EST) but then doesn't actually take one as input. If the function doesn't need an EST, then the function description and example code should be updated. If it does need an EST, then the function arguments should be updated (but the function code doesn't seem to require an EST...).

Vignette bugs

Line 641: object 'W' not found

Line 642: object 'xa' not found

tail_to_signal_ratio and signal_to_noise_ratio measure start and end markers

tail_to_signal_ratio and signal_to_noise_ratio measure start and end markers (and they shouldn't)

blur.ratio 1 more progress bar

3 progress bar but message says there are only 2

fix progress bar messages and numbering

see progress in excess_attenuation()

message to remind user to include master sound files with re-recorded sound files for search_template()

allow users to run functions on data frames and (non-extended) selection tables

Potential duplicate code files

Spectrum_correlation and spectral_correlation, both are documented as separate functions but seem identical in documentation and purpose. Is this a case of alternative names?