Вычисление евклидова расстояния с использованием слов count

Question

Рассмотрите следующие два предложения.

Предложение 1: Быстрая коричневая лиса прыгает через ленивую собаку.

Предложение 2: Быстрая коричневая собака превосходит былую лису.

Вычислить евклидову расстояние, используя подсчет слов.

Answer 1

Вы можете использовать пакет tm, чтобы найти количество слов, а затем вычислить расстояние евклидовой

> library(tm) 
> s1 <- " The quick brown fox jumps over the lazy dog" 
> s2 <- "A quick brown dog outpaces a quick fox" 
> 
> VS <- VectorSource(c(s1,s2)) 
> corp <- Corpus(VS) 
> dtm <- DocumentTermMatrix(corp) 
> d <- dist(t(dtm), method = 'euclidean') 
> d 



     brown  dog  fox jumps  lazy outpaces  over quick 
dog  0.000000                
fox  0.000000 0.000000              
jumps 1.000000 1.000000 1.000000            
lazy  1.000000 1.000000 1.000000 0.000000          
outpaces 1.000000 1.000000 1.000000 1.414214 1.414214       
over  1.000000 1.000000 1.000000 0.000000 0.000000 1.414214     
quick 1.000000 1.000000 1.000000 2.000000 2.000000 1.414214 2.000000   
the  1.414214 1.414214 1.414214 1.000000 1.000000 2.236068 1.000000 2.236068