... | ... |
@@ -20,7 +20,10 @@ |
20 | 20 |
numClusters <- 0 |
21 | 21 |
|
22 | 22 |
# generate the initial tree |
23 |
- initTree <- fastcluster::hclust(dist(distMat, method = "maximum"), method = "average") |
|
23 |
+ initTree <- fastcluster::hclust( |
|
24 |
+ dist(distMat, method = "maximum"), |
|
25 |
+ method = "average" |
|
26 |
+ ) |
|
24 | 27 |
|
25 | 28 |
# process the resulting dendrogram |
26 | 29 |
hcDat <- initTree |