R语言 threshold报错求解“只能替换矩阵的对角”

问题遇到的现象和发生背景

用R语言来做复杂网络threshold算法构建模型，只有一个threshold()函数，但是一直报错“Error in diag<-(*tmp*, value = 1) : 只能替换矩阵的对角” 请教大家这个报错是什么意思怎么解决
图里是package说明里对函数的解释

用代码块功能插入代码，请勿粘贴截图

a<-threshold(testdata,0.05,normal="FALSE",na.data ="pairwise")
“testdata”我用的数据是对称矩阵 对角线的数为0

运行结果及报错内容

Error in diag<-(*tmp*, value = 1) : 只能替换矩阵的对角
请教大家这个报错是什么意思怎么解决

我想要达到的结果

最终想求的是网络的degree clusteringcoefficient ASPL