David Krackhardt managers

See the short description at Ucidata/Vlado.

> source("https://raw.githubusercontent.com/bavla/ibm3m/master/ibm3m.R")
> kr <- readDL3m('./Krackhardt/KRACKAD.dat')
> labs <- paste('A',1:21,sep='')
> # dimnames(kr) <- list(labs,labs,labs)
> info <- list(network="KRACKAD",
+   title="Who does X go to for advice and help with work?",
+   by="David Krackhardt",
+   ref="Krackhardt D.(1987). Cognitive social structures. Social Networks, 9, 104-134.",
+   href="http://vlado.fmf.uni-lj.si/pub/networks/data/ucinet/ucidata.htm#krackoff",
+   creator="V. Batagelj",
+   date=date() )
> ways=list(advice="advice",friend="friendship",report="Reports_to")
> nodes=list(advice=data.frame(ID=labs),friend=data.frame(ID=labs),
+   report=data.frame(ID=labs))
> A <- read.table("./Krackhardt/attr.txt",header=TRUE)
> nodes$advice$age <- A$age
> nodes$advice$tenure <- A$tenure
> nodes$advice$level <- A$level
> nodes$advice$dept <- A$dept
> MN <- list(format="MWnets",info=info,ways=ways,nodes=nodes,links=kr,data=list())
> write(toJSON(MN),"./Krackhardt/KRACKADarr.json")
> str(MN)
List of 6
 $ format: chr "MWnets"
 $ info  :List of 7
  ..$ network: chr "KRACKAD"
  ..$ title  : chr "Who does X go to for advice and help with work?"
  ..$ by     : chr "David Krackhardt"
  ..$ ref    : chr "Krackhardt D.(1987). Cognitive social structures. Social Networks, 9, 104-134."
  ..$ href   : chr "http://vlado.fmf.uni-lj.si/pub/networks/data/ucinet/ucidata.htm#krackoff"
  ..$ creator: chr "V. Batagelj"
  ..$ date   : chr "Sat Nov 26 16:13:45 2022"
 $ ways  :List of 3
  ..$ advice: chr "advice"
  ..$ friend: chr "friendship"
  ..$ report: chr "Reports_to"
 $ nodes :List of 3
  ..$ advice:'data.frame':      21 obs. of  5 variables:
  .. ..$ ID    : chr [1:21] "A1" "A2" "A3" "A4" ...
  .. ..$ age   : int [1:21] 33 42 40 33 32 59 55 34 62 37 ...
  .. ..$ tenure: num [1:21] 9.33 19.58 12.75 7.5 3.33 ...
  .. ..$ level : int [1:21] 3 2 3 3 3 3 1 3 3 3 ...
  .. ..$ dept  : int [1:21] 4 4 2 4 2 1 0 1 2 3 ...
  ..$ friend:'data.frame':      21 obs. of  1 variable:
  .. ..$ ID: chr [1:21] "A1" "A2" "A3" "A4" ...
  ..$ report:'data.frame':      21 obs. of  1 variable:
  .. ..$ ID: chr [1:21] "A1" "A2" "A3" "A4" ...
 $ links : num [1:21, 1:21, 1:21] 0 1 1 1 1 1 1 1 1 0 ...
 $ data  : list()

Converting array into compact representation:

> n <- length(labs); m <- sum(kr)
> links <- matrix(nrow=m,ncol=4); s <- 0
> colnames(links) <- c("advice","friend","report","w")
> for(i in 1:n) for(j in 1:n) for(k in 1:n) 
+   if(kr[i,j,k]!=0){s <- s+1; links[s,] <- c(i,j,k,kr[i,j,k])}
> MN$links <- as.data.frame(links) 
> write(toJSON(MN),"./Krackhardt/KRACKAD.json")
> str(MN)
List of 6
 $ format: chr "MWnets"
 $ info  :List of 7
  ..$ network: chr "KRACKAD"
  ..$ title  : chr "Who does X go to for advice and help with work?"
  ..$ by     : chr "David Krackhardt"
  ..$ ref    : chr "Krackhardt D.(1987). Cognitive social structures. Social Networks, 9, 104-134."
  ..$ href   : chr "http://vlado.fmf.uni-lj.si/pub/networks/data/ucinet/ucidata.htm#krackoff"
  ..$ creator: chr "V. Batagelj"
  ..$ date   : chr "Sat Nov 26 16:13:45 2022"
 $ ways  :List of 3
  ..$ advice: chr "advice"
  ..$ friend: chr "friendship"
  ..$ report: chr "Reports_to"
 $ nodes :List of 3
  ..$ advice:'data.frame':      21 obs. of  5 variables:
  .. ..$ ID    : chr [1:21] "A1" "A2" "A3" "A4" ...
  .. ..$ age   : int [1:21] 33 42 40 33 32 59 55 34 62 37 ...
  .. ..$ tenure: num [1:21] 9.33 19.58 12.75 7.5 3.33 ...
  .. ..$ level : int [1:21] 3 2 3 3 3 3 1 3 3 3 ...
  .. ..$ dept  : int [1:21] 4 4 2 4 2 1 0 1 2 3 ...
  ..$ friend:'data.frame':      21 obs. of  1 variable:
  .. ..$ ID: chr [1:21] "A1" "A2" "A3" "A4" ...
  ..$ report:'data.frame':      21 obs. of  1 variable:
  .. ..$ ID: chr [1:21] "A1" "A2" "A3" "A4" ...
 $ links :'data.frame': 2735 obs. of  4 variables:
  ..$ advice: num [1:2735] 1 1 1 1 1 1 1 1 1 1 ...
  ..$ friend: num [1:2735] 2 2 2 2 2 2 2 2 2 2 ...
  ..$ report: num [1:2735] 1 2 3 4 5 6 7 8 9 10 ...
  ..$ w     : num [1:2735] 1 1 1 1 1 1 1 1 1 1 ...
 $ data  : list()

