# NOT RUN {
x=sample(c(1,0),1000,replace = TRUE)
xx=x; x[1]=1-x[1] # one modifies just one element
x_rev=rev(x)
y=sample(c(1,0),1000,replace = TRUE)
M=cbind(x,xx,x_rev,y)
mylinks=SVN_links(M)
print(mylinks)
# one can compute clusters as well
myclusters=SVN_clusters(mylinks)
# }
Run the code above in your browser using DataLab