if (FALSE) { # requireNamespace("sparklyr", quietly = TRUE) && interactive()
sc <- sparklyr::spark_connect(master = "local")
spark_df <- sparklyr::copy_to(sc, as.data.frame(Titanic))
result <- stddiff.category(
data = spark_df,
gcol = 4, # column index of grouping variable
vcol = c(1) # columns of categorical variables
)
sparklyr::spark_disconnect(sc)
}
Run the code above in your browser using DataLab