if (FALSE) {
sc <- spark_connect(master = "local")
iris_tbl <- sdf_copy_to(sc, iris, name = "iris_tbl", overwrite = TRUE)
ml_gaussian_mixture(iris_tbl, Species ~ .) %>%
ml_evaluate(iris_tbl)
ml_kmeans(iris_tbl, Species ~ .) %>%
ml_evaluate(iris_tbl)
ml_bisecting_kmeans(iris_tbl, Species ~ .) %>%
ml_evaluate(iris_tbl)
}
Run the code above in your browser using DataLab