# NOT RUN {
getRMSFolder('~/Downloads/temp')
# Compare:
analyzeFolder('~/Downloads/temp', pitchMethods = NULL,
plot = FALSE)$ampl_mean
# (per STFT frame, but should be very similar)
User-defined summary functions:
getRMSFolder('~/Downloads/temp', summaryFun = function(x) diff(range(x)))
getRMSFolder('~/Downloads/temp',
summaryFun = function(x) paste0('mean = ', round(mean(x), 2),
'; sd = ', round(sd(x), 2)))
# }
Run the code above in your browser using DataLab