data(query)
skeletalvis <- load_skeletalvis(demo=TRUE)
similarity_results <- experiment_similarity(skeletalvis, query)
# Plot similarity table with labels for top 5 items
plot_similarity(similarity_results, top_n = 5)
Run the code above in your browser using DataLab