派生分布のシミュレーションを行う
派生分布のシミュレーションを行う
RandomVariateを使って,成分混合分布からランダムデータを生成する.
dist = MixtureDistribution[{2, 4 / 3}, {NormalDistribution[], NormalDistribution[2, 1 / 2]}];
SeedRandom[0];data = RandomVariate[dist, 10 ^ 4];Show[Histogram[data, 20, "ProbabilityDensity", ChartStyle -> "AlpineColors"], Plot[PDF[dist, x], {x, -9, 9}, PlotStyle -> {Thick, Blend[{Black, Red}]}], ImageSize -> 470]