install.packages("devtools")
library(devtools)
install_github("edwbaker/sonicscrewdriver")
library(sonicscrewdriver)
Generate a Wave object with a sine sweep from 0 Hz to 1kHz over two seconds:
w <- sweptsine(f0=0,f1=1000, sweep.time=2, output="wave")