set.seed(27)
X <- Beta(1, 2)
X
random(X, 10)
pdf(X, 0.7)
log_pdf(X, 0.7)
cdf(X, 0.7)
quantile(X, 0.7)
mean(X)
variance(X)
skewness(X)
kurtosis(X)
cdf(X, quantile(X, 0.7))
quantile(X, cdf(X, 0.7))
Run the code above in your browser using DataLab