@@ -1,14 +1,14 @@

 Package: ComplexHeatmap

 Type: Package

 Title: Making Complex Heatmaps

-Version: 1.2.1

+Version: 1.2.2

 Date: 2015-6-17

 Author: Zuguang Gu

 Maintainer: Zuguang Gu <z.gu@dkfz.de>

 Depends: R (>= 3.1.0), grid

 Imports: methods, circlize (>= 0.2.3), GetoptLong, colorspace,

-    RColorBrewer

-Suggests: testthat (>= 0.3), knitr, markdown, cluster, dendextend

+    RColorBrewer, dendextend (>= 1.0.1)

+Suggests: testthat (>= 0.3), knitr, markdown, cluster

 VignetteBuilder: knitr

 Description: Complex heatmaps are efficient to visualize associations 

     between different sources of data sets and reveal potential features. 

@@ -66,4 +66,4 @@ importFrom("GetoptLong", qq.options)

 importFrom("colorspace", rainbow_hcl)

 importFrom("colorspace", diverge_hcl)

 importFrom("RColorBrewer", brewer.pal)

-

+importFrom("dendextend", get_branches_heights)

@@ -1,3 +1,10 @@

+CHANGES in VERSION 1.2.2

+

+* rows can be split if `cluster_rows` are a clustering object

+* `row_order` and `column_order` can be set by dimension names

+

+===========================================

+

 CHANGES in VERSION 1.2.1

 * adjust orders of row slices

@@ -170,7 +170,8 @@ Heatmap = setClass("Heatmap",

 # -bottom_annotation_height total height of the column annotations on the bottom.

 # -km do k-means clustering on rows. If the value is larger than 1, the heatmap will be split by rows according to the k-means clustering.

 #     For each row-clusters, hierarchical clustering is still applied with parameters above.

-# -split a vector or a data frame by which the rows are split.

+# -split a vector or a data frame by which the rows are split. But if ``cluster_rows`` is a clustering object, ``split`` can be a single number

+#        indicating rows are to be split according to the split on the tree.

 # -gap gap between row-slices if the heatmap is split by rows, should be `grid::unit` object.

 # -combined_name_fun if the heatmap is split by rows, how to make a combined row title for each slice?

 #                 The input parameter for this function is a vector which contains level names under each column in ``split``.

@@ -267,9 +268,13 @@ Heatmap = function(matrix, col, name, na_col = "grey", rect_gp = gpar(col = NA),

     .Object@matrix_param$km = km

     .Object@matrix_param$gap = gap

     if(!is.null(split)) {

-        if(!is.data.frame(split)) split = data.frame(split)

-        if(nrow(split) != nrow(matrix)) {

-            stop("Length or number of rows of `split` should be same as rows in `matrix`.")

+        if(inherits(cluster_rows, c("dendrogram", "hclust"))) {

+            .Object@matrix_param$split = split

+        } else {

+            if(!is.data.frame(split)) split = data.frame(split)

+            if(nrow(split) != nrow(matrix)) {

+                stop("Length or number of rows of `split` should be same as rows in `matrix`.")

+            }

         }

     }

     .Object@matrix_param$split = split

@@ -382,6 +387,9 @@ Heatmap = function(matrix, col, name, na_col = "grey", rect_gp = gpar(col = NA),

     if(is.null(row_order)) {

         .Object@row_order = seq_len(nrow(matrix))

     }  else {

+        if(is.character(row_order)) {

+            row_order = structure(seq_len(nrow(matrix)), names = rownames(matrix))[row_order]

+        }

         .Object@row_order = row_order

     }

@@ -411,6 +419,9 @@ Heatmap = function(matrix, col, name, na_col = "grey", rect_gp = gpar(col = NA),

     if(is.null(column_order)) {

         .Object@column_order = seq_len(ncol(matrix))

     } else {

+        if(is.character(column_order)) {

+            column_order = structure(seq_len(ncol(matrix)), names = colnames(matrix))[column_order]

+        }

         .Object@column_order = column_order

     }

@@ -555,11 +566,26 @@ setMethod(f = "make_row_cluster",

             if(km > 1) {

                 stop("You can not make k-means clustering since you have already specified a clustering object.")

             }

-            if(!is.null(split)) {

-                stop("You can not split by rows since you have already specified a clustering object.")

+            if(is.null(split)) {

+                object@row_hclust_list = list(object@row_hclust_param$obj)

+                object@row_order_list = list(get_hclust_order(object@row_hclust_param$obj))

+            } else {

+                if(length(split) > 1 || !is.numeric(split)) {

+                    stop("Since you specified a clustering object, you can only split rows by providing a number (number of row slices.")

+                }

+                if(split < 2) {

+                    stop("Here `split` should be equal or larger than 2.")

+                }

+                if(inherits(object@row_hclust_param$obj, "hclust")) {

+                    object@row_hclust_param$obj = as.dendrogram(object@row_hclust_param$obj)

+                }

+                object@row_hclust_list = cut_dendrogram(object@row_hclust_param$obj, split)

+                sth = tapply(order.dendrogram(object@row_hclust_param$obj), 

+                    rep(seq_along(object@row_hclust_list), times = sapply(object@row_hclust_list, nobs)), 

+                    function(x) x)

+                attributes(sth) = NULL

+                object@row_order_list = sth

             }

-            object@row_hclust_list = list(object@row_hclust_param$obj)

-            object@row_order_list = list(get_hclust_order(object@row_hclust_param$obj))

             return(object)

         }

@@ -322,6 +322,14 @@ get_hclust_order = function(x) {

         dendrogram = order.dendrogram(x))

 }

+# can only cut dendrogram for which branches at every node are two

+cut_dendrogram = function(dend, k) {

+    h = sort(get_branches_heights(dend), decreasing = TRUE)

+    height = (h[k-1] + h[k])/2

+    trees = cut(dend, h = height)

+    trees$lower

+}

+

 recycle_gp = function(gp, n = 1) {

     for(i in seq_along(gp)) {

         x = gp[[i]]

@@ -15,9 +15,5 @@ It is only designed for \code{+} generic method so that above three classes can

 }

 \examples{

-

-

 # no example

-NULL

-

-}

+NULL}

@@ -27,9 +27,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # no example

-NULL

-

-}

+NULL}

@@ -30,9 +30,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # for examples, please go to `ColorMapping` method page

-NULL

-

-}

+NULL}

@@ -34,8 +34,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # discrete color mapping for characters

 cm = ColorMapping(name = "test",

     colors = c("blue", "white", "red"),

@@ -52,6 +50,4 @@ cm

 require(circlize)

 cm = ColorMapping(name = "test",

     col_fun = colorRamp2(c(0, 0.5, 1), c("blue", "white", "red")))

-cm

-

-}

+cm}

