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