如何解决以 R 为基数的随机有向加权图
对于我们只需要使用矩阵和基数 R(允许 tidyverse)的项目,我需要为有向图定义随机加权弧,允许负权重。但是,由于我必须应用 Bellman-Ford 算法,因此我更愿意防止负加权循环。 有没有办法做到这一点,而不使用 igraph 包等? 到目前为止,我的方法无法防止负循环,因为我不知道如何防止具有负权重的双向节点:
nodes=1:5
set.seed(999)
edges<- data.frame(U_edge=sample(1:5,100,replace = T),V_edge= sample(1:5,weight_edge=sample(-10:20,replace=T))
# unique edges and no loops
edges2= edges %>% mutate(self=ifelse(V_edge==U_edge,1,0)) %>% filter(self==0) %>% select(-self) %>% distinct(U_edge,V_edge,.keep_all = TRUE)
edges_=edges2[sample(1:nrow(edges2),10,FALSE),]
有什么想法吗?
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。