rdist.perm(1, 4, 2 )
rdist.perm(1, 4, 2, "ulam")
len <- 3
rdist.perm(n = 1, perm.length = len, dist.value = len, "h") #derangement
cycles <- 2
rdist.perm(n = 1, perm.length = len, dist.value = len - cycles, "c") #permutation with 2 cycles
Run the code above in your browser using DataLab