## simple example
P <- matrix(c(0, 4, 6, 13,
5, 0, 37, 21,
4, 38, 0, 16,
8, 31, 18, 0), nrow = 4, ncol = 4, byrow = TRUE)
D <- sim2diss(P, method = 40)
res <- driftVectors(D, type = "interval")
plot(res)
plot(res, adjust = 0.1) ## shorten drift vectors
## Morse code data
fit.drift <- driftVectors(morse2, type = "ordinal")
fit.drift
plot(fit.drift)
Run the code above in your browser using DataLab