x <- matrix(c(0,0,1,0,0,1,0,0,2,0,0,0,0,1,0,0,0,1,0,0,2,
0,0,0,0,1,1,0,0,0,0,0,1,0,0,1,0,0,1,0,0,0,
1,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
nrow=8,byrow=TRUE,)
colnames(x) <- c(1,2,3,4,5,6,8,9)
rownames(x) <- c(1,2,3,4,5,6,8,9)
dyadic <- dmatrix(x)
print(dyadic)
Run the code above in your browser using DataLab