11.6 Producing a tau statistic

weighting_scheme <- c(0,0,0,1,1,-1,0,0,1,0,0,1,1,0,0,0)

sum(triad.census(net59) * weighting_scheme)

## [1] 3845