# NOT RUN {
## Load sample data
sample <- rbind(
c(1,2,2),
c(1,3,2),
c(2,1,4),
c(2,3,4),
c(2,4,1),
c(2,5,2),
c(3,1,2),
c(3,2,4),
c(5,2,2),
c(5,6,1))
## Run the programme
symmetrise_w(sample, method="MAX")
# }
Run the code above in your browser using DataLab