Displaying 1 result from an estimated 1 matches for "ltlnormfit".
2010 Apr 28
0
Truncated Lognormal Distribution
...7,23.82,234.15,625.89,192.88,29.53,109.99, 80.53, 46.85,82.69,231.53,75.38,217.52,85.29,182.18)
ltlnorm <- function(x, meanlog, sdlog, log=FALSE)
{
dlnorm(x, meanlog, sdlog, log = FALSE) / plnorm(1, meanlog, sdlog, lower.tail = TRUE, log.p = FALSE)
}
meanlog = mean(log(x))
sdlog = sd(log(x))
ltlnormfit <- fitdistr(x,ltlnorm, start=list(meanlog,sdlog))
I get following error -
Error in dlnorm(x, meanlog, sdlog, log = FALSE) : element 3 is empty;
the part of the args list of '.Internal' being evaluated was:
(x, meanlog, sdlog, log)
Please guide me as to
(1) How do I overcome...