| Previous changeset 1:301d7adf862e (2016-07-04) Next changeset 3:58679e85745f (2016-08-12) |
|
Commit message:
planemo upload for repository https://github.com/workflow4metabolomics/nmr_bucketing commit 32fa2b6914a12c8ee2109183af6d4b3ad60d8f13-dirty |
|
modified:
NmrBucketing_script.R |
| b |
| 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() |