clusteringOPtions: Performs analysis of different cutoff vaules for a BH-SNE...

Usage Arguments Examples

View source: R/clusteringOPtions.R

Usage

1

Arguments

cluster
dim

Examples

 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
##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (cluster, dim) 
{
    if (dim == 2) {
        rdis.test = as.matrix(cluster[, c("x", "y")])
        set.seed(0)
        chec = data.frame(matrix(ncol = 0, nrow = 0))
        for (i in seq(5, 100, 5)) {
            test.hd = hdbscan(rdis.test, minPts = i)
            che = as.data.frame(cbind(max(test.hd$cluster), i))
            chec = rbind(chec, che)
        }
        colnames(chec) = c("Modules", "Cutoff Value")
    }
    if (dim == 3) {
        rdis.test = as.matrix(cluster[, c("x", "y", "z")])
        set.seed(0)
        chec = data.frame(matrix(ncol = 0, nrow = 0))
        for (i in seq(5, 100, 5)) {
            test.hd = hdbscan(rdis.test, minPts = i)
            che = as.data.frame(cbind(max(test.hd$cluster), i))
            chec = rbind(chec, che)
        }
        colnames(chec) = c("Modules", "Cutoff Value")
    }
    return(chec)
  }

sdrowland/RSMod documentation built on July 17, 2021, 7:16 p.m.