Hi all,
This code returns results not matching the results of the book I am working on.
f[x_] := Piecewise[{{1/3, x == {1, 1}}, {2/3, x == {2, 0}}}];
\[ScriptCapitalD] :=
ProbabilityDistribution[
f[{x1, x2}], {x1, -Infinity, Infinity}, {x2, -Infinity, Infinity}];
PDF[TransformedDistribution[
2 {x1, x2}, {x1, x2} \[Distributed] \[ScriptCapitalD]], {y1,
y2}] // FullSimplify
i should have a result like P(Y==y)=P(g^-1(y)) for g an increasing function which is not the result Mathematica proposes.
Any suggestions?
Thx.