R/karaoke.r

karaoke<-function(infile=NULL, outfile=NULL, sampf=NULL) {
wobj<-readWave(infile)
wl<-mono(wobj, "left")
wr<-mono(wobj, "right")
wobj<-wl-wr
wobj<-stereo(wobj,wobj)
savewav(wobj,f=sampf,filename=outfile)
}

Try the karaoke package in your browser

Any scripts or data that you put into this service are public.

karaoke documentation built on May 2, 2019, 8:27 a.m.