Mercurial > repos > stevecassidy > wrassp

view g_f0.R @ 1:dbcf9bc275e3 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload commit 063e049d569aeb45e1008cbf044f2dad850eca3d-dirty
author stevecassidy
date Wed, 07 Dec 2016 19:10:51 -0500
parents
children
line wrap: on
line source


library(wrassp)

args = commandArgs(TRUE)
# args will be like
#        ${wavfile} ${output}
#        ${beginTime} ${endTime} ${windowShift} ${gender} ${maxF} ${minF} ${minAmp} ${maxZCR}



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

res = ksvF0(args[1], toFile=FALSE, beginTime=as.numeric(args[3]), endTime=as.numeric(args[4]),
             windowShift=as.numeric(args[5]),
             gender=args[6],
             maxF=as.numeric(args[7]),
             minF=as.numeric(args[8]),
             minAmp=as.numeric(args[9]),
             maxZCR=as.numeric(args[10])
             )

assp_to_tsv(res, args[2])