# NOT RUN {
sound = c(soundgen(), soundgen(nSyl = 4, sylLen = 50, pauseLen = 70,
formants = NA, pitch = c(500, 330)))
# playme(sound)
ssm(sound, samplingRate = 16000,
input = 'audiogram', simil = 'cor', norm = FALSE,
ssmWin = 10, kernelLen = 150) # detailed, local features
# }
# NOT RUN {
m = ssm(sound, samplingRate = 16000,
input = 'mfcc', simil = 'cosine', norm = TRUE,
ssmWin = 50, kernelLen = 600, # global features
specPars = list(colorTheme = 'heat.colors'),
ssmPars = list(colorTheme = 'bw'),
noveltyPars = list(type = 'l', lty = 3, lwd = 2))
# plot(m$novelty, type='b') # use for peak detection, etc
# }
Run the code above in your browser using DataLab