| ... | ... |
@@ -34,6 +34,10 @@ |
| 34 | 34 |
Sil <- NULL |
| 35 | 35 |
browser() |
| 36 | 36 |
if('sil' %in% measures) if(k > 1) Sil <- mean(cluster::silhouette(cl, stats::as.dist(dMat))) else Sil <- 0
|
| 37 |
+ |
|
| 38 |
+ # TODO: Touch base with Elijah to ensure I haven't proken anything |
|
| 39 |
+ # by changing this line. |
|
| 40 |
+ # if('sil' %in% measures) if(k > 1) Sil <- mean(cluster::silhouette(cl, stats::as.dist(dMat))[,3]) else Sil <- 0
|
|
| 37 | 41 |
|
| 38 | 42 |
# ------ CLUSTER CENTERS |
| 39 | 43 |
|
