Nothing
knitr::opts_chunk$set( collapse = TRUE, comment = "#>" ) ini0 <- Sys.time()
https://github.com/filipezabala/voice
# packs library(voice) # get path to audio file wavDir <- list.files(system.file('extdata', package = 'wrassp'), pattern = glob2rx('*.wav'), full.names = TRUE)
# minimal usage M <- voice::extract_features(wavDir) M
# 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')
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.