# 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")