get_dur {voice}

Time duration

Description

Get time duration from WAV file.

Usage

get_dur(x)

Arguments

x

Wave object from 'tuneR::readWave'.

Value

Numeric indicating the time duration in seconds from a WAV file.

Examples

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_dur(rw)

rwl <- lapply(path2wav, tuneR::readWave)
sapply(rwl, voice::get_dur)