# NOT RUN {
library(sparklyr)
sc <- spark_connect(master = "local")
vsc <- vs_connect(sc)
hipster_vcf <- vs_read_vcf(vsc,
system.file("extdata/hipster.vcf.bz2",
package = "variantspark"))
labels <- vs_read_labels(vsc,
system.file("extdata/hipster_labels.txt",
package = "variantspark"))
importance <- vs_importance_analysis(vsc, hipster_vcf, labels, 10)
importance_tbl(importance)
# }
# NOT RUN {
# }
Run the code above in your browser using DataCamp Workspace