错误长度零最短路径网络r

我在计算R中网络中的最短路径时遇到了一个问题。特别是，我用以下代码对一个双模网络进行了随机化：

n1 <- 441
n2 <- 210
ptie <- nrow(data_network)/(n1*n2)
random_data <- rg_tm(ni=n1, np=n2,ties=ptie, seed = 1000)
random_network = network(random_data,matrix.type="edgelist",directed = TRUE)

distance_tm(random_network, projection.method="sum")

我有以下错误：

Error in if (ncol(net) == 3) { : the argument has lenght zero

有人知道为什么吗？以下实际双模网络也会发生同样的情况：

structure(list(owner = c("ABBA JEANS MINING Sprl", "ABBA JEANS MINING Sprl", "ACACIA Sprl", "ACACIA Sprl", "ACACIA Sprl", "ACACIA Sprl", "AFRICAN ENGINEERING CORPORATE Sprl",  "AFRICAN ENGINEERING CORPORATE Sprl", "AFRICAN ENGINEERING CORPORATE Sprl",  "AFRICAN MINERALS (Barbados) Ltd Sprl"), armed_band = c("Mayi Mayi Militia (Bakata Katanga)",  "Militia (Elements)", "Batwa Ethnic Militia", "FDD", "Militia (Kamwina Nsapu)",  "RCD-Goma", "Anti-Balaka", "Kuluna Communal Militia", "Militia (Kamwina Nsapu)",  "Mayi Mayi Militia (Bakata Katanga)"), freq = c(1, 1, 1, 1, 4,  1, 1, 1, 1, 1)), row.names = c(NA, -10L), class = c("tbl_df",  "tbl", "data.frame"))

当我尝试计算不同的东西时，也会出现相同的错误，例如：

clustering_tm(random_network)

非常感谢您的关注