GitHub - exporl/audimus

Branches Tags

Name		Name	Last commit message	Last commit date
Latest commit History 22 Commits
App		App
Dashboard version		Dashboard version
Storytelling version		Storytelling version
README.txt		README.txt
compress.R		compress.R
score_process_ac_stoneaid.R		score_process_ac_stoneaid.R
vocoder.R		vocoder.R

Repository files navigation

How to call the different modules in R:

# Upload wav-file
library(audio)
audioInput <- load.wave("PATH TO WAV FILE")


# VOCODER
r = vocoder(audioInput[1:length(audioInput)], audioInput$rate)

## STONEAID
## NOT WORKING
#p = list(calibration = 20+65)
#res = score_process_ac_stoneaid(audioInput[1:length(audioInput)], p, 1)

# COMPRESS
p = list(calibration = 20+65)
res = compress(audioInput[1:length(audioInput)], p)

# PLAY RESULTING AUDIO
play(res$result, audioInput$rate)