# HG changeset patch
# User stevecassidy
# Date 1489286277 18000
# Node ID 0026cd452d0ed74aba9b32a63c82cfbdd5730647
# Parent  22e59a5808e835d113ce5bcf7777e3fb5c5c4ff9
planemo upload commit 72cee9103c0ae4acb5794afaed179bea2c729f2c-dirty

diff -r 22e59a5808e8 -r 0026cd452d0e cut_timeseries.py
--- a/cut_timeseries.py	Wed Feb 01 22:36:07 2017 -0500
+++ b/cut_timeseries.py	Sat Mar 11 21:37:57 2017 -0500
@@ -94,7 +94,7 @@
     headers,rows = cut(zip(tsidents, tsfiles), args.segment_list, args.cutat)
 
     with open(args.output_path, 'w') as out:
-        writer = csv.writer(out)
+        writer = csv.writer(out, dialect=csv.excel_tab)
         writer.writerow(headers)
         for row in rows:
             writer.writerow(row)
diff -r 22e59a5808e8 -r 0026cd452d0e outputAssp.R
--- a/outputAssp.R	Wed Feb 01 22:36:07 2017 -0500
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,37 +0,0 @@
-assp_to_est <- function(assp, outfile) {
-    
-    # convert to a dataframe
-    result <- data.frame(assp[1])
-    for(idx in seq(2,length(attr(assp,'names')))) {
-        result <- cbind(result, assp[idx])
-    }
-    # add a column of timestamps
-    start <- attr(assp, 'startTime')
-    rate <- attr(assp, 'sampleRate')
-    sampletime <- seq(start, by=1/rate, length.out=nrow(result))
-    # and a column of 1s for some reason
-    #one <- rep(1, nrow(result))
-    result <- cbind(sampletime, result)
-    
-    # write header
-    #write("EST_File Track", file=outfile)
-    #write("DataType ascii", file=outfile, append=T)
-    #write("BreaksPresent true", file=outfile, append=T)    
-    #write(paste("NumFrames", nrow(result)), file=outfile, append=T)    
-    
-    #count <- 0 # count overall number of columns
-    #vcount <- 1 # count variables in assp obj
-    #for(name in attr(assp,'names')) {
-    #    for (coln in seq(ncol(data.frame(assp[vcount])))) {
-    #        colname = paste(name, coln, sep="_")
-    #        write(c(paste("Channel_", count, " ", colname, sep="")), file=outfile, append=T)
-    #        count <- count+1
-    #    }
-    #    vcount <- vcount+1
-    #}
-    #write(paste("NumChannels", count), file=outfile, append=T)
-    #write("EST_Header_End", file=outfile, append=T)
-
-    
-    write.table(result, file=outfile, sep="\t", quote=F, row.names=F, col.names=T, append=F)
-}
\ No newline at end of file