# \donttest{
D <- distr::Beta(shape1 = 1, shape2 = 2)
prm <- list(name = "shape1",
pos = NULL,
val = seq(0.5, 2, by = 0.5))
x <- small_metrics(D, prm,
est = c("mle", "me", "same"),
obs = c(20, 50),
sam = 1e2,
seed = 1)
plot_small_metrics(x)
# }
Run the code above in your browser using DataLab