Mercurial > repos > marie-tremblay-metatoul > nmr_bucketing
diff NmrBucketing_script.R @ 2:761312f27add draft
planemo upload for repository https://github.com/workflow4metabolomics/nmr_bucketing commit 32fa2b6914a12c8ee2109183af6d4b3ad60d8f13-dirty
| author | lecorguille |
|---|---|
| date | Fri, 12 Aug 2016 03:45:27 -0400 |
| parents | 301d7adf862e |
| children | 58679e85745f |
line wrap: on
line diff
--- 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()