add inv=T test and replace sep character with mcqr_separator_string

MassChroqR/R/mcq_ratio.R

@@ -7,7 +7,8 @@ mcq.get.ratio <- function (object, sample1, sample2) {
 		stop(paste("the class \"", class(object),"\" is not taken into account by mcq.get.ratio",sep=""))
 	}
 
-	pairstr <- paste(sample1, sample2, sep="--")
+	#pairstr <- paste(sample1, sample2, sep="--")
+	pairstr <- paste(sample1, sample2, sep=pkg.env$mcqr_separator_string)
 	#onlypair <- object@restest$pair.result[object@restest$pair.result$pairs == pairstr,"proteins"]
 
 	protlist = unique(object@restest$pair.result[object@restest$pair.result$pairs == pairstr,"proteins"])

test/test_mcq_ratio.R

@@ -30,9 +30,16 @@ if (file.exists("ttest.RData")) {
 	save(ttest, file="ttest.RData")
 }
 
+cat('inv=F')
 ratio = mcq.get.ratio(ttest, "tca1", "teal");
 summary(ratio)
 
+cat('inv=T')
+ratio = mcq.get.ratio(ttest, "teal", "tca1");
+summary(ratio)
+
+
+
 cat ("*********************************************\n")
 cat (" mcq.get.ratio OK\n")
 cat ("*********************************************\n")