X <- mclust::banknote
y <- as.numeric(as.factor(X[, 1]))
lambdas <- seq(0, 1, by = 0.01)
X <- X[, -1]
HTKmeans.out <- HTKmeans(X, 2, lambdas)
# Both AIC and BIC suggest a lambda of 0.02 here:
# \donttest{
getLambda(HTKmeans.out, "AIC")
getLambda(HTKmeans.out, "BIC")
# }
Run the code above in your browser using DataLab