Add another randDir to provide R function for it

I need this for the elicitation-paper computational tests so maybe makes sense to have the function in the lib as well (for others to use).