# NOT RUN {
# }
# NOT RUN {
data(eco.test)
eco1 <- eco
eco1[["P"]] <- eco[["P"]][sample(1:225), ] #object with shuffled rows
eco1[["E"]] <- eco[["E"]][sample(1:225), ]
ordered <- int.order(eco1)
head(ordered[["P"]]); head(eco[["P"]])
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab