## permutation_vector
o <- ser_permutation_vector(sample(10))
o
get_order(o)
get_permutation_matrix(o)
## permutation
o2 <- ser_permutation(o, sample(5))
o2
get_order(o2, dim = 2)
get_permutation_matrix(o2, dim = 2)
Run the code above in your browser using DataLab