`voice` vignette
In voice: Tools for Voice Analysis, Speaker Recognition and Mood Inference

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
ini0 <- Sys.time()

0. Installation

https://github.com/filipezabala/voice

1. Extract features

Load packages and audio files

# packs
library(voice)

# get path to audio file
wavDir <- list.files(system.file('extdata', package = 'wrassp'),
                     pattern = glob2rx('*.wav'), full.names = TRUE)

Examples

# minimal usage
M <- voice::extract_features(wavDir)
M

2. Tag

# creating Extended synthetic data
E <- dplyr::tibble(subject_id = c(1,1,1,2,2,2,3,3,3), wav_path = wavDir)
E

# minimal usage
voice::tag(E)

# canonical data
voice::tag(E, groupBy = 'subject_id')