@@ -72,9 +72,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # for examples, please go to `Heatmap` method page

-NULL

-

-}

+NULL}

@@ -80,7 +80,7 @@ Heatmap(matrix, col, name, na_col = "grey", rect_gp = gpar(col = NA),

   \item{bottom_annotation}{a \code{\link{HeatmapAnnotation}} object.}

   \item{bottom_annotation_height}{total height of the column annotations on the bottom.}

   \item{km}{do k-means clustering on rows. If the value is larger than 1, the heatmap will be split by rows according to the k-means clustering.For each row-clusters, hierarchical clustering is still applied with parameters above.}

-  \item{split}{a vector or a data frame by which the rows are split.}

+  \item{split}{a vector or a data frame by which the rows are split. But if \code{cluster_rows} is a clustering object, \code{split} can be a single numberindicating rows are to be split according to the split on the tree.}

   \item{gap}{gap between row-slices if the heatmap is split by rows, should be \code{\link[grid]{unit}} object.}

   \item{combined_name_fun}{if the heatmap is split by rows, how to make a combined row title for each slice?The input parameter for this function is a vector which contains level names under each column in \code{split}.}

   \item{width}{the width of the single heatmap, should be a fixed \code{\link[grid]{unit}} object. It is used for the layout when the heatmapis appended to a list of heatmaps.}

@@ -111,8 +111,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 mat = matrix(rnorm(80, 2), 8, 10)

 mat = rbind(mat, matrix(rnorm(40, -2), 4, 10))

 rownames(mat) = letters[1:12]

@@ -183,6 +181,4 @@ Heatmap(mat, rect_gp = gpar(col = "white"),

         grid.text(mat[i, j], x = x, y = y)

     },

     cluster_rows = FALSE, cluster_columns = FALSE, row_names_side = "left", 

-    column_names_side = "top")

