# NOT RUN {
x=sample(c(1,0),1000,replace = TRUE) # random vector of 0s and 1s
xx=x; x[1]=1-x[1] # one modifies just one element. x and xx are very similar
x_rev=rev(x) # x and x_rev are not
y=sample(c(1,0),1000,replace = TRUE) # y is another random vector of 0s and 1s
M=cbind(x,xx,x_rev,y) # builds the matrix of states
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