ex <- GenerateExample(dimA = 170, dimB = 140, filling = 0.75,
covariance = 0.4, symmetric = TRUE, numOrths = 90,
correlated = 1:90, distribution = "normal")
##-- edge weight correlation
image(cor(ex$a[1:140, 1:140], ex$b))
hist(diag(cor(ex$a[1:140, 1:140], ex$b))[1:90])
##-- edge weight distribution
hist(ex$a[ex$a != 0]);
hist(ex$b[ex$b != 0]);
Run the code above in your browser using DataLab