if (FALSE) { # rlang::is_installed("clustMixType")
library(clustMixType)
kproto_fit <- kproto(
ToothGrowth,
k = 2,
lambda = lambdaest(ToothGrowth),
verbose = FALSE
)
out <- butcher(kproto_fit, verbose = TRUE)
}
Run the code above in your browser using DataLab