# Univariate numeric samples
dist <- dist_sample(x = list(rnorm(100), rnorm(100, 10)))
dist
mean(dist)
variance(dist)
skewness(dist)
generate(dist, 10)
density(dist, 1)
# Multivariate numeric samples
dist <- dist_sample(x = list(cbind(rnorm(100), rnorm(100, 10))))
dist
mean(dist)
variance(dist)
skewness(dist)
generate(dist, 10)
density(dist, 1)
Run the code above in your browser using DataLab