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

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

Author: kdbeuf
Date: 2012-06-12 09:43:16 +0200 (Tue, 12 Jun 2012)
New Revision: 50

Modified:
   pkg/waveTiling/R/methods-WaveTilingFeatureSet.R
Log:
changes to selectProbesFromTilingFeatureSet()


Modified: pkg/waveTiling/R/methods-WaveTilingFeatureSet.R
===================================================================
--- pkg/waveTiling/R/methods-WaveTilingFeatureSet.R	2012-06-11 09:45:46 UTC (rev 49)
+++ pkg/waveTiling/R/methods-WaveTilingFeatureSet.R	2012-06-12 07:43:16 UTC (rev 50)
@@ -250,11 +250,11 @@
 {
 	if (strand=="forward")
 	{
-		strand <- 1
+		strand <- 0
 	}
 	if (strand=="reverse")
 	{
-		strand <- 0
+		strand <- 1
 	}
 	if (!inherits(object,"TilingFeatureSet")) #class(object)!="TilingFeatureSet")
 		{
@@ -284,7 +284,7 @@
 	{
 		stop("minPos is greater than maxPos")
 	}
-	selChrom <- (1:length(pmChr(object)))[pmChr(object)==paste("Chr",as.character(chromosome),sep="")]
+	selChrom <- (1:length(pmChr(object)))[pmChr(object)==paste("chr",as.character(chromosome),sep="")]
 	selStrand <- (1:length(pmStrand(object)))[pmStrand(object)==strand]
 	# check what the outcome is of pmStrand() and adapt function accordingly
 	selHlp <- intersect(selChrom,selStrand)