25 lines
656 B
R
25 lines
656 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
|
|
library(readr)
|
|
|
|
################# Read in the previously generated networks #################
|
|
# If sourcing:
|
|
#setwd(getSrcDirectory()[1])
|
|
# If running:
|
|
setwd(dirname(rstudioapi::getActiveDocumentContext()$path))
|
|
source("./CG_Files/manual_import.R")
|
|
|
|
car <- import_networks(1)
|
|
hipaa <- import_networks(2)
|
|
pci <- import_networks(3)
|
|
|
|
car.deg <- degree(car)
|
|
hipaa.deg <- degree(hipaa)
|
|
pci.deg <- degree(pci)
|