Mercurial > repos > stevecassidy > wrassp

view g_cepstrum.R @ 5:0026cd452d0e draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload commit 72cee9103c0ae4acb5794afaed179bea2c729f2c-dirty
author stevecassidy
date Sat, 11 Mar 2017 21:37:57 -0500
parents dbcf9bc275e3
children
line wrap: on
line source


library(wrassp)

args = commandArgs(TRUE)
# args will be like
#        ${wavfile} ${output}
#        ${beginTime} ${endTime}
#        ${windowShift} ${window} ${resolution}
#        ${fftLength}


if (length(args) != 8) {
    print("Wrong number of arguments!")
    q("no", status=1)
}

res = cepstrum(args[1], toFile=FALSE,
               beginTime=as.numeric(args[3]),
               endTime=as.numeric(args[4]),
               windowShift=as.numeric(args[5]),
               window=args[6],
               resolution=as.numeric(args[7]),
               fftLength=as.numeric(args[8])
             )

assp_to_tsv(res, args[2])