rdis()

[RobinHankin]

it would be nice to allow rdis() to return character disords:

library("disordR")
#> Loading required package: Matrix

rdis <- function(n=9){disord(sample(n,replace=TRUE))}
rdis()
#> A disord object with hash 03fc43f54b0054fc0ca53ba395e6100c25a6b610 and elements
#> [1] 9 5 9 7 7 4 3 2 9
#> (in some order)
rdis(letters[1:9])
#> A disord object with hash 78cdb5a556531ae96938c05fac552649d058ac18 and elements
#> [1] "c" "f" "h" "c" "a" "i" "f" "a" "b"
#> (in some order)

^{Created on 2023-07-10 with reprex v2.0.2}