-

-}

+    column_names_side = "top")}

@@ -29,9 +29,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # for examples, please go to `HeatmapAnnotation` method page

-NULL

-

-}

+NULL}

@@ -46,8 +46,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 df = data.frame(type = c("a", "a", "a", "b", "b", "b"))

 ha = HeatmapAnnotation(df = df)

@@ -61,6 +59,4 @@ ha = HeatmapAnnotation(points = anno_points(1:6))

 ha = HeatmapAnnotation(histogram = anno_points(1:6))

 mat = matrix(rnorm(36), 6)

-ha = HeatmapAnnotation(boxplot = anno_boxplot(mat))

-

-}

+ha = HeatmapAnnotation(boxplot = anno_boxplot(mat))}

@@ -68,8 +68,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 mat = matrix(rnorm(80, 2), 8, 10)

 mat = rbind(mat, matrix(rnorm(40, -2), 4, 10))

 rownames(mat) = letters[1:12]

@@ -85,6 +83,4 @@ ht + ht_list

 ha = HeatmapAnnotation(points = anno_points(1:12, which = "row"), 

     which = "row")

 ht + ha

-ht_list + ha

-

-}

+ht_list + ha}

@@ -27,13 +27,7 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \section{Detailes}{

-

-

 There is no public constructor method for the \code{\link{HeatmapList-class}}.}

 \examples{

-

-

 # no example

-NULL

-

-}

+NULL}

@@ -39,9 +39,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # for examples, please go to `SingleAnnotation` method page

-NULL

-

-}

+NULL}

@@ -48,8 +48,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # discrete character

 SingleAnnotation(name = "test", value = c("a", "a", "a", "b", "b", "b"))

 SingleAnnotation(name = "test", value = c("a", "a", "a", "b", "b", "b"), 

@@ -65,6 +63,4 @@ SingleAnnotation(value = 1:10)

 SingleAnnotation(value = 1:10, col = colorRamp2(c(1, 10), c("blue", "red")))

 # self-defined graphic function

-SingleAnnotation(fun = anno_points(1:10))

-

-}

+SingleAnnotation(fun = anno_points(1:10))}

@@ -31,8 +31,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 mat = matrix(rnorm(80, 2), 8, 10)

 mat = rbind(mat, matrix(rnorm(40, -2), 4, 10))

 rownames(mat) = letters[1:12]

@@ -50,6 +48,4 @@ ha = HeatmapAnnotation(points = anno_points(1:12, which = "row"),

 ht + ha

 ht_list + ha

-ha + ha + ht

-

-}

+ha + ha + ht}

@@ -28,8 +28,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 mat = matrix(rnorm(80, 2), 8, 10)

 mat = rbind(mat, matrix(rnorm(40, -2), 4, 10))

 rownames(mat) = letters[1:12]

@@ -40,6 +38,4 @@ add_heatmap(ht, ht)

 ha = HeatmapAnnotation(points = anno_points(1:12, which = "row"), 

     which = "row")

-add_heatmap(ht, ha)

-

-}

+add_heatmap(ht, ha)}

@@ -28,8 +28,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 mat = matrix(rnorm(80, 2), 8, 10)

 mat = rbind(mat, matrix(rnorm(40, -2), 4, 10))

 rownames(mat) = letters[1:12]

@@ -39,6 +37,4 @@ ht = Heatmap(mat)

 ha = HeatmapAnnotation(points = anno_points(1:12, which = "row"), 

     which = "row")

-add_heatmap(ha, ht)

-

-}

+add_heatmap(ha, ht)}

@@ -28,8 +28,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 mat = matrix(rnorm(80, 2), 8, 10)

 mat = rbind(mat, matrix(rnorm(40, -2), 4, 10))

 rownames(mat) = letters[1:12]

@@ -41,6 +39,4 @@ add_heatmap(ht_list, ht)

 ha = HeatmapAnnotation(points = anno_points(1:12, which = "row"), 

     which = "row")

-add_heatmap(ht_list, ha)

-

-}

+add_heatmap(ht_list, ha)}

