+ cwt_file = ".cwt.bin"
+ # Compute the synchrones[,index] CWT, and store it in the binary file above
+ computeSaveCWT = function(index)
+ {
+ if (parll && !exists(synchrones)) #avoid going here after first call on a worker
+ {
+ require("bigmemory", quietly=TRUE)
+ require("Rwave", quietly=TRUE)
+ require("epclust", quietly=TRUE)
+ synchrones <- bigmemory::attach.big.matrix(synchrones_desc)
+ }
+ ts <- scale(ts(synchrones[,index]), center=TRUE, scale=FALSE)
+ ts_cwt = Rwave::cwt(ts, noctave, nvoice, w0=2*pi, twoD=TRUE, plot=FALSE)