# NOT RUN {
set.seed(1337)
D <- matrix(c(0,3,4,3,4,3,
3,0,1,NA,5,NA,
4,1,0,5,NA,5,
3,NA,5,0,1,NA,
4,5,NA,1,0,5,
3,NA,5,NA,5,0),byrow=TRUE, nrow=6)
edmc(D, method="dpf", d=3, toler=1e-8)
# }
Run the code above in your browser using DataLab