@@ -31,12 +31,8 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 f = anno_barplot(rnorm(10))

 grid.newpage(); f(1:10)

 f = anno_barplot(rnorm(10), which = "row")

-grid.newpage(); f(1:10)

-

-}

+grid.newpage(); f(1:10)}

@@ -32,8 +32,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 mat = matrix(rnorm(32), nrow = 4)

 f = anno_boxplot(mat)

 grid.newpage(); f(1:8)

@@ -43,6 +41,4 @@ grid.newpage(); f(1:4)

 lt = lapply(1:4, function(i) rnorm(8))

 f = anno_boxplot(lt)

-grid.newpage(); f(1:4)

-

-}

+grid.newpage(); f(1:4)}

@@ -28,8 +28,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 mat = matrix(rnorm(32), nrow = 4)

 f = anno_density(mat)

 grid.newpage(); f(1:8)

@@ -39,6 +37,4 @@ grid.newpage(); f(1:4)

 lt = lapply(1:4, function(i) rnorm(8))

 f = anno_density(lt, type = "heatmap")

-grid.newpage(); f(1:4)

-

-}

+grid.newpage(); f(1:4)}

@@ -26,8 +26,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 mat = matrix(rnorm(32), nrow = 4)

 f = anno_histogram(mat)

 grid.newpage(); f(1:8)

@@ -37,6 +35,4 @@ grid.newpage(); f(1:4)

 lt = lapply(1:4, function(i) rnorm(8))

 f = anno_histogram(lt)

-grid.newpage(); f(1:4)

-

-}

+grid.newpage(); f(1:4)}

@@ -33,9 +33,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 f = anno_points(rnorm(10))

-grid.newpage(); f(1:10)

-

-}

+grid.newpage(); f(1:10)}

@@ -29,13 +29,9 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 mat = matrix(rnorm(100), 10)

 colnames(mat) = letters[1:10]

 rownames(mat) = LETTERS[1:10]

 long_cn = do.call("paste0", rep(list(colnames(mat)), 4))  # just to construct long text

 ha_rot_cn = HeatmapAnnotation(text = anno_text(long_cn, rot = 45, offset = unit(5, "mm")))

-Heatmap(mat, name = "foo", top_annotation = ha_rot_cn, top_annotation_height = unit(1.2, "cm"))

-

-}

+Heatmap(mat, name = "foo", top_annotation = ha_rot_cn, top_annotation_height = unit(1.2, "cm"))}

@@ -33,9 +33,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # no example for this internal method

-NULL

-

-}

+NULL}

@@ -38,8 +38,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # discrete color mapping for characters

 cm = ColorMapping(name = "test",

     colors = c("blue", "white", "red"),

@@ -59,6 +57,4 @@ require(circlize)

 cm = ColorMapping(name = "test",

     col_fun = colorRamp2(c(0, 0.5, 1), c("blue", "white", "red")))

 grid.newpage()

-color_mapping_legend(cm, legend_title_gp = gpar(fontsize = 16))

-

-}

+color_mapping_legend(cm, legend_title_gp = gpar(fontsize = 16))}

@@ -31,9 +31,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 df = data.frame(type = c("a", "a", "a", "b", "b", "b"))

-ha = rowAnnotation(df = df)

-

-}

+ha = rowAnnotation(df = df)}

@@ -28,8 +28,4 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

-# no example for this internal method

-

-}

+# no example for this internal method}

@@ -24,8 +24,4 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

-# no example for this internal method

-

-}

+# no example for this internal method}

@@ -20,8 +20,6 @@ This function is only for internal use.

 }

 \section{Detials}{

-

-

 This function is only for internal use.}

 \value{

 A \code{\link[grid]{unit}} object.

@@ -32,8 +30,4 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

-# no example for this internal method

-

-}

+# no example for this internal method}

@@ -28,8 +28,4 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

-# no example for this internal method

-

-}

+# no example for this internal method}

@@ -30,8 +30,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 mat = matrix(rnorm(40), nr = 4, ncol = 10)

 rownames(mat) = letters[1:4]

 colnames(mat) = letters[1:10]

@@ -41,6 +39,4 @@ d2 = dist2(mat, pairwise_fun = function(x, y) 1 - cor(x, y))

 d2 = dist2(mat, pairwise_fun = function(x, y) {

     l = is.na(x) & is.na(y)

     sqrt(sum((x[l] - y[l])^2))

-})

