# NOT RUN {
## permutation_vector
o <- ser_permutation_vector(sample(10))
o
get_order(o)
get_rank(o)
get_permutation_matrix(o)
## permutation
o2 <- ser_permutation(o, sample(5))
o2
get_order(o2, dim = 2)
get_rank(o2, dim = 2)
get_permutation_matrix(o2, dim = 2)
# }
Run the code above in your browser using DataCamp Workspace