Add Network Modeling Assignment 1 notes

Network Modeling Projects/Assignment1/exploration.R

@@ -0,0 +1,13 @@
+install.packages('tidyverse', dependency=T)
+library('tidyverse')
+library(network)
+library(sna)
+
+
+# loading the csv 
+wave1 <- as.matrix(read.table("Lintner/01_W1.csv",header=TRUE, sep=";", row.names = 1))
+
+edges1 <- gvectorize(wave1)
+p <- sum(edges1, na.rm = TRUE)
+p <- p / length(edges1)
+p