# NOT RUN {
dist <- c("invpareto", "lnorm", "pareto")
coeff <- c(
coeff1.k = 1.5, coeff2.meanlog = -0.5,
coeff2.sdlog = 0.5, coeff3.k = 1.5
)
lower <- c(1e-10, -Inf, 1e-10, 1e-10)
upper <- c(Inf, Inf, Inf, Inf)
x <- rcomposite(1e3, dist = dist, coeff = coeff)
# }
# NOT RUN {
composite.mle(x = x, dist = dist, start = coeff + 0.2, lower = lower, upper = upper)
# }
# NOT RUN {
#'
# }
Run the code above in your browser using DataLab