| Wolfram Technology Guide: Symbolic Statistical Computing | ◄ previous | next ► |
In[1]:= | Plot3D[Evaluate[
Total[Log[
Map[PDF[GammaDistribution[\[Alpha], \[Beta]], #] &,
RandomReal[GammaDistribution[2, 10], 50]]]]], {\[Alpha], 0.5,
5}, {\[Beta], 2, 25}, MeshFunctions -> {#3 &},
ColorFunction -> "SouthwestColors"] |
Out[1]= ![]() | ![]() |