bd <- dist_blended(
list(
dist_normal(mean = 0.0, sd = 1.0),
dist_genpareto(u = 3.0, sigmau = 1.0, xi = 3.0)
),
breaks = list(3.0),
bandwidths = list(0.5),
probs = list(0.9, 0.1)
)
plot_distributions(
bd,
.x = seq(-3, 10, length.out = 100),
plots = c("d", "p")
)
Run the code above in your browser using DataLab