1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
#' DiffusionMap methods
#'
#' Methods for external operations on diffusion maps
#'
#' @param x,object A \code{\link{DiffusionMap}}
#'
#' @return The \code{DiffusionMap} object (\code{print}), or NULL (\code{show}), invisibly
#'
#' @seealso \link{DiffusionMap accession methods}, \link{Extraction methods}, \link{Coercion methods} for more
#'
#' @examples
#' data(guo)
#' dm <- DiffusionMap(guo)
#' print(dm)
#' show(dm)
#'
#' @aliases print.DiffusionMap show.DiffusionMap
#' @name DiffusionMap methods
#' @rdname DiffusionMap-methods
NULL
#' @importFrom utils str
#'
#' @rdname DiffusionMap-methods
#' @export
setMethod('print', 'DiffusionMap', function(x) {
cat(sprintf('DiffusionMap (%s Diffusion components and %s observations)\n', length(eigenvalues(x)), nrow(eigenvectors(x))))
cat('eigenvalues: '); str(eigenvalues(x))
cat('eigenvectors: '); str(structure(eigenvectors(x), dimnames = NULL))
cat(' ..colnames: '); str(colnames(eigenvectors(x)), vec.len = 4)
cat('optimal_sigma: '); str(optimal_sigma(x))
cat('distance: '); str(distance(x))
invisible(x)
})
#' @importFrom methods show
#'
#' @rdname DiffusionMap-methods
#' @export
setMethod('show', 'DiffusionMap', function(object) {
print(object)
invisible()
})
|
