# NOT RUN {
getLoudnessFolder('~/Downloads/temp')
# Compare:
analyzeFolder('~/Downloads/temp', pitchMethods = NULL,
plot = FALSE)$loudness_mean
# (per STFT frame; should be very similar, but not identical, because
# analyze() discards frames considered silent or too noisy)
# custom summaryFun
difRan = function(x) diff(range(x))
getLoudnessFolder('~/Downloads/temp', summaryFun = c('mean', 'difRan'))
# save loudness values per frame without summarizing
l = getLoudnessFolder('~/Downloads/temp', summary = FALSE)
# }
Run the code above in your browser using DataLab