Manual Importing of networks

This commit is contained in:
Noah L. Schrick 2022-04-29 23:43:55 -05:00
parent b1017392dc
commit 1dc4055959
5 changed files with 26 additions and 7 deletions

File diff suppressed because one or more lines are too long

File diff suppressed because one or more lines are too long

View File

@ -0,0 +1 @@
0-+1,0-+2,0-+3,1-+4,1-+5,1-+6,1-+7,2-+5,2-+8,2-+9,3-+6,3-+10,3-+9,4-+11,4-+12,4-+13,4-+14,5-+12,5-+12,5-+15,5-+16,6-+13,6-+13,6-+15,6-+17,7-+14,7-+16,7-+17,7-+18,8-+12,8-+19,8-+20,9-+15,9-+20,9-+20,10-+13,10-+21,10-+20,11-+22,11-+23,11-+24,11-+25,12-+23,12-+23,12-+26,12-+27,13-+24,13-+24,13-+26,13-+28,14-+25,14-+27,14-+28,14-+29,15-+26,15-+26,15-+26,15-+30,16-+27,16-+27,16-+30,16-+31,17-+28,17-+28,17-+30,17-+32,18-+29,18-+29,18-+31,18-+32,19-+23,19-+33,19-+34,20-+26,20-+34,20-+34,21-+24,21-+35,21-+34,22-+4,22-+36,22-+37,22-+38,23-+36,23-+36,23-+39,23-+40,24-+37,24-+37,24-+39,24-+41,25-+38,25-+40,25-+41,25-+42,26-+39,26-+39,26-+39,26-+43,27-+40,27-+40,27-+43,27-+44,28-+41,28-+41,28-+43,28-+45,29-+42,29-+42,29-+44,29-+45,30-+43,30-+43,30-+43,30-+46,31-+44,31-+44,31-+44,31-+46,32-+45,32-+45,32-+45,32-+46,33-+36,33-+8,33-+47,34-+39,34-+47,34-+47,35-+37,35-+10,35-+47,36-+12,36-+12,36-+48,36-+49,37-+13,37-+13,37-+48,37-+50,38-+14,38-+49,38-+50,38-+51,39-+48,39-+48,39-+48,39-+52,40-+49,40-+49,40-+52,40-+53,41-+50,41-+50,41-+52,41-+54,42-+51,42-+51,42-+53,42-+54,43-+52,43-+52,43-+52,43-+55,44-+53,44-+53,44-+53,44-+55,45-+54,45-+54,45-+54,45-+55,46-+55,46-+55,46-+55,46-+55,47-+48,47-+20,47-+20,48-+26,48-+26,48-+26,48-+56,49-+27,49-+27,49-+56,49-+57,50-+28,50-+28,50-+56,50-+58,51-+29,51-+29,51-+57,51-+58,52-+56,52-+56,52-+56,52-+59,53-+57,53-+57,53-+57,53-+59,54-+58,54-+58,54-+58,54-+59,55-+59,55-+59,55-+59,55-+59,56-+43,56-+43,56-+43,56-+60,57-+44,57-+44,57-+44,57-+60,58-+45,58-+45,58-+45,58-+60,59-+60,59-+60,59-+60,59-+60,60-+55,60-+55,60-+55,60-+55

14
CG_Files/manual_import.R Normal file

File diff suppressed because one or more lines are too long

View File

@ -6,17 +6,19 @@
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))
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
source("./CG_Files/manual_import.R")
plot(car.adj)
plot(hipaa.adj)
plot(PCI.adj)
car <- import_networks(1)
hipaa <- import_networks(2)
pci <- import_networks(3)
car.deg <- degree(car)
hipaa.deg <- degree(hipaa)
pci.deg <- degree(pci)