## Taste data (David, 1988, p. 116)
dat <- matrix(c( 0, 3, 2, 2,
12, 0, 11, 3,
13, 4, 0, 5,
13, 12, 10, 0), 4, 4, byrow=TRUE)
thurstone(dat) # Thurstone-Mosteller model fits OK
Run the code above in your browser using DataLab