Skip to content
Snippets Groups Projects
Commit b4ba7974 authored by Anne Frambourg's avatar Anne Frambourg
Browse files

add inv=T test and replace sep character with mcqr_separator_string

parent c2033b2c
No related branches found
Tags MassChroqR_0.3.2
No related merge requests found
......@@ -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"])
......
......@@ -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")
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment