Mercurial > repos > stevecassidy > wrassp

annotate g_cepstrum.R @ 4:22e59a5808e8 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload commit e5d2a8ba1fcf33758cdc07e0a14e86427752c968-dirty
author stevecassidy
date Wed, 01 Feb 2017 22:36:07 -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}
dbcf9bc275e3 planemo upload commit 063e049d569aeb45e1008cbf044f2dad850eca3d-dirty
stevecassidy
parents:
diff changeset
8 # ${windowShift} ${window} ${resolution}
dbcf9bc275e3 planemo upload commit 063e049d569aeb45e1008cbf044f2dad850eca3d-dirty
stevecassidy
parents:
diff changeset
9 # ${fftLength}
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) != 8) {
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 = cepstrum(args[1], toFile=FALSE,
dbcf9bc275e3 planemo upload commit 063e049d569aeb45e1008cbf044f2dad850eca3d-dirty
stevecassidy
parents:
diff changeset
18 beginTime=as.numeric(args[3]),
dbcf9bc275e3 planemo upload commit 063e049d569aeb45e1008cbf044f2dad850eca3d-dirty
stevecassidy
parents:
diff changeset
19 endTime=as.numeric(args[4]),
dbcf9bc275e3 planemo upload commit 063e049d569aeb45e1008cbf044f2dad850eca3d-dirty
stevecassidy
parents:
diff changeset
20 windowShift=as.numeric(args[5]),
dbcf9bc275e3 planemo upload commit 063e049d569aeb45e1008cbf044f2dad850eca3d-dirty
stevecassidy
parents:
diff changeset
21 window=args[6],
dbcf9bc275e3 planemo upload commit 063e049d569aeb45e1008cbf044f2dad850eca3d-dirty
stevecassidy
parents:
diff changeset
22 resolution=as.numeric(args[7]),
dbcf9bc275e3 planemo upload commit 063e049d569aeb45e1008cbf044f2dad850eca3d-dirty
stevecassidy
parents:
diff changeset
23 fftLength=as.numeric(args[8])
dbcf9bc275e3 planemo upload commit 063e049d569aeb45e1008cbf044f2dad850eca3d-dirty
stevecassidy
parents:
diff changeset
24 )
dbcf9bc275e3 planemo upload commit 063e049d569aeb45e1008cbf044f2dad850eca3d-dirty
stevecassidy
parents:
diff changeset
25
dbcf9bc275e3 planemo upload commit 063e049d569aeb45e1008cbf044f2dad850eca3d-dirty
stevecassidy
parents:
diff changeset
26 assp_to_tsv(res, args[2])