normal_margin <- margin_dist(
d = function(x) dnorm(x, mean = 1, sd = 2),
p = function(x) pnorm(x, mean = 1, sd = 2),
q = function(p) qnorm(p, mean = 1, sd = 2),
family = "norm",
support = c(-Inf, Inf),
npars = 2
)
dmargin(1, normal_margin)
pmargin(1, normal_margin)
qmargin(0.5, normal_margin)
Run the code above in your browser using DataLab