23 lines
734 B
R
23 lines
734 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)
|
|
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)
|