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

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

Author: kdbeuf
Date: 2012-06-11 10:04:22 +0200 (Mon, 11 Jun 2012)
New Revision: 48

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-11 07:47:00 UTC (rev 47)
+++ pkg/waveTiling/R/methods-WfmInf.R	2012-06-11 08:04:22 UTC (rev 48)
@@ -227,7 +227,7 @@
 #       if (getWfmFitMethod(object)=="twoGroup" | getWfmFitMethod(object)=="circadian")
         if ((inherits(fit,"WfmFitFactor") & noGroups==2) | inherits(fit,"WfmFitCircadian"))
         {
-                if (tracks==0)
+                if (tracks==0 | tracks==1)
                 {
                         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"))
                         #if (getWfmFitMethod(object)=="twoGroup")