14 lines
290 B
R
14 lines
290 B
R
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
|