# 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)
d <- 3
DStar <- dpf(D,d)$D
getConfig(DStar,3)
# }
Run the code above in your browser using DataLab