data-raw/roethlisberger_dickson.R

In anespinosa/classicnets: classicnets: Classic Data of Social Networks

## code to prepare `DATASET` dataset goes here

# FIGURE 39
games <- matrix(c(0,1,1,1,1,0,0,0,0,1,0,1,0,0,
                  1,0,1,1,0,0,0,0,0,1,0,1,0,0,
                  1,1,0,1,1,0,0,0,0,1,0,1,0,0,
                  1,1,1,0,1,0,0,0,0,1,0,1,0,0,
                  1,0,1,1,0,0,1,0,0,0,0,1,0,0,
                  0,0,0,0,0,0,1,1,1,0,0,0,0,0,
                  0,0,0,0,1,1,0,1,1,0,0,0,0,1,
                  0,0,0,0,0,1,1,0,1,0,0,0,0,1,
                  0,0,0,0,0,1,1,1,0,0,0,0,0,1,
                  1,1,1,1,0,0,0,0,0,0,0,0,0,0,
                  0,0,0,0,0,0,0,0,0,0,0,0,0,0,
                  1,1,1,1,1,0,0,0,0,0,0,0,0,0,
                  0,0,0,0,0,0,0,0,0,0,0,0,0,0,
                  0,0,0,0,0,0,1,1,1,0,0,0,0,0),
                byrow=TRUE, ncol=14)
label <- c("W1","W2","W3","W4","W5","W6","W7","W8","W9",
           "I1","I3","S1","S2","S4")
colnames(games) <- label
rownames(games) <- label

# FIGURE 40
controversies <- matrix(c(0,0,0,0,0,0,0,0,0,0,0,0,0,0,
                          0,0,0,0,0,0,0,0,0,0,0,0,0,0,
                          0,0,0,0,0,0,0,0,0,0,0,0,0,0,
                          0,0,0,0,1,1,1,0,1,0,0,0,0,0,
                          0,0,0,1,0,1,0,0,0,0,0,1,0,0,
                          0,0,0,1,1,0,1,1,1,0,0,1,0,1,
                          0,0,0,1,0,1,0,1,1,0,0,0,0,1,
                          0,0,0,0,0,1,1,0,1,0,0,1,0,1,
                          0,0,0,1,0,1,1,1,0,0,0,1,0,0,
                          0,0,0,0,0,0,0,0,0,0,0,0,0,0,
                          0,0,0,0,0,0,0,0,0,0,0,0,0,0,
                          0,0,0,0,1,1,0,1,1,0,0,0,0,1,
                          0,0,0,0,0,0,0,0,0,0,0,0,0,0,
                          0,0,0,0,0,1,1,1,0,0,0,1,0,0),
                        byrow=TRUE, ncol=14)
label <- c("W1","W2","W3","W4","W5","W6","W7","W8","W9",
           "I1","I3","S1","S2","S4")
colnames(controversies) <- label
rownames(controversies) <- label

# FIGURE 41
job <- matrix(c(0,0,0,0,0,0,0,0,0,0,2,0,
                0,0,0,0,0,0,0,0,0,12,0,0,
                0,0,0,0,0,0,0,0,0,0,0,0,
                0,0,0,0,0,0,0,0,0,0,0,0,
                0,0,0,0,0,0,0,0,0,0,7,0,
                0,0,0,0,0,0,0,0,0,0,2,0,
                0,0,0,0,0,0,0,0,0,0,0,2,
                0,0,0,0,0,0,0,0,0,0,0,20,
                0,0,0,0,0,0,0,0,0,0,0,0,
                0,0,0,0,0,0,0,0,0,0,0,0,
                0,0,0,0,0,0,0,0,0,0,0,0,
                0,0,0,0,0,0,0,0,0,0,0,0),
              byrow=TRUE, ncol=12)
label <- c("W1","W2","W3","W4","W5","W6","W7","W8","W9",
           "S1","S2","S4")
colnames(job) <- label
rownames(job) <- label

