# 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)
library(sna)
library(Rgraphviz) # Reading graphviz' "dot" files


################# Read in the previously generated networks #################
# If sourcing:
#setwd(getSrcDirectory()[1])
# If running:
setwd(dirname(rstudioapi::getActiveDocumentContext()$path))
car.adj <- agread("./CG_Files/Network_1/DOTFILE.dot", layoutType="dot",layout=FALSE) # Large: ~1.9G
hipaa.adj <- agread("./CG_Files/Network_2/DOTFILE.dot") # Medium: ~0.9G
PCI.adj <- agread("./CG_Files/Network_3/DOTFILE.dot") # Small: ~3M

plot(car.adj)
plot(hipaa.adj)
plot(PCI.adj)