# NOT RUN {
A = matrix(c(0,1,0,1,0,
1,0,0,1,1,
0,0,0,1,1,
1,1,1,0,0,
0,1,1,0,0), nrow=5)
S = social.cor.matrix(A)
x = rnorm(nrow(A))
s = social.signal(x, S)
# }
Run the code above in your browser using DataLab