words_emb_matrix = as.matrix(unnested_words[,-1])

words_emb_matrix = unnested_words %>% select(starts_with('frp')) %>% as.matrix()