#r #networking #shortest-path
#r #сеть #кратчайший путь
Вопрос:
У меня проблема с вычислением кратчайших путей в сети в R. В частности, я произвел рандомизацию двухрежимной сети с помощью следующего кода:
library(tnet)
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"))