-

-}

+})}

@@ -31,14 +31,10 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 mat = matrix(rnorm(80, 2), 8, 10)

 mat = rbind(mat, matrix(rnorm(40, -2), 4, 10))

 rownames(mat) = letters[1:12]

 colnames(mat) = letters[1:10]

 ht = Heatmap(mat)

-draw(ht, heatmap_legend_side = "left")

-

-}

+draw(ht, heatmap_legend_side = "left")}

@@ -30,8 +30,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 df = data.frame(type = c("a", "a", "a", "b", "b", "b"))

 ha = HeatmapAnnotation(df = df)

 grid.newpage(); draw(ha, 1:6)

@@ -52,6 +50,4 @@ grid.newpage(); draw(ha, 1:6)

 mat = matrix(rnorm(36), 6)

 ha = HeatmapAnnotation(boxplot = anno_boxplot(mat))

-grid.newpage(); draw(ha, 1:6)

-

-}

+grid.newpage(); draw(ha, 1:6)}

@@ -33,8 +33,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 mat = matrix(rnorm(80, 2), 8, 10)

 mat = rbind(mat, matrix(rnorm(40, -2), 4, 10))

 rownames(mat) = letters[1:12]

@@ -44,6 +42,4 @@ ht = Heatmap(mat)

 ht_list = ht + ht

 draw(ht_list)

 draw(ht_list, row_title = "row title", column_title = "column title", 

-	heatmap_legend_side = "top")

-

-}

+	heatmap_legend_side = "top")}

@@ -31,8 +31,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 anno = SingleAnnotation(name = "test", value = c("a", "a", "a", "b", "b", "b"))

 grid.newpage(); draw(anno, 1:5)

 grid.newpage(); draw(anno, c(1, 4, 3, 5, 2))

@@ -54,6 +52,4 @@ anno = SingleAnnotation(value = 1:10, col = colorRamp2(c(1, 10), c("blue", "red"

 grid.newpage(); draw(anno, 1:10)

 anno = SingleAnnotation(fun = anno_points(1:10))

-grid.newpage(); draw(anno, 1:10)

-

-}

+grid.newpage(); draw(anno, 1:10)}

@@ -34,9 +34,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # no example for this internal method

-NULL

-

-}

+NULL}

@@ -32,9 +32,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # no example for this internal method

-NULL

-

-}

+NULL}

@@ -35,9 +35,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # no example for this internal method

-NULL

-

-}

+NULL}

@@ -42,9 +42,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # no example for this internal method

-NULL

-

-}

+NULL}

@@ -36,9 +36,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # no example for this internal method

-NULL

-

-}

+NULL}

@@ -31,9 +31,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # no example for this internal method

-NULL

-

-}

+NULL}

@@ -30,9 +30,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # no example for this internal method

-NULL

-

-}

+NULL}

@@ -33,9 +33,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # no example for this internal method

-NULL

-

-}

+NULL}

@@ -31,9 +31,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # no example for this internal method

-NULL

-

-}

+NULL}

@@ -30,9 +30,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # no example for this internal method

-NULL

-

-}

+NULL}

@@ -34,8 +34,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 hc = hclust(dist(USArrests[1:5, ]))

 dend = as.dendrogram(hc)

@@ -47,6 +45,4 @@ grid.dendrogram(dend, facing = "top", layout.pos.row = 1, layout.pos.col = 2)

 grid.dendrogram(dend, facing = "top", order = "reverse", layout.pos.row = 2, 

     layout.pos.col = 1)

 grid.dendrogram(dend, facing = "left", layout.pos.row = 2, layout.pos.col = 2)

-upViewport()

-

-}

+upViewport()}

@@ -29,9 +29,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # no example for this internal method

-NULL

-

-}

+NULL}

@@ -30,9 +30,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # no example for this internal method

-NULL

-

-}

+NULL}

@@ -33,9 +33,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # no example for this internal method

-NULL

-

-}

+NULL}

@@ -58,9 +58,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # no example for this internal method

-NULL

-

-}

+NULL}

@@ -32,9 +32,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # no example for this internal method

-NULL

-

-}

+NULL}