The below code executes.  If I uncomment the Plot, it runs for a while and outputs nothing, not even the Mean and Variance.



----------
```
new2 = TransformedDistribution[(x + y + z)/3, {x, y,z} \[Distributed] LogMultinormalDistribution[{0,1,0},{{1,0,0},{0,1,0},{0,0,1}}]];

lmdpdf = PDF[new2,x];

(* Plot[%, {x, 1, 8}, Filling -> Axis,PlotRange -> Automatic]  *)

Mean[new2]
Variance[new2]
```
========

Meanwhile, the below works fine.

--------
```
new2a = TransformedDistribution[(x + y),
 {x\[Distributed] NormalDistribution[],
y \[Distributed] NormalDistribution[]} 
];

PDF[new2a, x];

Plot[%, {x, -6, 8}, Filling -> Axis,PlotRange -> Automatic]

Mean[new2a]
Variance[new2a]
```