# NOT RUN {
df <- read.df("data/mllib/sample_libsvm_data.txt", source = "libsvm")
head(
withColumn(
withColumn(df, "array", vector_to_array(df$features)),
"vector",
array_to_vector(column("array"))
)
)
# }
Run the code above in your browser using DataLab