Язык R: Как использовать функцию Specan в моем собственном файле WAV?

Question

Я пытаюсь использовать функцию specan из пакета warbleR.Я хочу передать свой собственный файл WAV в качестве аргумента функции.Я видел только один пример в документах, который не очень понятен.

wave_file <- readWave("C:/Users/ABC/Downloads/file_example_WAV_1MG.wav", from = 1, to = Inf, units = c("seconds"), header = FALSE, toWaveMC = NULL)
head(wave_file)
mono_file <- mono(wave_file, which = c("both"))
head(mono_file)
auto_file <- autodetec(X = "C:/Users/ABC/Downloads/file_example_WAV_1MG.wav")
head(auto_file)
dataframe <- data.frame(list = c("sound.files", "selec", "start", "end"))
dataframe <- data.frame(wave_file, "abc", 1, Inf)
dataframe

# Existing Example found in R docs
#setwd('C:/Users/ABC/Downloads')
#data1 <- data(list = c("Phae.long1", "Phae.long2", "Phae.long3", "Phae.long4", "selec.table"))
#writeWave(Phae.long1,"Phae.long1.wav")
#writeWave(Phae.long2,"Phae.long2.wav")
#writeWave(Phae.long3,"Phae.long3.wav")
#writeWave(Phae.long4,"Phae.long4.wav")
#writeWave(Phae.long1,"file_example_WAV_1MG.wav")
#writeWave(Phae.long2," ")
#writeWave(Phae.long3,"1")
#writeWave(Phae.long4,"Inf")

getwd()


#file <- specan(X = selec.table, bp = c(0, 22))
#head(file)

file <- specan(X = dataframe, bp = c(0,22))

Как передать свой собственный файл .wav в качестве аргумента функции specan?

Answer 1

Вместо передачи фактического wav-файла на фрейм данных, передайте имя этого файла.Таким образом, ваш код должен выглядеть так:

dataframe <- data.frame(list = c("sound.files", "selec", "start", "end"))

dataframe <- data.frame("file_example_WAV_1MG.wav", 2, 1, 20)

names(dataframe) <- c("sound.files", "selec", "start", "end")

a <- specan(X=dataframe, bp=c(0,22))

Вы можете просмотреть a.Извлеченные функции будут сохранены в кадре данных.Убедитесь, что ваш файл хранится в рабочем каталоге.