# NOT RUN {
# Generate 1,000 values from Lognormal(0.5, 1) x Lognormal(0.75, 1.5) and
# estimate parameters based on known mu and sigsq for one of them
set.seed(123)
x <- rlnorm(1000, 0.5, sqrt(1)) * rlnorm(1000, 0.75, sqrt(1.5))
mle_lnorm_lnorm(x, mu2 = 0.75, sigsq2 = 1.5)
# }
Run the code above in your browser using DataLab