| ... | ... |
@@ -226,7 +226,6 @@ corcut <- function(allPatterns, cut, minNS) |
| 226 | 226 |
#' @return list with all CoGAPS output |
| 227 | 227 |
stitchTogether <- function(result, allParams) |
| 228 | 228 |
{
|
| 229 |
- print("stiching together...")
|
|
| 230 | 229 |
if (allParams$gaps@distributed == "genome-wide") |
| 231 | 230 |
{
|
| 232 | 231 |
consensus <- result[[1]]@sampleFactors |
