d <- distribution(
cdf = function(x) {
(x > 0) * pmin(x^2, 1)
},
g = 9.81,
.vtype = "continuous"
)
eval_property(d, "g")
eval_property(d, "quantile", 1:9 / 10)
eval_property(d, "mean")
eval_property(d, "realise", 10)
eval_property(d, "foofy")
eval_property(d, "foofy", 1:10)
Run the code above in your browser using DataLab