piitesting/scrap_experimentation.R

triad_table
triadsPerNode <- c(1:length(unique(triad_table$focalNode)))
numTriadPerNode <- lapply(triadsPerNode, function(n){nrow(triad_table[triad_table$focalNode == n, ])})
numTriadPerNode <- as.matrix(numTriadPerNode)
jfaganUK/pii documentation built on May 19, 2019, 7:16 a.m.