# Compute the semantic distance score between the embeddings
# from "harmonytext" and "satisfactiontext".
if (FALSE) {
distance_scores <- textDistance(
x = word_embeddings_4$texts$harmonytext,
y = word_embeddings_4$texts$satisfactiontext
)
# Show information about how distance_scores were constructed.
comment(distance_scores)
}
Run the code above in your browser using DataLab