if (FALSE) {
if (reticulate::py_module_available("stepmix")) {
model1 <- stepmix(n_components = 2, n_steps = 3, progress_bar = 0)
X <- data.frame(x1 = c(0,1,1,1,1,0,0,0,0,0,1,1,0),
x2 = c(0,1,1,0,0,1,1,0,0,0,1,0,1))
fit1 <- fit(model1, X)
savefit(fit1, "fit1.pickle")
### clean the directory.
file.remove("fit1.pickle")
}
}
Run the code above in your browser using DataLab