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