| ... | ... |
@@ -961,7 +961,6 @@ setMethod("drawGD", signature("DataTrack"), function(GdObject, minBase, maxBase,
|
| 961 | 961 |
vals <- values(GdObject) |
| 962 | 962 |
groups <- rep(groups, ncol(vals)) |
| 963 | 963 |
ylim <- .dpOrDefault(GdObject, "ylim") |
| 964 |
- agFun <- .aggregator(GdObject) |
|
| 965 | 964 |
if (!is.null(groups) && nlevels(groups) > 1) {
|
| 966 | 965 |
valsS <- if (ncol(vals)) {
|
| 967 | 966 |
do.call(cbind, lapply( |
