library(voice)
# get path to audio file
path2wav <- list.files(system.file('extdata', package = 'wrassp'),
pattern <- glob2rx('*.wav'), full.names = TRUE)
rw <- tuneR::readWave(path2wav[1])
voice::get_bit(rw)
rwl <- lapply(path2wav, tuneR::readWave)
sapply(rwl, voice::get_bit)
Run the code above in your browser using DataLab