LogNormal Distribution

Question

I was replaying the next plot in Mathematica

For that I used the next code line
Plot[PDF[LogNormalDistribution[18.3, 8.8], x] // Evaluate, {x, 0, 40},
  Frame -> True, PlotRange -> All, PlotStyle -> Blue, 
 PlotLabel -> "Times distribution ", 
 FrameLabel -> {"days", "probability"}]

But the plot is very different:

What is it happening?

Bob Hanlon · Accepted Answer

dist = LogNormalDistribution[m, s];

Given the mean and standard deviation, the underlying parameters {m, s} are
param = NSolve[{Mean[dist] == 183/10,
    StandardDeviation[dist] == 88/10, s > 0},
   {m, s}, Reals][[1]]

(* {m -> 2.80289, s -> 0.456094} *)

Plot[PDF[dist /. param, x] // Evaluate, {x, 0, 40},
 Frame -> True,
 PlotRange -> All,
 PlotStyle -> Blue,
 PlotLabel -> "Times distribution ",
 FrameLabel -> {"days", "probability"}]

LogNormal Distribution

One Answer

Add your own answers!

Ask a Question