data(celebrities) # absolute choice frequencies
A <- list(c(1,10), c(2,10), c(3,10), c(4,11), c(5,11), c(6,11),
c(7,12), c(8,12), c(9,12)) # the structure of aspects
eba1 <- eba(celebrities, A) # fit a preference tree
## Test whether JU, CY, and AJF have equal preference scale values
C1 <- matrix(c(0,0,0,1,-1,0,0,0,0,
0,0,0,1,0,-1,0,0,0), 2, 9, TRUE)
wald.test(eba1, C1)
## Test whether the three branch parameters are different
C2 <- matrix(c(0,0,0,0,0,0,0,0,0,1,-1,0,
0,0,0,0,0,0,0,0,0,1,0,-1), 2, 12, TRUE)
wald.test(eba1, C2, u.scale = FALSE)
Run the code above in your browser using DataLab