NbClust(x, diss=diss_matrix, distance = NULL, min.nc=1, max.nc=4,
+         method = "ward.D2", index = "scott")
$All.index
       1        2        3        4
 34.4075 137.8320 201.4264 304.1030

$Best.nc
Number_clusters     Value_Index
         2.0000        103.4245

$Best.partition
 [1] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2
[38] 2 2 2



NbClust(x, diss=diss_matrix, distance = NULL, min.nc=1, max.nc=6,
+         method = "ward.D2", index = "ch")
$All.index
       1        2        3        4        5        6
      NA  447.811 1070.124 4965.892 4952.076 4949.618

$Best.nc
Number_clusters     Value_Index
          4.000        4965.892

$Best.partition
 [1] 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 3 3 3 3 3 3 3 3 3 3 4 4 4 4 4 4 4
[38] 4 4 4