[Wavetiling-commits] r47 - pkg/waveTiling/R

[noreply at r-forge.r-project.org]

Author: kdbeuf
Date: 2012-06-11 09:47:00 +0200 (Mon, 11 Jun 2012)
New Revision: 47

Modified:
   pkg/waveTiling/R/methods-WfmInf.R
Log:
fix bug plotWfm()


Modified: pkg/waveTiling/R/methods-WfmInf.R
===================================================================
--- pkg/waveTiling/R/methods-WfmInf.R	2012-06-10 10:41:01 UTC (rev 46)
+++ pkg/waveTiling/R/methods-WfmInf.R	2012-06-11 07:47:00 UTC (rev 47)
@@ -233,7 +233,7 @@
                         #if (getWfmFitMethod(object)=="twoGroup")
                         if (inherits(inf,"WfmInfCompare"))
                         {
-                                trackInfo[[trackCount]] <- makeGenericArray(intensity=as.matrix(effects[2,sta:end]),probeStart=Gloc[sta:end],dp=DisplayPars(color="black",ylim=c(min(-1.3,range(effects[2,sta:end])[1]),max(1.3,range(effects[2,sta:end])[2])+c(-0.2,0.2)),pointSize=.3,pch=1,lwd=1,type="line"))
+                                trackInfo[[trackCount]] <- makeGenericArray(intensity=as.matrix(effects[2,sta:end]),probeStart=Gloc[sta:end],dp=DisplayPars(color="black",ylim=c(min(-1.3,range(effects[2,sta:end])[1]),max(1.3,range(effects[2,sta:end])[2]))+c(-0.2,0.2),pointSize=.3,pch=1,lwd=1,type="line"))
                                 names(trackInfo)[trackCount] <- "FC"
                         } else
                         {