data-raw/white.R

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

#### Corner Boys (1943) ####

#### The Nortons Gang ####

thenortons <- matrix(c(0,1,1,1,1,1,0,0,0,0,0,0,0,
                       0,0,1,1,1,0,0,0,0,0,0,0,0,
                       0,1,0,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,1,0,1,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,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,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,0,0,0,0,0,0,0,
                       0,0,0,0,0,0,0,0,0,0,0,0,0),
                     byrow=TRUE, ncol=13)

labelnortons <- c("Doc", "Mike", "Danny", "Long John", "Nutsy", "Angelo",
                  "Frank", "Fred", "Carl", "Joe", "Lou", "Tommy", "Alec")

colnames(thenortons) <- labelnortons
rownames(thenortons) <- labelnortons

statusnortons <- c("1", "2", "2", "3", "4", "4",
                   "5", "5", "6", "6", "6", "7", "7")

#### The Angelo's Boys ####

angelo <- matrix(c(0,1,1,0,0,0,0,0,
                   0,0,0,1,1,0,0,0,
                   0,0,0,0,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,1,
                   0,0,0,0,0,0,0,0,
                   0,0,0,0,0,0,0,0),
                   byrow=TRUE, ncol=8)

labelangelo <- c("Angelo", "Nutsy", "Phil", "Carl",
                 "Frank", "Paul", "Tommy", "Joe")

colnames(angelo) <- labelangelo
rownames(angelo) <- labelangelo

statusangelo <- c("1", "2", "3", "4",
                  "4", "4", "5", "5")

freqangelo <- c("1", "1", "1", "2",
                "1", "1", "2", "1")

#### Create the database corner_boys ####

corner_boys <- list(thenortons=thenortons,
                    statusnortons=statusnortons,
                    angelo=angelo,
                    statusangelo=statusangelo,
                    freqangelo=freqangelo)

usethis::use_data(corner_boys, overwrite = TRUE)

#### Informal organization in Corneville S&A Club 1939 ####

informalorg39 <- matrix(c(0,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,0,0,
                          0,0,0,0,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,0,0,1,0,0,0,1,0,0,0,0,0,1,1,0,0,1,0,1,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,1,1,0,0,0,0,1,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,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,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,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,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,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,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,
                          0,0,0,0,0,0,0,0,0,0,0,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,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,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,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,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,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,
                          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,
                          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,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,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,0,0,0,0,0,0,0,0,0,1,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,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,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,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,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,0,0,0,0,0,0,0,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,0,0,0,0,0,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,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,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,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,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,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,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,0,0,0,0,0,0,0,0,0,0,0),
                        byrow=TRUE, ncol=35)

labelinformalorg39 <- c("tony","dom","carlo","mike","mario","jimmy","salvy",
                        "charlie","mac","sturby","spug","corneyboy1","gus",
                        "guy","joe","cornerboy2","cornerboy3","chris","lefty",
                        "dick","cornerboy4","cornerboy5","cornerboy6","rossi",
                        "chichi","cornerboy7","cornerboy8","cornerboy9",
                        "cornerboy10","beppo","marco","babe","cornerboy11",
                        "cornerboy12","dodo")

colnames(informalorg39) <- labelinformalorg39
rownames(informalorg39) <- labelinformalorg39

status_informalorg39 <- c("1","2","2","2","3","3","3","3","4","4","4","4","4",
                          "4","4","5","5","5","5","5","5","5","6","6",
                          "6","6","7","7","8","8","8","8","8","8","8")

freq_informalorg39 <- c("2","2","1","1","1","2","1","2","2","1","1","1","1",
                        "1","1","1","1","1","1","1","1","1","1","1","1","1","1",
                        "1","1","1","1","1","1","1","1")

mem_informalorg39 <- c("2","2","1","1","1","2","1",
                        "1","1","1","1","1","1","1","2","1","1","1","2",
                        "1","1","1","1","1","2","1","1","1",
                        "1","1","1","1","1","1","1")

#### Informal organization in Corneville S&A Club 1940 ####

informalorg40 <- matrix(c(0,1,1,0,0,0,0,0,1,0,
                          0,0,1,1,1,1,1,0,0,0,
                          0,0,0,1,0,0,0,1,0,0,
                          0,0,0,0,0,0,0,1,0,0,
                          0,0,0,0,0,0,0,0,0,1,
                          0,0,0,0,0,0,0,0,0,1,
                          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,0,
                          0,0,0,0,0,0,0,0,0,0),byrow=TRUE, ncol=10)

labelinformalorg40 <- c("tony","carlo","dom","salvy","gus","joe","guy",
                        "otherscornerboy1","othersracketorg","otherscornerboy2")

colnames(informalorg40) <- labelinformalorg40
rownames(informalorg40) <- labelinformalorg40

status_informalorg40 <- c("1","2","3","4","4","4","5","6","6","6")

freq_informalorg40 <- c("2","1","1","1","1","1","1","1","2","1")

mem_informalorg40 <- c("2","1","2","1","1","2","1","1","2","1")

#### Create the database inforg_corneville ####

informalorg_corneville <- list(informalorg39=informalorg39,
                          status_informalorg39=status_informalorg39,
                          freq_informalorg39=freq_informalorg39,
                          mem_informalorg39=mem_informalorg39,
                          informalorg40=informalorg40,
                          status_informalorg40=status_informalorg40,
                          freq_informalorg40=freq_informalorg40,
                          mem_informalorg40=mem_informalorg40)

usethis::use_data(informalorg_corneville, overwrite = TRUE)