git-svn-id: file:///home/git/hedgehog.fhcrc.org/bioconductor/trunk/madman/Rpacks/DEGraph@66538 bc3139a8-67e5-0310-9ffc-ced21a209358
Laurent Jacob authored on 09/06/2012 06:31:29
| ... | ... |
@@ -132,7 +132,7 @@ testOneGraph <- function(graph, data, classes, useInteractionSigns=TRUE, ..., ve |
| 132 | 132 |
} |
| 133 | 133 |
mm <- match(commonGN, dataGN) |
| 134 | 134 |
## sorting (and subsetting if necessary) |
| 135 |
- data <- data[mm, ] |
|
| 135 |
+ data <- data[mm, , drop=FALSE] |
|
| 136 | 136 |
|
| 137 | 137 |
## sanity check (ordering should be the same now) |
| 138 | 138 |
if(is.NCIgraph(graph)) |