Source: https://cran.r-project.org/web/packages/tclust/vignettes/tclust.pdf