Mercurial > repos > stevecassidy > wrassp

annotate g_forest.R @ 3:f188eb0b526d draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload commit 2d22bc12c66a3d1949d4bf4c84e7ce7c4610383c-dirty
author stevecassidy
date Wed, 14 Dec 2016 21:53:57 -0500
parents dbcf9bc275e3
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1
dbcf9bc275e3 planemo upload commit 063e049d569aeb45e1008cbf044f2dad850eca3d-dirty
stevecassidy
parents:
diff changeset
1
dbcf9bc275e3 planemo upload commit 063e049d569aeb45e1008cbf044f2dad850eca3d-dirty
stevecassidy
parents:
diff changeset
2 library(wrassp)
dbcf9bc275e3 planemo upload commit 063e049d569aeb45e1008cbf044f2dad850eca3d-dirty
stevecassidy
parents:
diff changeset
3
dbcf9bc275e3 planemo upload commit 063e049d569aeb45e1008cbf044f2dad850eca3d-dirty
stevecassidy
parents:
diff changeset
4 args = commandArgs(TRUE)
dbcf9bc275e3 planemo upload commit 063e049d569aeb45e1008cbf044f2dad850eca3d-dirty
stevecassidy
parents:
diff changeset
5 # args will be like
dbcf9bc275e3 planemo upload commit 063e049d569aeb45e1008cbf044f2dad850eca3d-dirty
stevecassidy
parents:
diff changeset
6 # ${wavfile} ${output}
dbcf9bc275e3 planemo upload commit 063e049d569aeb45e1008cbf044f2dad850eca3d-dirty
stevecassidy
parents:
diff changeset
7 # ${beginTime} ${endTime} ${windowShift} ${windowSize} ${effectiveLength}
dbcf9bc275e3 planemo upload commit 063e049d569aeb45e1008cbf044f2dad850eca3d-dirty
stevecassidy
parents:
diff changeset
8 # ${nominalF1} ${gender} ${estimate} ${order} ${incrOrder} ${numFormants}
dbcf9bc275e3 planemo upload commit 063e049d569aeb45e1008cbf044f2dad850eca3d-dirty
stevecassidy
parents:
diff changeset
9 # ${window} ${preEmphasis}
dbcf9bc275e3 planemo upload commit 063e049d569aeb45e1008cbf044f2dad850eca3d-dirty
stevecassidy
parents:
diff changeset
10
dbcf9bc275e3 planemo upload commit 063e049d569aeb45e1008cbf044f2dad850eca3d-dirty
stevecassidy
parents:
diff changeset
11
dbcf9bc275e3 planemo upload commit 063e049d569aeb45e1008cbf044f2dad850eca3d-dirty
stevecassidy
parents:
diff changeset
12 if (length(args) != 15) {
dbcf9bc275e3 planemo upload commit 063e049d569aeb45e1008cbf044f2dad850eca3d-dirty
stevecassidy
parents:
diff changeset
13 print("Wrong number of arguments!")
dbcf9bc275e3 planemo upload commit 063e049d569aeb45e1008cbf044f2dad850eca3d-dirty
stevecassidy
parents:
diff changeset
14 q("no", status=1)
dbcf9bc275e3 planemo upload commit 063e049d569aeb45e1008cbf044f2dad850eca3d-dirty
stevecassidy
parents:
diff changeset
15 }
dbcf9bc275e3 planemo upload commit 063e049d569aeb45e1008cbf044f2dad850eca3d-dirty
stevecassidy
parents:
diff changeset
16
dbcf9bc275e3 planemo upload commit 063e049d569aeb45e1008cbf044f2dad850eca3d-dirty
stevecassidy
parents:
diff changeset
17 res = forest(args[1], toFile=FALSE, beginTime=as.numeric(args[3]), endTime=as.numeric(args[4]),
dbcf9bc275e3 planemo upload commit 063e049d569aeb45e1008cbf044f2dad850eca3d-dirty
stevecassidy
parents:
diff changeset
18 windowShift=as.numeric(args[5]),
dbcf9bc275e3 planemo upload commit 063e049d569aeb45e1008cbf044f2dad850eca3d-dirty
stevecassidy
parents:
diff changeset
19 windowSize=as.numeric(args[6]),
dbcf9bc275e3 planemo upload commit 063e049d569aeb45e1008cbf044f2dad850eca3d-dirty
stevecassidy
parents:
diff changeset
20 effectiveLength=as.integer(args[7]),
dbcf9bc275e3 planemo upload commit 063e049d569aeb45e1008cbf044f2dad850eca3d-dirty
stevecassidy
parents:
diff changeset
21 nominalF1=as.numeric(args[8]),
dbcf9bc275e3 planemo upload commit 063e049d569aeb45e1008cbf044f2dad850eca3d-dirty
stevecassidy
parents:
diff changeset
22 gender=args[9],
dbcf9bc275e3 planemo upload commit 063e049d569aeb45e1008cbf044f2dad850eca3d-dirty
stevecassidy
parents:
diff changeset
23 estimate=as.integer(args[10]),
dbcf9bc275e3 planemo upload commit 063e049d569aeb45e1008cbf044f2dad850eca3d-dirty
stevecassidy
parents:
diff changeset
24 order=as.numeric(args[11]), incrOrder=as.numeric(args[12]),
dbcf9bc275e3 planemo upload commit 063e049d569aeb45e1008cbf044f2dad850eca3d-dirty
stevecassidy
parents:
diff changeset
25 numFormants=as.numeric(args[13]), window=args[14],
dbcf9bc275e3 planemo upload commit 063e049d569aeb45e1008cbf044f2dad850eca3d-dirty
stevecassidy
parents:
diff changeset
26 preemphasis=as.numeric(args[15])
dbcf9bc275e3 planemo upload commit 063e049d569aeb45e1008cbf044f2dad850eca3d-dirty
stevecassidy
parents:
diff changeset
27 )
dbcf9bc275e3 planemo upload commit 063e049d569aeb45e1008cbf044f2dad850eca3d-dirty
stevecassidy
parents:
diff changeset
28
dbcf9bc275e3 planemo upload commit 063e049d569aeb45e1008cbf044f2dad850eca3d-dirty
stevecassidy
parents:
diff changeset
29 assp_to_tsv(res, args[2])