# NOT RUN {
drop(disord(c(3,3,3,3,3,3,2,3,3,3,3,3)))
drop(disord(c(3,3,3,3,3,3,3,3,3,3,3,3)))
## In extraction, argument drop discards disorderliness when possible:
a <- rdis()
a[] <- 6 # a becomes a vector
b <- rdis()
b[drop=FALSE] <- 6 # b stays a disord
# }
Run the code above in your browser using DataLab