if (FALSE) {
correlate(iris)
}
correlate(iris[-5])
correlate(mtcars)
if (FALSE) {
# Also supports DB backend and collects results into memory
library(sparklyr)
sc <- spark_connect(master = "local")
mtcars_tbl <- copy_to(sc, mtcars)
mtcars_tbl %>%
correlate(use = "pairwise.complete.obs", method = "spearman")
spark_disconnect(sc)
}
Run the code above in your browser using DataLab