Our simple program to begin.
After starting up your VM and running the update code (which downloads the file you need here), cut and paste the following block.
library(wordVectors)
library(magrittr)
vectors = read.binary.vectors("/texts/medical_vectors.bin",nrows = 50000)
vectors %>% nearest_to(vectors[["tumor"]],n = 10)OK.
A much more complicated program, for later or for speed demons.
opposition_1 = vectors[["he"]] - vectors[["she"]]
opposition_2 = vectors[["america"]] - vectors[["england"]]
field_words = vectors %>% nearest_to(
vectors[[c("dermatology","pediatrics","ophthalmology","psychology","histology")]],100
) %>% names
smaller_vectors = vectors %>% filter_to_rownames(field_words)
similarity_to_1 = smaller_vectors %>% cosineSimilarity(opposition_1)
similarity_to_2 = smaller_vectors %>% cosineSimilarity(opposition_2)
# We plot in white so the circles don't leave a mark
plot(x=similarity_to_1,y=similarity_to_2,col='white')
# And then use 'text' to actually write on the screen.
text(x=similarity_to_1,y=similarity_to_2,label=rownames(similarity_to_2))