Does Mathematica have an implementation of the Poisson Binomial Distribution?












5












$begingroup$


I need to work out the probability of having $k$ successful trials out of a total of $n$ when success probabilities are heterogeneous. This calculation relates to the Poisson Binomial Distribution. Does Mathematica, or perhaps the Mathstatica add-on, have an implementation for that?










share|improve this question











$endgroup$

















    5












    $begingroup$


    I need to work out the probability of having $k$ successful trials out of a total of $n$ when success probabilities are heterogeneous. This calculation relates to the Poisson Binomial Distribution. Does Mathematica, or perhaps the Mathstatica add-on, have an implementation for that?










    share|improve this question











    $endgroup$















      5












      5








      5





      $begingroup$


      I need to work out the probability of having $k$ successful trials out of a total of $n$ when success probabilities are heterogeneous. This calculation relates to the Poisson Binomial Distribution. Does Mathematica, or perhaps the Mathstatica add-on, have an implementation for that?










      share|improve this question











      $endgroup$




      I need to work out the probability of having $k$ successful trials out of a total of $n$ when success probabilities are heterogeneous. This calculation relates to the Poisson Binomial Distribution. Does Mathematica, or perhaps the Mathstatica add-on, have an implementation for that?







      probability-or-statistics






      share|improve this question















      share|improve this question













      share|improve this question




      share|improve this question








      edited 1 hour ago









      Chris K

      7,32722143




      7,32722143










      asked 1 hour ago









      user120911user120911

      80338




      80338






















          1 Answer
          1






          active

          oldest

          votes


















          4












          $begingroup$

          Mathematica does not know about the PoissonBinomialDistribution, but you can use the formula given for the PDF on Wikipedia:



          PoissonBinomialDistribution[ plist : { __Real } ] := With[
          {
          n = Length @ plist,
          c = Exp[(2 I [Pi])/(Length@plist + 1)]
          }
          ,
          ProbabilityDistribution[
          1/(n + 1) Sum[c^(-l k) Product[1 + (c^l - 1) plist[[m]], {m, 1, n }], {l, 0, n}]
          ,
          {k, 0, n, 1}
          ]
          ]


          Now we may model a quality control where fault type 1 has a prob of 4% and fault types 2 and 3 have a prob of 7%:



          dist = PoissonBinomialDistribution[ {0.04, 0.07, 0.07} ];


          With this we find the probability for 3 faults:



          Probability[ k == 3, k [Distributed] dist ]// PercentForm



          0.0196 %







          share|improve this answer











          $endgroup$














            Your Answer








            StackExchange.ready(function() {
            var channelOptions = {
            tags: "".split(" "),
            id: "387"
            };
            initTagRenderer("".split(" "), "".split(" "), channelOptions);

            StackExchange.using("externalEditor", function() {
            // Have to fire editor after snippets, if snippets enabled
            if (StackExchange.settings.snippets.snippetsEnabled) {
            StackExchange.using("snippets", function() {
            createEditor();
            });
            }
            else {
            createEditor();
            }
            });

            function createEditor() {
            StackExchange.prepareEditor({
            heartbeatType: 'answer',
            autoActivateHeartbeat: false,
            convertImagesToLinks: false,
            noModals: true,
            showLowRepImageUploadWarning: true,
            reputationToPostImages: null,
            bindNavPrevention: true,
            postfix: "",
            imageUploader: {
            brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
            contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
            allowUrls: true
            },
            onDemand: true,
            discardSelector: ".discard-answer"
            ,immediatelyShowMarkdownHelp:true
            });


            }
            });














            draft saved

            draft discarded


















            StackExchange.ready(
            function () {
            StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f196962%2fdoes-mathematica-have-an-implementation-of-the-poisson-binomial-distribution%23new-answer', 'question_page');
            }
            );

            Post as a guest















            Required, but never shown

























            1 Answer
            1






            active

            oldest

            votes








            1 Answer
            1






            active

            oldest

            votes









            active

            oldest

            votes






            active

            oldest

            votes









            4












            $begingroup$

            Mathematica does not know about the PoissonBinomialDistribution, but you can use the formula given for the PDF on Wikipedia:



            PoissonBinomialDistribution[ plist : { __Real } ] := With[
            {
            n = Length @ plist,
            c = Exp[(2 I [Pi])/(Length@plist + 1)]
            }
            ,
            ProbabilityDistribution[
            1/(n + 1) Sum[c^(-l k) Product[1 + (c^l - 1) plist[[m]], {m, 1, n }], {l, 0, n}]
            ,
            {k, 0, n, 1}
            ]
            ]


            Now we may model a quality control where fault type 1 has a prob of 4% and fault types 2 and 3 have a prob of 7%:



            dist = PoissonBinomialDistribution[ {0.04, 0.07, 0.07} ];


            With this we find the probability for 3 faults:



            Probability[ k == 3, k [Distributed] dist ]// PercentForm



            0.0196 %







            share|improve this answer











            $endgroup$


















              4












              $begingroup$

              Mathematica does not know about the PoissonBinomialDistribution, but you can use the formula given for the PDF on Wikipedia:



              PoissonBinomialDistribution[ plist : { __Real } ] := With[
              {
              n = Length @ plist,
              c = Exp[(2 I [Pi])/(Length@plist + 1)]
              }
              ,
              ProbabilityDistribution[
              1/(n + 1) Sum[c^(-l k) Product[1 + (c^l - 1) plist[[m]], {m, 1, n }], {l, 0, n}]
              ,
              {k, 0, n, 1}
              ]
              ]


              Now we may model a quality control where fault type 1 has a prob of 4% and fault types 2 and 3 have a prob of 7%:



              dist = PoissonBinomialDistribution[ {0.04, 0.07, 0.07} ];


              With this we find the probability for 3 faults:



              Probability[ k == 3, k [Distributed] dist ]// PercentForm



              0.0196 %







              share|improve this answer











              $endgroup$
















                4












                4








                4





                $begingroup$

                Mathematica does not know about the PoissonBinomialDistribution, but you can use the formula given for the PDF on Wikipedia:



                PoissonBinomialDistribution[ plist : { __Real } ] := With[
                {
                n = Length @ plist,
                c = Exp[(2 I [Pi])/(Length@plist + 1)]
                }
                ,
                ProbabilityDistribution[
                1/(n + 1) Sum[c^(-l k) Product[1 + (c^l - 1) plist[[m]], {m, 1, n }], {l, 0, n}]
                ,
                {k, 0, n, 1}
                ]
                ]


                Now we may model a quality control where fault type 1 has a prob of 4% and fault types 2 and 3 have a prob of 7%:



                dist = PoissonBinomialDistribution[ {0.04, 0.07, 0.07} ];


                With this we find the probability for 3 faults:



                Probability[ k == 3, k [Distributed] dist ]// PercentForm



                0.0196 %







                share|improve this answer











                $endgroup$



                Mathematica does not know about the PoissonBinomialDistribution, but you can use the formula given for the PDF on Wikipedia:



                PoissonBinomialDistribution[ plist : { __Real } ] := With[
                {
                n = Length @ plist,
                c = Exp[(2 I [Pi])/(Length@plist + 1)]
                }
                ,
                ProbabilityDistribution[
                1/(n + 1) Sum[c^(-l k) Product[1 + (c^l - 1) plist[[m]], {m, 1, n }], {l, 0, n}]
                ,
                {k, 0, n, 1}
                ]
                ]


                Now we may model a quality control where fault type 1 has a prob of 4% and fault types 2 and 3 have a prob of 7%:



                dist = PoissonBinomialDistribution[ {0.04, 0.07, 0.07} ];


                With this we find the probability for 3 faults:



                Probability[ k == 3, k [Distributed] dist ]// PercentForm



                0.0196 %








                share|improve this answer














                share|improve this answer



                share|improve this answer








                edited 41 mins ago

























                answered 49 mins ago









                gwrgwr

                8,68322861




                8,68322861






























                    draft saved

                    draft discarded




















































                    Thanks for contributing an answer to Mathematica Stack Exchange!


                    • Please be sure to answer the question. Provide details and share your research!

                    But avoid



                    • Asking for help, clarification, or responding to other answers.

                    • Making statements based on opinion; back them up with references or personal experience.


                    Use MathJax to format equations. MathJax reference.


                    To learn more, see our tips on writing great answers.




                    draft saved


                    draft discarded














                    StackExchange.ready(
                    function () {
                    StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f196962%2fdoes-mathematica-have-an-implementation-of-the-poisson-binomial-distribution%23new-answer', 'question_page');
                    }
                    );

                    Post as a guest















                    Required, but never shown





















































                    Required, but never shown














                    Required, but never shown












                    Required, but never shown







                    Required, but never shown

































                    Required, but never shown














                    Required, but never shown












                    Required, but never shown







                    Required, but never shown







                    Popular posts from this blog

                    Statuo de Libereco

                    Tanganjiko

                    Liste der Baudenkmäler in Enneberg