## Not run: 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,])
# ## End(Not run)
Run the code above in your browser using DataLab