# NOT RUN {
# }
# NOT RUN {
<!-- % I don't run the following, since they are run in ripple.Rd -->
# }
# 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,])
# }
Run the code above in your browser using DataLab