我有一个包含792个协议的文本 Dataframe ，我已经对它们进行了预处理并将其转换为dfm。我正在尝试使用相似度评分，我决定同时使用jaccard和cosine相似度。
当我做余弦相似度的时候，只需要半分钟就能得到结果。但是在过去的两天里，每当我用jaccard做同样的事情时，我的电脑就开始嗡嗡作响，R终止了。我是不是漏掉了什么？jaccard函数不再起作用了吗？
我把代码放在下面。

library(quanteda)
library(tidyr)

# view the resulting cosine similarity matrix
s1 <- textstat_simil(trimmed_dfm, method = "cosine", margin = "documents")

#Convert the output into a into a dataframe (first needs to be converted to a matrix)
cosine_simil_df <- as.data.frame(as.matrix(s1))
#Create a column with the row names of the matrix
cosine_simil_df$PTA1 <- row.names(cosine_simil_df)
#Use pivot longer gather verb to reshape the data in Tidy format
cosine_simil_df_final <- pivot_longer(cosine_simil_df, cols = -PTA1, names_to = "PTA2", values_to = "similarity")
head(cosine_simil_df_final)

##### Let's try with the Jaccard similarity
s2<- textstat_simil(trimmed_dfm, method = "jaccard", margin = "documents")
#this line is when it all goes wrong

jaccard_simil_df<- as.data.frame(as.matrix(s2))

jaccard_simil_df$PTA1 <- row.names(jaccard_simil_df)