24 lines
649 B
R
24 lines
649 B
R
# Final Project for the University of Tulsa's CS-7863 Network Theory Course
|
|
# Compliance Graph Analysis
|
|
# Professor: Dr. McKinney, Spring 2022
|
|
# Noah L. Schrick - 1492657
|
|
|
|
library(igraph)
|
|
|
|
################## Read in the previously generated networks ##################
|
|
setwd(dirname(rstudioapi::getActiveDocumentContext()$path))
|
|
source("./CG_Files/manual_import.R")
|
|
|
|
car <- import_networks(1)
|
|
hipaa <- import_networks(2)
|
|
pci <- import_networks(3)
|
|
|
|
################################ Centralities ################################
|
|
source("centralities.R")
|
|
|
|
#### Katz
|
|
car.katz <- katz.cent(car)
|
|
hipaa.katz <- katz.cent(hipaa)
|
|
pci.katz <- katz.cent(pci)
|
|
|