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()