<!-- % I don't run the following, since they are run in ripple.Rd -->
data(badorder)
rip1 <- ripple(badorder, 1, 7)
summary(rip1)
rip2 <- ripple(badorder, 1, 2, method="likelihood")
summary(rip2)
badorder <- switch.order(badorder, 1, rip2[2,])
Run the code above in your browser using DataLab