# FIGURE 42
help <- matrix(c(0,0,1,0,0,0,0,0,0,1,0,0,
                 0,0,1,1,0,0,0,0,0,1,0,0,
                 0,1,0,0,0,0,0,0,0,0,0,0,
                 1,0,1,0,0,1,0,0,0,0,0,0,
                 0,0,1,0,0,0,0,0,0,0,0,0,
                 0,0,1,0,0,0,1,1,1,0,0,0,
                 0,0,0,0,0,0,0,0,0,0,0,1,
                 0,0,0,0,0,1,1,0,1,0,0,0,
                 0,0,0,0,0,0,0,0,0,0,0,1,
                 0,0,0,0,0,0,1,0,0,0,0,0,
                 0,0,0,0,0,1,0,0,0,0,0,0,
                 0,0,0,1,0,0,0,1,0,0,0,0),
               byrow=TRUE, ncol=12)
label <- c("W1","W2","W3","W4","W5","W6","W7","W8","W9",
           "S1","S2","S4")
colnames(help) <- label
rownames(help) <- label

# FIGURE 43
friendship <- matrix(c(0,0,1,1,0,0,0,0,0,0,0,1,0,0,
                       0,0,0,0,0,0,0,0,0,0,0,0,0,0,
                       1,0,0,0,0,0,0,0,0,1,0,1,0,0,
                       1,0,1,0,0,0,0,0,0,0,0,1,0,0,
                       0,0,0,0,0,0,0,0,0,0,0,0,0,0,
                       0,0,0,0,0,0,0,0,0,0,0,0,0,0,
                       1,0,0,0,0,0,0,1,1,0,0,0,0,0,
                       0,0,0,0,0,0,1,0,1,0,0,0,0,1,
                       0,0,0,0,0,0,1,1,0,0,0,0,0,1,
                       0,0,1,0,0,0,0,0,0,0,0,0,0,0,
                       0,0,0,0,0,0,0,0,0,0,0,0,0,0,
                       1,0,1,1,0,0,1,0,0,0,0,0,0,0,
                       0,0,0,0,0,0,0,0,0,0,0,0,0,0,
                       0,0,0,0,0,0,0,1,1,0,0,0,0,0),
                     byrow=TRUE, ncol=14)
label <- c("W1","W2","W3","W4","W5","W6","W7","W8","W9",
           "I1","I3","S1","S2","S4")
colnames(friendship) <- label
rownames(friendship) <- label

# FIGURE 44
antagonism <- matrix(c(0,0,0,0,0,0,0,0,0,0,0,0,0,0,
                       0,0,0,0,0,0,1,1,1,1,0,0,0,0,
                       0,0,0,0,0,0,0,0,0,0,0,0,0,0,
                       0,0,0,0,1,0,0,0,0,0,0,0,0,0,
                       0,0,0,1,0,1,1,1,1,0,1,0,1,0,
                       0,0,0,0,1,0,1,0,0,0,1,0,0,0,
                       0,1,0,0,1,1,0,0,0,0,1,0,0,0,
                       0,1,0,0,1,0,0,0,0,0,1,0,0,0,
                       0,1,0,0,1,0,0,0,0,0,1,0,0,0,
                       0,1,0,0,0,0,0,0,0,0,1,0,0,0,
                       0,0,0,0,1,1,1,1,1,1,0,0,0,0,
                       0,0,0,0,1,0,0,0,0,0,0,0,0,0,
                       0,0,0,0,1,0,0,0,0,0,0,0,0,0,
                       0,0,0,0,0,0,0,0,0,0,1,0,0,0),
                     byrow=TRUE, ncol=14)
label <- c("W1","W2","W3","W4","W5","W6","W7","W8","W9",
           "I1","I3","S1","S2","S4")
colnames(antagonism) <- label
rownames(antagonism) <- label

# FIGURE 45
clique <- c("A","NC","A","A","O","NC","B","B","B","A","O","A","O","B")

bank_room <- list(games=games, controversies=controversies,
                  job=job, help=help, friendship=friendship,
                  antagonism=antagonism, clique=clique)

usethis::use_data(bank_room, overwrite = TRUE)