# NOT RUN {
x <- DiscreteUniform$new(lower = -10, upper = 5)
# Update parameters
x$setParameterValue(lower = 2, upper = 7)
x$parameters()
# d/p/q/r
x$pdf(5)
x$cdf(5)
x$quantile(0.42)
x$rand(4)
# Statistics
x$mean()
x$variance()
summary(x)
# }
Run the code above in your browser using DataLab