# NOT RUN {
library(sparklyr)
library(sparklyr.flint)
sc <- try_spark_connect(master = "local")
if (!is.null(sc)) {
price_sdf <- copy_to(
sc,
data.frame(
time = ceiling(seq(12) / 2),
price = seq(12) / 2,
id = rep(c(3L, 7L), 6)
)
)
ts <- fromSDF(price_sdf, is_sorted = TRUE, time_unit = "DAYS")
ts_skewness <- summarize_skewness(ts, column = "price")
} else {
message("Unable to establish a Spark connection!")
}
# }
Run the code above in your browser using DataLab