# generate 100 random variates with an average of 0.7
# all will be in the closed interval \[0,1\]
ordbeta_var <- rordbeta(n=100, mu=0.7, phi=2)
# Will be approx mean = 0.7 with high positive skew
summary(ordbeta_var)
Run the code above in your browser using DataLab