hclust size cannot be NA nor exceed 65536

distancematrix.dst <- dist(data, method = "binary")
cmd <- cmdscale(distancematrix.dst, k=3)
cmd_cluster <- fviz_nbclust(cmd, kmeans, nstart = 25, method = "gap_stat",
     k.max = 50, nboot = 500)+
     + labs(subtitle = "Gap statistic method")
cmd_frame <- as.data.frame(cmd)
plot_cluster <- HCPC(cmd_frame, nb.clust = -1, method = "ward")