# NOT RUN {
p <- ser_permutation_vector(sample(10), "random")
p
## some methods
length(p)
get_method(p)
get_order(p)
get_rank(p)
get_permutation_matrix(p)
r <- rev(p)
r
get_order(r)
## create a identity permutation vector (with unknown length)
ip <- ser_permutation_vector(NA)
ip
# }
Run the code above in your browser using DataLab