# p1 < p2 < p3 < p4
A4 <- matrix(
c(
1, -1, 0, 0,
0, 1, -1, 0,
0, 0, 1, -1
),
nrow = 3, byrow = TRUE
)
b4 <- c(0, 0, 0)
# drop the fixed column for: p4 = (1-p1-p2-p3)
Ab_drop_fixed(A4, b4, options = c(4))
Run the code above in your browser using DataLab