Data from the paper Pattison, Wasserman, Robins, Kanfer: Statistical Evaluation of Algebraic Constraints for Social Networks. J of Math Psychology, 44(2000)4, 536-568.
I copied the matrices from the paper, put them into Pajek format, and saved them as a list of arcs to bankArc.csv
.
> wdir <- "C:/Users/vlado/docs/papers/2022/ifcs2022/genova/data/Bank" > setwd(wdir) > library(jsonlite) > V <- read.table("bankArc.csv") > names(V) <- c("P1","P2","R") > V$w <- rep(1,nrow(V)) > S <- c("BM","DM","A1","A2","A3","T1","T2","T3","T4","T5","T6") > P <- c("branch manager", "deputy manager", "service adviser 1", + "service adviser 2", "service adviser 3", "teller 1", "teller 2", + "teller 3", "teller 4", "teller 5", "teller 6" ) > R <- c("Advice seeking","Close friendship","Satisfying interaction","Confiding") > Q <- c("advice","friend","satisfy","confide") > info <- list(network="Robins bank", + title="Robins: organizational structure in a bank branch", + by="Garry Robins", + ref="Pattison, etal: Statistical Evaluation of Algebraic Constraints for Social Networks. J of Math Psych, 44(2000)4, 536-568", + href="https://www.sciencedirect.com/science/article/pii/S0022249699912610", + creator="V. Batagelj", + date=date() ) > ways=list(P1="first person",P2="second person",R="relation") > nodes=list(P1=data.frame(ID=S,long=P),P2=data.frame(ID=S),R=data.frame(ID=Q,long=R)) > MN <- list(format="MWnets",info=info,ways=ways,nodes=nodes,links=V,data=list()) > write(toJSON(MN),"RobinsBank.json") > str(MN) List of 6 $ format: chr "MWnets" $ info :List of 7 ..$ network: chr "Robins bank" ..$ title : chr "Robins: organizational structure in a bank branch" ..$ by : chr "Garry Robins" ..$ ref : chr "Pattison, Wasserman, Robins, Kanfer: Statistical Evaluation of Algebraic Constraints "| __truncated__ ..$ href : chr "https://www.sciencedirect.com/science/article/pii/S0022249699912610" ..$ creator: chr "V. Batagelj" ..$ date : chr "Sun Dec 11 05:51:10 2022" $ ways :List of 3 ..$ P1: chr "first person" ..$ P2: chr "second person" ..$ R : chr "relation" $ nodes :List of 3 ..$ P1:'data.frame': 11 obs. of 2 variables: .. ..$ ID : chr [1:11] "BM" "DM" "A1" "A2" ... .. ..$ long: chr [1:11] "branch manager" "deputy manager" "service adviser 1" "service adviser 2" ... ..$ P2:'data.frame': 11 obs. of 1 variable: .. ..$ ID: chr [1:11] "BM" "DM" "A1" "A2" ... ..$ R :'data.frame': 4 obs. of 2 variables: .. ..$ ID : chr [1:4] "advice" "friend" "satisfy" "confide" .. ..$ long: chr [1:4] "Advice seeking" "Close friendship" "Satisfying interaction" "Confiding" $ links :'data.frame': 128 obs. of 4 variables: ..$ P1: int [1:128] 1 1 1 2 3 4 6 6 6 7 ... ..$ P2: int [1:128] 2 3 4 1 2 1 3 4 5 1 ... ..$ R : int [1:128] 1 1 1 1 1 1 1 1 1 1 ... ..$ w : num [1:128] 1 1 1 1 1 1 1 1 1 1 ... $ data : list()