====== Noordin Mohammad Top terrorists ======
**Data:** {{notes:zip:noordin.zip}} - ZIP with original Excel data, the codebook and the Pajek project file
===== URLs =====
- [[http://www.thearda.com/Archive/Files/Downloads/TERRNET_DL.asp|ARDA data]];
- [[http://www.thearda.com/archive/files/codebooks/origCB/Noordin%20Subset%20Codebook.pdf|ARDA CodeBook]];
- [[wp>Noordin_Mohammad_Top|Noordin Mohammad Top]];
- Analysis: [[http://deepgraph.readthedocs.io/en/latest/tutorials/terrorists.html|From Multilayer Networks to Deep Graphs]];
- Sean Everton: [[https://sites.google.com/site/sfeverton18/research|Disrupting Dark Networks]]
===== Noordin Top Terrorist Network Data =====
**URL**: http://www.thearda.com/Archive/Files/Downloads/TERRNET_DL.asp
Data Archive > International Surveys and Data > Single Nation Surveys > Summary
The Noordin Top Terrorist Network Data were drawn primarily from "Terrorism in Indonesia: Noordin's Networks," a publication of the International Crisis Group, and include relational data on 79 individuals discussed in that publication. The dataset includes information on these individuals' affiliations with terrorist/insurgent organizations, educational institutions, businesses, and religious institutions. It also outlines which individuals are classmates, kin, friends, and co-religionists, and it details which individuals provided logistical support or participated in training
events, terrorist operations, and meetings.
**Data File**\\
Cases: 79\\
Variables: 568\\
Weight Variable: None
**Data Collection**\\
Date Collected: 2011\\
Original Survey (Instrument)\\
Noordin Top Terrorist Network Codebook
**Collection Procedures**
These data were drawn primarily from "Terrorism in Indonesia: Noordin's Networks," a publication of the International Crisis Group, and include relational data on the 79 individuals listed in Appendix C of that publication. The data were initially coded by Naval Postgraduate School students as part of the course “Tracking and Disrupting Dark Networks” under the direction of Professor Sean Everton, Co-Director of the CORE Lab, and Professor Nancy Roberts. CORE Lab Research Assistant Daniel Cunningham reviewed and cleaned all coding made by students.
**Principal Investigators**\\
Nancy Roberts, Naval Postgraduate School\\
Sean Everton, Naval Postgraduate School
**Related Publications**
- Everton, Sean F. 2012. "Network Topography, Key Players and Terrorist Networks." Connections 31(1):12-19.
- Everton, Sean F. 2012. Disrupting Dark Networks. Cambridge and New York: Cambridge University Press.
- Roberts, Nancy, and Sean F. Everton. 2011. "Strategies for Combating Dark Networks." Journal of Social Structure 12(2). Retrieved from http://www.cmu.edu/joss/content/articles/volume12//RobertsEverton.pdf.
===== Conversion into Pajek format =====
Since the data are in Excel format we will use for their import the R package ''openxlsx'':
https://www.rdocumentation.org/packages/openxlsx/versions/4.0.17
https://www.rdocumentation.org/packages/openxlsx/versions/4.0.17/topics/read.xlsx
read.xlsx(xlsxFile, sheet = 1, startRow = 1, colNames = TRUE,
rowNames = FALSE, detectDates = FALSE, skipEmptyRows = TRUE,
skipEmptyCols = TRUE, rows = NULL, cols = NULL, check.names = FALSE,
namedRegion = NULL, na.strings = "NA", fillMergedCells = FALSE)
# setwd('C:/Users/batagelj/data/everton/terror/arda')
# data <- 'Noordin Top Terrorist Network Data.xlsx'
# install.packages("openxlsx")
> setwd('C:/Users/batagelj/data/everton/terror/subset')
> data <- 'Noordin Subset.xlsx'
> library(openxlsx)
> (S <- getSheetNames(data))
[1] "1 Organizations" "2a Education (Schools)" "2b Classmates"
[4] "3 Communications" "4 Kinship" "5 Training"
[7] "6 Business & Finance" "7 Operations" "8 Friendship"
[10] "9a Religious" "9b Soulmates" "10 Logistical Place"
[13] "11 Logistical Function" "12 Meetings" "13 Attributes"
The Excel file contains 15 sheets.
> D <- as.list(1:15)
> wb <- loadWorkbook(data)
> for(s in 1:15) D[[s]] <- read.xlsx(wb,sheet=s,rowNames=TRUE)
> for(s in 1:15) cat(formatC(s,digits=3),formatC(nrow(D[[s]]),digits=3),
+ formatC(ncol(D[[s]]),digits=3),S[s],'\n')
1 79 32 1 Organizations
2 79 25 2a Education (Schools)
3 79 79 2b Classmates
4 79 79 3 Communications
5 79 79 4 Kinship
6 79 16 5 Training
7 80 10 6 Business & Finance
8 79 14 7 Operations
9 79 79 8 Friendship
10 79 8 9a Religious
11 79 79 9b Soulmates
12 79 35 10 Logistical Place
13 79 4 11 Logistical Function
14 79 20 12 Meetings
15 79 8 13 Attributes
>
There is something wrong with the sheet 7 - it turns out that there is an additional row with a comment: ''The Novotel Hotel-Surabaya and the Mushroom Processing Co do not have any ties.'' We remove it from the corresponding data frame.
> D[[7]] <- D[[7]][-80,]
We wrote procedures for exporting different types of data to a Pajek project file:
> saveOneMode2Pajek <- function(F,rel){
+ n <- nrow(F); m <- ncol(F)
+ if(n != m) { cat('*** not one-mode'); return() }
+ cat('*network "',rel,'"\n*vertices ',n,'\n',sep='',file=paj)
+ for(v in 1:n) cat(v,' "',rownames(F)[v],'"\n',sep='',file=paj);
+ cat('*arcs\n',file=paj)
+ for(v in 1:n) for(u in 1:n) if(F[v,u] != 0)
+ cat(v,' ',u,' ',F[v,u],'\n',sep='',file=paj)
+ cat('\n',file=paj)
+ }
> saveTwoMode2Pajek <- function(F,rel){
+ n <- nrow(F); m <- ncol(F)
+ cat('*network "',rel,'"\n*vertices ',n+m,' ',n,'\n',sep='',file=paj)
+ for(v in 1:n) cat(v,' "',rownames(F)[v],'"\n',sep='',file=paj);
+ for(v in 1:m) cat(n+v,' "',colnames(F)[v],'"\n',sep='',file=paj);
+ cat('*arcs\n',file=paj)
+ for(v in 1:n) for(u in 1:m) if(F[v,u] != 0)
+ cat(v,' ',n+u,' ',F[v,u],'\n',sep='',file=paj)
+ cat('\n',file=paj)
+ }
> savePart2Pajek <- function(F,u){
+ n <- nrow(F); m <- ncol(F)
+ if(!(u %in% 1:m)) {cat('*** column out of range'); return()}
+ cat('*partition "',colnames(F)[u],'"\n*vertices ',n,'\n',sep='',file=paj)
+ for(v in 1:n) cat(F[v,u],'\n',sep='',file=paj)
+ cat('\n',file=paj)
+ }
> saveVector2Pajek <- function(F,u){
+ n <- nrow(F); m <- ncol(F)
+ if(!(u %in% 1:m)) {cat('*** column out of range'); return()}
+ cat('*vector "',colnames(F)[u],'"\n*vertices ',n,'\n',sep='',file=paj)
+ for(v in 1:n) cat(F[v,u],'\n',sep='',file=paj)
+ cat('\n',file=paj)
+ }
Now we can export the data to a Pajek project file:
> paj <- file("top.paj","w")
> cat('% Noordin Top Terrorist Network Data\n',file=paj)
> saveOneMode2Pajek(D[[3]],"Classmates")
> saveOneMode2Pajek(D[[4]],"Communications")
> saveOneMode2Pajek(D[[5]],"Kinship")
> saveOneMode2Pajek(D[[9]],"Friendship")
> saveOneMode2Pajek(D[[11]],"Soulmates")
> saveTwoMode2Pajek(D[[1]],"Organizations")
> saveTwoMode2Pajek(D[[2]],"Education")
> saveTwoMode2Pajek(D[[6]],"Training")
> saveTwoMode2Pajek(D[[7]],"Business and Finance")
> saveTwoMode2Pajek(D[[8]],"Operations")
> saveTwoMode2Pajek(D[[10]],"Religious")
> saveTwoMode2Pajek(D[[12]],"Logistical Place")
> saveTwoMode2Pajek(D[[13]],"Logistical Function")
> saveTwoMode2Pajek(D[[14]],"Meetings")
> for(a in 1:8) savePart2Pajek(D[[15]],a)
> close(paj)
We manually (using a text editor) combined all one-mode networks into a single one-mode multi-relational network. We also manually added comments with legends from the codebook.
**Notes:** It would useful to convert partitions about countries into two-mode networks.