snaパッケージでmrqapテストを実行するための隣接配列

Question

snaパッケージでmrqapテストを実行するために隣接配列を取得するにはどうすればよいですか？ このように、私は、属性を持つエッジリストに、加重複数のネットワーク（二無向と有向1）を有する：

source target terr type weight 
    1010 1007  1  3   1 
    1011 1303  1  2   1 
    1014 1048  1  4   2 
    1014 1138  1  4   3 

Iは、アレイ形式におけるノードの同じ数、このような何か（といくつかの行列を必要としかし）adyacency行列形式で：私が試した

type 2 
source target weight 
    1010 1007  0 
    1011 1303  1 
    1014 1048  0 
    1014 1138  0 
type 3 
source target weight 
    1010 1007  1 
    1011 1303  0 
    1014 1048  0 
    1014 1138  0 
type 4 
source target weight 
    1010 1007  0 
    1011 1303  0 
    1014 1048  2 
    1014 1138  3 

一つのスクリプト：

el=read.csv("S_EDGES.csv", header = TRUE, sep = ",") # edgelist 
Nodos=read.csv("S_NODES.csv", header = TRUE, sep = ",") 
el$type[el$type==2] <- 1 # un solo vínculo de infraestructura 

library(igraph) 
G=graph.data.frame(el, Nodos, directed=F) 

subv = (Nodos$id (Nodos$terr_name=="ART") # this fail and then also "neighverts" and "g3" 
SG = decompose.graph(G,mode="weak") # because different territories are in fact different networks 
neighverts = unique(unlist(sapply(SG,FUN=function(s){if(any(V(s)$name %in% subv)) V(s)$name else NULL}))) 
g3 = induced.subgraph(graph=G,vids=neighverts) 

# or: 
AM=get.adjacency(G, type=c("both"), attr=NULL, names=TRUE, sparse=FALSE) # doesn't distinguish the types of links in different matrices 

Answer 1

私は、これは古い問題であることを理解、しかし、ケースであなたは、STIあなたの質問で要求された分解を実行したいでしょう：

library(dplyr) 

# your example rows 
d <- read.table(header = TRUE, 
       text = "source target terr type weight 
    1010 1007  1  3   1 
    1011 1303  1  2   1 
    1014 1048  1  4   2 
    1014 1138  1  4   3") %>% 
    select(-terr) 

# the transformation 
lapply(unique(d$type), function(x) { 
    mutate(d, weight = ifelse(type == x, weight, 0)) %>% 
    select(-type) 
}) %>% 
    setNames(unique(d$type)) 

コードはあなたが尋ね返す：上そこから

$`3` 
    source target weight 
1 1010 1007  1 
2 1011 1303  0 
3 1014 1048  0 
4 1014 1138  0 

$`2` 
    source target weight 
1 1010 1007  0 
2 1011 1303  1 
3 1014 1048  0 
4 1014 1138  0 

$`4` 
    source target weight 
1 1010 1007  0 
2 1011 1303  0 
3 1014 1048  2 
4 1014 1138  3 

、あなたのように、リストの各要素を変換することができるはずです希望（グラフに変換し、エッジをモデル化するなど）。