> kr <- readDL3m('./Krackhardt/KRACKFR.dat')
> labs <- paste('A',1:21,sep='')
> info <- list(network="KRACKFR",
+   title="Who is a friend of X?",
+   by="David Krackhardt",
+   ref="Krackhardt D.(1987). Cognitive social structures. Social Networks, 9, 104-134.",
+   href="http://vlado.fmf.uni-lj.si/pub/networks/data/ucinet/ucidata.htm#krackoff",
+   creator="V. Batagelj",
+   date=date() )
> ways=list(advice="advice",friend="friendship",report="Reports_to")
> nodes=list(advice=data.frame(ID=labs),friend=data.frame(ID=labs),
+   report=data.frame(ID=labs))
> A <- read.table("./Krackhardt/attr.txt",header=TRUE)
> nodes$advice$age <- A$age
> nodes$advice$tenure <- A$tenure
> nodes$advice$level <- A$level
> nodes$advice$dept <- A$dept
> data=list()
> MN <- list(format="MWnets",info=info,ways=ways,nodes=nodes,links=kr,data=data)
> write(toJSON(MN),"./Krackhardt/KRACKFRarr.json")
> n <- length(labs); m <- sum(kr)
> links <- matrix(nrow=m,ncol=4); s <- 0
> colnames(links) <- c("advice","friend","report","w")
> for(i in 1:n) for(j in 1:n) for(k in 1:n) 
+   if(kr[i,j,k]!=0){s <- s+1; links[s,] <- c(i,j,k,kr[i,j,k])}
> MN$links <- as.data.frame(links) 
> write(toJSON(MN),"./Krackhardt/KRACKFR.json") 
> str(MN)
List of 6
 $ format: chr "MWnets"
 $ info  :List of 7
  ..$ network: chr "KRACKFR"
  ..$ title  : chr "Who is a friend of X?"
  ..$ by     : chr "David Krackhardt"
  ..$ ref    : chr "Krackhardt D.(1987). Cognitive social structures. Social Networks, 9, 104-134."
  ..$ href   : chr "http://vlado.fmf.uni-lj.si/pub/networks/data/ucinet/ucidata.htm#krackoff"
  ..$ creator: chr "V. Batagelj"
  ..$ date   : chr "Sat Nov 26 18:11:57 2022"
 $ ways  :List of 3
  ..$ advice: chr "advice"
  ..$ friend: chr "friendship"
  ..$ report: chr "Reports_to"
 $ nodes :List of 3
  ..$ advice:'data.frame':      21 obs. of  5 variables:
  .. ..$ ID    : chr [1:21] "A1" "A2" "A3" "A4" ...
  .. ..$ age   : int [1:21] 33 42 40 33 32 59 55 34 62 37 ...
  .. ..$ tenure: num [1:21] 9.33 19.58 12.75 7.5 3.33 ...
  .. ..$ level : int [1:21] 3 2 3 3 3 3 1 3 3 3 ...
  .. ..$ dept  : int [1:21] 4 4 2 4 2 1 0 1 2 3 ...
  ..$ friend:'data.frame':      21 obs. of  1 variable:
  .. ..$ ID: chr [1:21] "A1" "A2" "A3" "A4" ...
  ..$ report:'data.frame':      21 obs. of  1 variable:
  .. ..$ ID: chr [1:21] "A1" "A2" "A3" "A4" ...
 $ links :'data.frame': 790 obs. of  4 variables:
  ..$ advice: num [1:790] 1 1 1 1 1 1 1 1 1 1 ...
  ..$ friend: num [1:790] 2 2 2 2 2 2 2 2 2 2 ...
  ..$ report: num [1:790] 1 2 4 5 6 7 11 16 19 21 ...
  ..$ w     : num [1:790] 1 1 1 1 1 1 1 1 1 1 ...
 $ data  : list()

• Krackhardt D.(1987). Cognitive social structures. Social Networks, 9, 104-134. PDF
• Batagelj, V., Ferligoj, A., Doreian, P.: Indirect Blockmodeling of 3-Way Networks. In: Selected Contributions in Data Analysis and Classification, Springer, 2007, 151-159. PDF
• http://www.casos.cs.cmu.edu/computational_tools/datasets/external/krackad/index2.html
• https://rdrr.io/github/zalmquist/networkdata/man/krack.html
• https://github.com/wjj0301/Multiplex-Networks

Keith O. Hunter: Krackhardt Data Over Time: The Evolution and Emergent Properties of Network Perceptions. Posted: 16 Sep 2020, Last revised: 14 Jul 2022. Page

Six consecutive weeks of Krackhardt data (aka CSS) for the group, both Advice and Friend relations.