set.seed(90870962)
x <- rbeta_rs2(n = 5000,
bmean = .80,
bsd = .10,
blow = .00,
bhigh = .95)
mean(x)
sd(x)
hist(x)
y <- rbeta_rs2(n = 5000,
bmean = 4,
bsd = 3,
blow = -10,
bhigh = 10)
mean(y)
sd(y)
hist(y)
Run the code above in your browser using DataLab