# load example word embeddings
data(ft_wv_sample)
space1 <- c("spacecraft", "rocket", "moon")
cen1 <- get_centroid(anchors = space1, wv = ft_wv_sample)
space2 <- c("spacecraft rocket moon")
cen2 <- get_centroid(anchors = space2, wv = ft_wv_sample)
identical(cen1, cen2)
Run the code above in your browser using DataLab