Я работал над великолепным учебным пособием «Краткое введение в сопоставление акустических шаблонов с monitoR»
Сейчас я пытаюсь обнаружить вызовы, используя взаимную корреляцию спектрограммы в 30-секундной записи поля выборки.Функция corMatch возвращает следующую ошибку ...
'Ошибка в! All.equal (template@t.step, t.step, допуск = t.step / 10000): недопустимый тип аргумента'
Что я сделал не так?
Я использовал следующий код:
survey <- readWave('20180901_160000.wav', from = 64, to = 64.5, units='minutes')
mtemp1 <- readWave('mew.wav')
mtemp2 <- readWave('mew2.wav')
mtemp1.fp <- file.path(tempdir(), "mtemp1.wav")
writeWave(mtemp1, mtemp1.fp)
mtemp2.fp <- file.path(tempdir(), "mtemp2.wav")
writeWave(mtemp2, mtemp2.fp)
survey.fp <- file.path(tempdir(), "survey2018-09-01_160400_ACDT.wav")
writeWave(survey, survey.fp)
mt1 <- makeCorTemplate(mtemp1.fp, frq.lim=c(6,9), name='m1')
mt2 <- makeCorTemplate(mtemp2.fp, frq.lim=c(5.5,8.5), name='m2')
MewTemps <- combineCorTemplates(mt1, mt2)
MewTempScores <- corMatch(survey.fp, MewTemps)