Robins: organizational structure in a bank branch

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

Analysis