# add degree of separation in two matrices
p1 <- abs(matrix(1:50,nr=50,nc=50) +
runif(n = 2500, min = -1, max = 1))
p2 <- abs(matrix(1:50,nr=50,nc=50) +
rnorm(n = 2500, mean = 1, sd = 1))
# High overlap/similarity
( I <- overlap(p1,p2) )
Run the code above in your browser using DataLab