38 lines
919 B
R
38 lines
919 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(centiserve)
|
|
|
|
################## 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)
|
|
|
|
### Page Rank
|
|
car.pr <- page.rank(car)
|
|
hipaa.pr <- page.rank(hipaa)
|
|
pci.pr <- page.rank(pci)
|
|
|
|
### K-path
|
|
car.kpe <- geokpath(car, V(car), "out")
|
|
|
|
|
|
############# Other- Tmp work
|
|
min_cut(car,"0", "2490")
|
|
min_cut(hipaa,"0","2320")
|
|
min_cut(pci,"0","60")
|