# HG changeset patch
# User lecorguille
# Date 1470987927 14400
# Node ID 761312f27add0ac02b3c2216da7de45b840753dd
# Parent  301d7adf862ed8a633a993c924a1d16d54175268
planemo upload for repository https://github.com/workflow4metabolomics/nmr_bucketing commit 32fa2b6914a12c8ee2109183af6d4b3ad60d8f13-dirty

diff -r 301d7adf862e -r 761312f27add NmrBucketing_script.R
--- a/NmrBucketing_script.R	Mon Jul 04 11:51:22 2016 -0400
+++ b/NmrBucketing_script.R	Fri Aug 12 03:45:27 2016 -0400
@@ -206,11 +206,8 @@
 
     if (graph == "Overlay")
     {
-      x <- 1:length(BucketedData[,1])
       ymax <- max(bucketedSpectra)
-      plot(x,BucketedData[,1],ylim=c(0,ymax),type='l',col=1,xlab="",xaxt="n",ylab="Intensity")
-      # x-axis labels
-      axis(1, at=seq(1,length(x),by=50),labels=gsub("B","",rownames(BucketedData)[seq(1,length(x),by=50)]), las=2)
+      plot(1:length(bucketedSpectra[,1]),bucketedSpectra[,1],ylim=c(0,ymax),type='l',col=1,xlab="Chemical shift",ylab="Intensity")
       for (i in 2:ncol(bucketedSpectra))
       {
         spectre <- bucketedSpectra[,i]
@@ -222,9 +219,7 @@
     {
       for (i in 1:ncol(bucketedSpectra))
       {
-        x <- 1:length(BucketedData[,1])
-        plot(x,bucketedSpectra[,i],type='l',col=1,xlab="",xaxt="n",ylab="Intensity")
-        axis(1, at=seq(1,length(x),by=50),labels=gsub("B","",rownames(BucketedData)[seq(1,length(x),by=50)]), las=2)
+        plot(1:length(bucketedSpectra[,i]),bucketedSpectra[,i],type='l',col=1,xlab="Chemical shift",ylab="Intensity")
       }
     }
     dev.off()