# NOT RUN {
getLoudnessFolder('~/Downloads/temp1')
# Compare:
analyzeFolder('~/Downloads/temp1', pitchMethods = NULL,
plot = FALSE)$loudness_mean
# (per STFT frame; should be very similar, but not identical unless silence =
0, because # analyze() discards frames considered silent)
# 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