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