erzk

#!/usr/bin/env r

## load pitch files extracted from Praat and pull key information

# take input from the command line
f <- argv

# load packages and hide messages
library(dplyr)
library(rPraat)

erzk

clearinfo

# uncomment for a point-and-click version (then the next two lines should be commented out)
#inDir$ = chooseDirectory$: "Choose the folder containing your wav files"

wd$ = "./"
inDir$ = wd$

# create a list of all wav files in the chosen directory
inDirWild$ = inDir$ + "*.wav"

erzk

library(RCurl)

# download the R code
script <- getURL("https://raw.githubusercontent.com/usagi5886/dsp/master/Spectrogram().r",
                 ssl.verifypeer = FALSE)
# load it as a function
eval(parse(text = script))

library(audio)
# download the wav file

erzk

library(hht)

data(PortFosterEvent)

dt <- mean(diff(tt))

ft <- list()
ft$nfft <- 4096
ft$ns <- 30
ft$nov <- 29

erzk

library(warbleR)

# load and save data
data(list = c("Phae.long1", "Phae.long2","selec.table"))
writeWave(Phae.long1, "Phae.long1.wav")

# make spectrograms (saves the files in the working directory)
specreator(X = selec.table, flim = c(0, 11), res = 300, mar = 0.05, wl = 300)

erzk

library(soundgen)

# synthesize a sound 1 s long, with gradually increasing hissing noise
sound = soundgen(sylLen = 1000,
                 temperature = 0.001,
                 noiseAnchors = list(
                   time = c(0, 1300),
                   value = c(-120, 0)),
                 formantsNoise = list(
                   f1 = list(

erzk

library(signal)

specgram(chirp(seq(-2, 15, by = 0.001), 400, 10, 100, 'quadratic'))

erzk

library(ggplot2)

## first layer
v <- ggspectro(tico, ovlp = 50)

## using geom_tile ##
v + geom_tile(aes(fill = amplitude)) + stat_contour()

erzk

library(seewave)

data(tico)
spectro(tico)

erzk

library(phonTools)

data(sound)
spectrogram(sound)